Boucle à travers chaque cellule dans une plage de cellules avec un objet Range

Disons que j'ai le code suivant:

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

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

Je veux être en mesure de parcourir une collection de Range objets pour chaque cellule spécifiée dans rng. Sur le plan conceptuel, je voudrais faire comme ceci:

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

Je sais que je pourrais résoudre ce par l'analyse de rng.Address et la construction de Range les objets manuellement, mais j'espère que il y a une façon plus directe, qui n'implique pas de traitement de chaîne.

InformationsquelleAutor Ben McCormack | 2010-10-06
  1. 82
    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
    • Cela a fonctionné parfaitement, mais je suis surpised pour lesquelles il a travaillé depuis Cells est juste un Range objet. En fait, j'ai enlevé .Cells de rRng dans le For Each ligne et il fonctionnait toujours. Qu'en est Range la fait ressembler à une collection de Ranges? Merci beaucoup pour votre aide!
    • dailydoseofexcel.com/archives/2004/07/07/the-strange-object Les Cellules de la propriété est la propriété par défaut dans ce contexte, c'est pourquoi il fonctionne sans elle. Dans d'autres contextes, la Valeur de la propriété est la propriété par défaut. Plage: tous les objets sont vraiment des objets de collection qui contiennent Gamme d'objets à l'infini, je suppose. La Plage est vraiment un étrange objet et les sauts de l'objet/objet de collection paradigme à chaque tour. Mais dans la plupart des cas, il fonctionne, tout simplement. 🙂
    • merci pour l'information additionnelle. Je souhaite que j'avais appris que "ça marche" avec Range y a environ 4 ans quand j'ai commencé à faire de la programmation VBA :-).
    • Lorsque j'utilise votre code, il est exécuté avec succès, alors comment sur l'impression de la valeur ou de la chaîne de cellules?
    • fait, je l'ai enlevé .Les cellules de rRng dans la Pour Chaque ligne et il travaillait encore. car une seule cellule est également un objet de la plage et depuis, nous avons déclaré rCell comme de la Fourchette, il est capable de parcourir toutes les cellules visées par rRng Gamme.
    InformationsquelleAutor Dick Kusleika
  2. 13

    Vous pouvez utiliser Range.Rows, Range.Columns ou Range.Cells. Chacune de ces collections contiennent Range objets.

    Voici comment vous pouvez modifier la Bite exemple de la façon de travailler avec 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

    Et 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
    • Comment voulez-vous utiliser ces propriétés pour créer une boucle. J'ai été jouer avec les propriétés de Range tels que ceux que vous avez mentionné et je n'arrive pas à comprendre comment les utiliser pour me donner les informations dont j'ai besoin.
    InformationsquelleAutor code4life
  3. 3

    De faire une remarque sur la Bite de réponse, c'est correct, mais je ne recommanderais pas à l'aide d'une boucle For each. Pour Chacun crée un renvoi temporaire de la COM de la Cellule derrière les scènes que vous n'avez pas accès à l' (dont vous avez besoin pour l'éliminer).

    Voir la suite pour plus de discussion:

    Comment bien nettoyer Excel interopérabilité des objets?

    Pour illustrer le problème, essayez les solutions Pour Chaque exemple, la fermeture de votre application, et de regarder le Gestionnaire des Tâches. Vous devriez voir qu'une instance d'Excel est toujours en cours (parce que tous les objets n'ont pas été éliminés de façon appropriée).

    D'une façon plus propre de le gérer est de requête de la feuille de calcul à l'aide d'ADO:

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

    • Je ne pense pas que ces mises en garde s'appliquent à cette question. Ben est à l'aide de VBA, sans doute au sein de la même instance d'Excel comme les Plages, il travaille avec.
    • Je suis juste à l'aide de VBA. J'apprécie le mot de prudence, mais cette solution est de les jeter I-just-need-to-loop-through-some-cells-to-generate-some-SQL-code-so-I-can-finish-my-script-and-move-with-my-la vie de la variété.
    • Oups; vous avez raison 🙂 je suppose que vous travailliez avec VB.Net et a été complètement dévoyé par mon propre esprit. Désolé à ce sujet.
    InformationsquelleAutor Mark Avenius
  4. 0

    Je suis en ressuscitant les morts ici, mais parce que toute une gamme peut être défini comme "Un" Un", à l'aide d'une boucle for each se termine avec un potentiel de boucle infinie. La solution, pour autant que je sais, est d'utiliser le Do Until boucle.

    Do Until Selection.Value = ""
  Rem Do things here...
Loop
    • Si vous n'utilisez pas la dernière peuplée de la cellule à la recherche de bas en haut (par exemple,.range(.cells(1, 1), .cells(.rows.count, 1).end(xlup))) puis à l'aide de la méthode Intersect avec l'ensemble de la colonne et de la feuille de calcul .UsedRange propriété (par exemple,Intersect(.columns(1), .usedrange)) ou, éventuellement, la Plage.CurrentRegion propriété (par exemple,.cells(1, 1).currentregion.columns(1)) est très efficace.
    InformationsquelleAutor Nielsvh