Faça um loop através de cada célula em um intervalo de células quando receber um objeto Range
Digamos que eu tenho o seguinte código:
Sub TestRangeLoop()
Dim rng As Range
Set rng = Range("A1:A6")
''//Insert code to loop through rng here
End Sub
Quero poder iterar através de uma coleção deRange
objetos para cada célula especificada emrng
. Conceitualmente, eu gostaria de fazer o seguinte:
For Each rngCell As Range in rng
''//Do something with rngCell
Next
Eu sei que poderia resolver isso analisandorng.Address
e construindoRange
objetos manualmente, mas espero que exista uma maneira mais direta que não envolva análise de string.