假设我有以下代码:
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
对象来解决这个问题,但我希望有一种更直接的方法,不涉及字符串解析。
最佳答案
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
关于excel - 当给定 Range 对象时,循环遍历单元格区域中的每个单元格,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/3875415/