Цикл каждой ячейки в диапазоне ячеек, когда дан объект Range
Допустим, у меня есть следующий код:
Sub TestRangeLoop()
Dim rng As Range
Set rng = Range("A1:A6")
''//Insert code to loop through rng here
End Sub
Я хочу, чтобы иметь возможность перебирать коллекциюRange
объекты для каждой ячейки, указанной вrng
, Концептуально, я хотел бы сделать это так:
For Each rngCell As Range in rng
''//Do something with rngCell
Next
Я знаю, что мог бы решить эту проблему путем анализаrng.Address
и строительствоRange
Объекты вручную, но я надеюсь, что есть более прямой способ, который не включает разбор строк.