vba - 如何遍历指定列中的相同单元格

Question

我编写了以下 VBA 来循环遍历从第 2 列到第 1002 列的每一列中的相同单元格。也就是说，在编码中，当 i=2 时，我有 Range("B3", "B1298"); 当 i=3 时，我需要有 Range("C3", "C1298") 等等。请问这个怎么实现？谢谢你。

Sub ForwardRScen()

    Application.ScreenUpdating = False

    For i = 2 To 102

        Range("ChgBP").Value = Sheets("sth").Cells(2, i).Value
        Sheets("sth").Range("B3", "B1298").Value = Range("DResults").Value

    Next i

    Application.ScreenUpdating = True

End Sub

标签： vbaexcel

Answer 1

分配一个范围并在循环中更改它是一个很好的方法：

Public Sub TestMe()

    Dim i As Long
    For i = 2 To 12
        Dim myRange As Range
        Set myRange = Range(Cells(2, i), Cells(1298, i))
        myRange = i
    Next i

End Sub

这就是你将得到的：