|
With的用法是为了省略父对象,用到您的代码中,就是在With sxwb到End With之间,所有sxwb都可省略。如:
- With sxwb
- .Range(.Cells(3 + sum, 4), .Cells(3 + sum + count, 4)) = Application.Transpose(shuxingji)
- .Range(.Cells(3 + sum, 5), .Cells(3 + sum + count, 5)) = Application.Transpose(shuxing)
- End With
复制代码
对于一段代码中,某一父对象经常出现的情况下,使用With,确实可以简化不少代码。
|
|