Pętla przez każdą komórkę w zakresie komórek przy podawaniu obiekt Range

Question

powiedzmy mam następujący kod:

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

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

Chcę być w stanie wykonać iterację kolekcji Range obiektów dla każdej komórki określonej w rng. Koncepcyjnie, chciałbym to zrobić tak:

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

wiem mogę rozwiązać ten problem parsowania rng.Address i budowanie Range przedmiotów ręcznie, ale mam nadzieję, że jest bardziej bezpośredni sposób, że nie obejmuje parsowanie ciągów.

Answer 1

Sub LoopRange() 

    Dim rCell As Range 
    Dim rRng As Range 

    Set rRng = Sheet1.Range("A1:A6") 

    For Each rCell In rRng.Cells 
     Debug.Print rCell.Address, rCell.Value 
    Next rCell 

End Sub 

Answer 2

Można użyć Range.Rows, Range.Columns lub Range.Cells. Każda z tych kolekcji zawiera obiekty Range.

Oto jak można zmodyfikować przykład Dicka tak aby pracować z Rows:

Sub LoopRange() 

    Dim rCell As Range 
    Dim rRng As Range 

    Set rRng = Sheet1.Range("A1:A6") 

    For Each rCell In rRng.Rows 
     Debug.Print rCell.Address, rCell.Value 
    Next rCell 

End Sub 

And Columns:

Sub LoopRange() 

    Dim rCell As Range 
    Dim rRng As Range 

    Set rRng = Sheet1.Range("A1:A6") 

    For Each rCol In rRng.Columns 
     For Each rCell In rCol.Rows 
      Debug.Print rCell.Address, rCell.Value 
     Next rCell 
    Next rCol 

End Sub 

Answer 3

sporządzić notatkę na odpowiedź Dicka, to jest prawidłowe, ale nie polecam używania pętli For Each. Dla każdego tworzy tymczasowe odwołanie do komórki COM za kulisami, do których nie masz dostępu (czego potrzebujesz w celu jej usunięcia).

Zobacz więcej dyskusji następujący:

How do I properly clean up Excel interop objects?

Aby zilustrować problem, spróbuj dla każdego przykładu, należy zamknąć aplikację, i spojrzeć na Menedżerze zadań. Powinieneś zobaczyć, że wystąpienie programu Excel wciąż działa (ponieważ wszystkie obiekty nie zostały poprawnie usunięte).

Czystsze sposób obsłużyć to jest do kwerendy arkusza przy użyciu ADO:

http://technet.microsoft.com/en-us/library/ee692882.aspx

Answer 4

mam wskrzesza zmarłych tu, ale dlatego, że zasięg może być zdefiniowana jako "A:", używając a dla każdej pętli kończy się potencjalna nieskończona pętla. Rozwiązaniem, o ile mi wiadomo, jest użycie pętli Do Until.

Do Until Selection.Value = "" 
    Rem Do things here... 
Loop