Anzahl der Excel VBA-Zeilen
Bei der VBA-Programmierung ist es auch am wichtigsten, sich auf Zeilen zu beziehen, und das Zählen von Zeilen ist eines der Dinge, die Sie bei der VBA-Codierung beachten müssen. Es gibt viel Wert, den wir erhalten können, wenn wir verstehen, wie wichtig es ist, Zeilen zu zählen, die Daten im Arbeitsblatt enthalten. In diesem Artikel zeigen wir Ihnen, wie Sie Zeilen mithilfe der VBA-Codierung zählen.
Wie zähle ich Zeilen in VBA?
Beispiel 1
Um Zeilen zu zählen, müssen wir das RANGE-Objekt verwenden. In diesem Objekt müssen wir das ROWS-Objekt verwenden, und in diesem Objekt müssen wir die COUNT-Eigenschaft verwenden.
Schauen Sie sich zum Beispiel die folgenden Daten in Excel an.
Anhand der obigen Daten müssen wir ermitteln, wie viele Zeilen im Bereich von A1 bis A8 vorhanden sind. Definieren Sie also zuerst die Variable als Ganzzahl, um die Anzahl der Zeilen zu speichern.
Code:
Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer End Sub
Für diese Variable weisen wir Zeilennummern zu. Geben Sie daher den Variablennamen und das Gleichheitszeichen ein.
Code:
Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = End Sub
Wir müssen einen Bereich von Zellen bereitstellen, also öffnen Sie das RANGE-Objekt und geben Sie den Bereich als „A1: A8“ an. Code:
Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1: A8") End Sub
Sobald der Bereich angegeben ist, müssen wir die Anzahl der Zeilen zählen. Wählen Sie daher die ROWS-Eigenschaft des RANGE-Objekts.
In der ROWS-Eigenschaft des RANGE-Objekts zählen wir eine Reihe von Zeilen. Wählen Sie jetzt die Eigenschaft "COUNT".
Zeigen Sie nun im Meldungsfeld den Wert der Variablen an.
Code:
Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1: A8"). Rows.Count MsgBox No_Of_Rows End Sub
Führen Sie nun den Code aus und sehen Sie die Anzahl der Zeilen des angegebenen Zellbereichs.
Ok, es werden 8 Zeilen für den Bereich bereitgestellt, sodass die Anzahl der Zeilen im Meldungsfeld 8 beträgt.
Beispiel 2
Wir haben auch andere Möglichkeiten, Zeilen zu zählen. Für die obige Methode müssen wir einen Bereich von Zellen angeben. In diesem Bereich wird in Zellen die Anzahl der ausgewählten Zeilen angezeigt.
Stellen Sie sich jedoch das Szenario vor, in dem wir die zuletzt verwendete Spalte finden müssen. Nehmen Sie beispielsweise dieselben Daten wie oben.
Um von Zelle A1 zur zuletzt verwendeten Zelle zu gelangen, drücken Sie die Excel-Tastenkombination „Strg + Abwärtspfeil“ , um zur letzten Zelle vor der leeren Zelle zu gelangen.
Geben Sie zunächst die Zelle mit dem Objekt RANGE als A1 an.
Code:
Sub Count_Rows_Example2 () Dim No_Of_Rows As Integer No_Of_Rows = Bereich ("A1") MsgBox No_Of_Rows End Sub
In dieser Zelle müssen wir nach unten gehen, und im Arbeitsblatt verwenden wir Strg + Abwärtspfeil. In VBA verwenden wir jedoch die END-Eigenschaft, wählen diese Eigenschaft aus und öffnen die Klammer, um Optionen anzuzeigen.
Schauen Sie dort mit der END-Taste nach, wir können alle Pfeiltasten wie "xlDown, xlToLeft, xlToRight und xlUp" sehen, da wir mit der Option "xlDown" nach unten gehen müssen.
Code:
Sub Count_Rows_Example2 () Dim No_Of_Rows As Integer No_Of_Rows = Bereich ("A1"). End (xlDown) MsgBox No_Of_Rows End Sub
Dadurch gelangen Sie vor jeder Unterbrechung zur letzten Zelle. In der aktiven Zelle benötigen wir nun die Zeilennummer. Verwenden Sie daher die ROW-Eigenschaft.
Code:
Sub Count_Rows_Example2 () Dim No_Of_Rows As Integer No_Of_Rows = Bereich ("A1"). End (xlDown) .Row MsgBox No_Of_Rows End Sub
OK, fertig. Dies zeigt nun die letzte Zeilennummer an, und das ist die Anzahl einer Anzahl von Zeilen.
In Zeilen haben wir also Daten.
Beispiel 3 - Letzte verwendete Zeile suchen
Das Finden der zuletzt verwendeten Zeile ist so wichtig, um zu entscheiden, wie oft die Schleife ausgeführt werden muss, und auch bei der obigen Methode stoppt die letzte Zeile, um auszuwählen, ob eine Haltepunktzelle vorhanden ist. In dieser Methode können wir also die zuletzt verwendete Zeile ohne finden irgendwelche Probleme.
Öffnen Sie die CELL-Eigenschaft.
Code:
Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (MsgBox No_Of_Rows End Sub
Jetzt müssen wir zunächst die Zeilennummer erwähnen. Das Problem hierbei ist, dass wir nicht sicher sind, wie viele Datenzeilen wir haben. Wir können also sofort zur letzten Zeile des Arbeitsblatts gehen, um diese Zeilen zu erwähnen .COUNT-Eigenschaft.
Code:
Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, MsgBox No_Of_Rows End Sub
Als nächstes müssen wir erwähnen, in welcher Spalte wir die zuletzt verwendete Zeile finden. In diesem Fall finden wir in der ersten Spalte also 1.
Code:
Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, 1) MsgBox No_Of_Rows End Sub
In diesem Moment gelangen Sie zur letzten Zelle der ersten Spalte. Von dort aus müssen wir nach oben gehen, um zur zuletzt verwendeten Zelle zu gelangen. Verwenden Sie daher die Eigenschaft End (xlUp).
Code:
Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Zellen (Rows.Count, 1) .End (xlUp) MsgBox No_Of_Rows End Sub
Damit gelangen Sie zur zuletzt verwendeten Zelle in Spalte 1, und in dieser Zelle benötigen wir die Zeilennummer. Verwenden Sie also die ROW-Eigenschaft, um die Zeilennummer abzurufen.
Code:
Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Zellen (Rows.Count, 1) .End (xlUp) .Row MsgBox No_Of_Rows End Sub
Dinge, an die man sich erinnern sollte
- COUNT gibt eine Reihe von Zeilen im Arbeitsblatt an.
- Wenn Sie einen Bereich haben, werden mehrere im Bereich ausgewählte Zeilen angezeigt.
- Die ROW-Eigenschaft gibt die aktive Zellenzeilennummer zurück.
