如何在 VBA 中循环范围？

Question

我是 VBA 中的新手，我有一个问题，即如何在 VBA 中循环范围，例如： Range("A1:D1").select到Range("A100:D100").select

或者

Range("A1:D1").select到Range("D1:G1").select ?

Answer 1

注意：最好避免使用Select 、 Activate等...

要遍历每行更改的范围，请使用For循环lRow下面的lRow ：

' loop example per your case
For lRow = 1 To 100
    Range("A" & lRow & ":D" & lRow).Select
Next lRow

要循环遍历每列更改的范围，请使用For循环遍历下面的Col ：

' loop example per your case
For Col = 1 To 4
    Range(Cells(1, Col), Cells(1, Col + 3)).Select
Next Col