Einstellbereich in der For-Schleife

Ich versuche, um den Bereich in einer For Schleife. Mein code funktioniert, wenn ich dies tun:

For Each i in Range("A1":"A5")
   'Some process code
Next i

Aber ich komme nicht auf die gleichen Ergebnisse, wenn ich dies tun:

For Each i in Range("A1").End(xlDown)
    'Some Process
Next i

Arent die zwei codes, die äquivalent? Welche änderungen sollte ich machen, um die zweite, es singt der gleichen Weise wie die erste, aber macht mich nicht zu fest der Bereich, in dem code?

InformationsquelleAutor Ali | 2011-08-28

  1. 5

    Zweiten Sie haben wird nur die Letzte Zelle in der Reihe, die glaube ich würde mir den A5 aus dem ersten Beispiel. Stattdessen müssen Sie etwas tun, wie diese.

    Ich strukturiert diese wie einen kleinen test, damit Sie sehen können die erste option, die korrigierte zweite, und ein Beispiel, wie ich würde es vorziehen, dies zu tun.

    Option Explicit

Sub test()

  Dim r As Range
  Dim x As Range

  ' Make sure there is stuff in Range("A1:A5")
  Range("A1") = 1
  Range("A2") = 2
  Range("A3") = 3
  Range("A4") = 4
  Range("A5") = 5

  ' Your first option
  For Each x In Range("A1:A5")
    Debug.Print x.Address & ", " & x
  Next

  ' What you need to do to get the full range
  For Each x In Range("A1", Range("A1").End(xlDown))
    Debug.Print x.Address & ", " & x
  Next

  ' My preferred method
  Set r = Range("A1").End(xlDown)
  For Each x In Range("A1", r)
    Debug.Print x.Address & ", " & x
  Next

End Sub
    Ich denke, dass die Dritte Methode ist die beste, es ist sauber und erlaubt einen besseren code zu Lesen. Danke.

    InformationsquelleAutor adamleerich

  2. 2

    Der sauberste Weg, würde er sicherlich sein, die zum speichern der lastRow-Nummer in eine variable wie so. Sie können die Verkettung in der für jede Zeile:

    Dim cell as range
Dim lastRow As Long
lastRow = Range("A" & Rows.Count).End(xlUp).row

For Each cell In Range("A1:A" & lastRow)

    Bitte beachten Sie, dass es einen Unterschied macht, zwischen der Verwendung xlUp und xlDown.

    • xlUp gibt Sie die Letzte Zelle in Spalte A (also fangen Sie an Zeilen.count)
    • XlDown gibt Sie, die Letzte nicht-leere Zelle (die Sie verwenden können, range("A1").End(xlDown).Zeile)

    Werden Sie feststellen, eine Menge Leute nutzen "A65536" anstelle von Zeilen.zählen, sondern 65536 ist nicht die Grenze für einige Versionen von Excel, so ist es immer besser, zu Reihen.Graf.

    InformationsquelleAutor aevanko

Schreibe einen Kommentar