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

Ответы на вопрос(4)

Ваш ответ на вопрос