Schleichen Sie sich durch jede Zelle in einem Zellbereich, wenn Sie ein Range-Objekt erhalten

Question

Oct 06, 2010, 07:48 PM

Schleichen Sie sich durch jede Zelle in einem Zellbereich, wenn Sie ein Range-Objekt erhalten

Sagen wir, ich habe den folgenden Code:

Sub TestRangeLoop()
    Dim rng As Range
    Set rng = Range("A1:A6")

    ''//Insert code to loop through rng here
End Sub

Ich möchte in der Lage sein, durch eine Sammlung von @ zu iterierRange Objekte für jede in @ angegebene Zelrng. Konzeptionell würde ich es gerne so machen:

For Each rngCell As Range in rng
     ''//Do something with rngCell
Next

Ich weiß, ich könnte das lösen, indem ich @ analysierng.Address und GebäudeRange Objekte manuell, aber ich hoffe, es gibt einen direkteren Weg, der nicht das Parsen von Strings beinhaltet.