excel - 当给定 Range 对象时，循环遍历单元格区域中的每个单元格

Question

假设我有以下代码:

Sub TestRangeLoop()
    Dim rng As Range
    Set rng = Range("A1:A6")

    ''//Insert code to loop through rng here
End Sub

我希望能够为 rng 中指定的每个单元格迭代 Range 对象的集合。从概念上讲，我想这样做:

For Each rngCell As Range in rng
     ''//Do something with rngCell
Next

我知道我可以通过解析rng.Address并手动构建Range对象来解决这个问题，但我希望有一种更直接的方法，不涉及字符串解析。

Answer 1

Sub LoopRange()

    Dim rCell As Range
    Dim rRng As Range

    Set rRng = Sheet1.Range("A1:A6")

    For Each rCell In rRng.Cells
        Debug.Print rCell.Address, rCell.Value
    Next rCell

End Sub