我想知道是否有一种更有效的方法可以更快地编译并且看起来更好/更少的行:
Sheets("Parameters").Select
PlateNo = Cells(1, 2).Value
Startrow = Cells(2, 2).Values
Startcol = Cells(3, 2).Value
ColNo = Cells(4, 2).Value
Step = Cells(5, 2).Value
答案 0 :(得分:3)
你应该尽可能避免使用Select / Activate(你几乎不会需要来使用它们......)
With Sheets("Parameters").Columns(2)
PlateNo = .Cells(1).Value
Startrow = .Cells(2).Value
Startcol = .Cells(3).Value
ColNo = .Cells(4).Value
StepNo = .Cells(5).Value
End With