Скажем, у меня есть следующий код:
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
вручную, но я надеюсь, что существует более прямой способ, который не включает синтаксический анализ строк.