BeforeSelRangeChange 事件
If e.NewRange.BottomRow - e.NewRange.TopRow >= 1 OrElse e.NewRange.RightCol - e.NewRange.LeftCol >= 1 Then e.cancel = TrueEnd If