Inhaltsverzeichnis
Wenn Sie nach einigen der einfachsten Möglichkeiten suchen, mit Excel Zeilen mit Daten in einer Spalte zu zählen VBA Beginnen wir also mit unserem Hauptartikel, um mehr über das einfache Zählen von Zeilen mit Daten in einer Spalte zu erfahren.
Arbeitsbuch herunterladen
Zeilen mit Daten zählen.xlsm9 Möglichkeiten zum Zählen von Zeilen mit Daten in einer Spalte mit Excel VBA
Der folgende Datensatz enthält die Verkaufsdaten eines Unternehmens. Wir werden verschiedene Spalten mit Daten aus diesem Datensatz verwenden, um verschiedene Möglichkeiten zum Zählen von Zeilen auf der Grundlage der Daten einer Spalte zu erklären.
Wir haben verwendet Microsoft Excel 365 Version, Sie können aber auch jede andere Version verwenden, die Ihnen zusagt.
Methode 1: Verwenden der VBA-Eigenschaft Rows.Count zum Zählen von Zeilen mit Daten in einer Spalte in Excel
Hier zählen wir die Zeilen der Tabelle Vertrieb Spalte mit den Verkaufswerten für die Produkte unter Verwendung der Eigenschaft Rows (Anzahl) von VBA .
Stufe-01 :
➤ Weiter zu Entwickler Tab>> Visual Basic Option.
Dann wird die Visual Basic-Editor wird sich öffnen.
➤ Weiter zu einfügen. Tab>> Modul Option.
Danach wird eine Modul erstellt werden.
Schritt-02 :
➤ Schreiben Sie den folgenden Code
Sub countrows1() Dim X As Integer X = Range("D4:D11").Rows.Count MsgBox "Anzahl der verwendeten Zeilen ist " & X End Sub Hier haben wir erklärt X als Integer , "D4:D11" ist der Bereich, auf dessen Grundlage wir die Zeilen zählen, und schließlich haben wir die Zeilennummer der X .
Ein Nachrichtenfeld ( MsgBox ) gibt uns das Ergebnis als Gesamtzahl der Zeilen aus.
➤ Presse F5 .
Sie erhalten dann die Gesamtzahl der Zeilen mit Daten als 8 der Vertrieb Spalte in einem Nachrichtenfeld.
Lesen Sie mehr: Excel VBA zum Zählen von Zeilen mit Daten (4 Beispiele)
Methode 2: End-Eigenschaft zum Zählen von Zeilen mit Daten in der Spalte verwenden
In diesem Abschnitt werden wir die Eigenschaft beenden von VBA um die Zeilen mit den Verkaufswerten der Vertrieb Spalte.
Schritte :
➤ Folgen Stufe-01 von Methode-1 .
➤ Schreiben Sie den folgenden Code
Sub countrows2() Dim X As Integer X = Range("D4").End(xlDown).Row MsgBox "Anzahl der verwendeten Zeilen ist " & (X - 3) End Sub Hier haben wir erklärt X als Integer , "D4" ist der Startwert des Bereichs, auf dessen Grundlage wir die Zeilen zählen, und schließlich haben wir die Zeilennummer an X . X gibt uns die letzte verwendete Zeilennummer und nicht die Gesamtzahl der verwendeten Zeilen dieser Spalte. Um die Gesamtzahl der Zeilen zu erhalten, haben wir also Folgendes abgezogen 3 ( Startreihe Nummer-1 = 4-1 = 3 ) von X .
Ein Nachrichtenfeld ( MsgBox ) wird die Gesamtzahl der Zeilen angezeigt.
➤ Presse F5 .
Danach haben Sie 8 als die Gesamtzahl der Zeilen der Datei Vertrieb Spalte in einem Nachrichtenfeld.
Lesen Sie mehr: Zählen von Zeilen mit Daten in Excel (4 Formeln)
Methode 3: Verwendung der Kombination aus der Eigenschaft Rows.Count und der Eigenschaft End
Hier werden wir die Kombination der beiden Eigenschaften von VBA wie die Eigenschaft Rows (Anzahl) und die Eigenschaft beenden zusammen, um die Gesamtanzahl der Zeilen der Datei Vertrieb Spalte.
Schritte :
➤ Folgen Stufe-01 von Methode-1 .
➤ Schreiben Sie den folgenden Code
Sub countrows3() Dim X As Integer X = Cells(Rows.Count, 4).End(xlUp).Row MsgBox "Anzahl der verwendeten Zeilen ist " & (X - 3) End Sub Hier haben wir erklärt X als Integer , 4 in (Zeilen. Anzahl, 4) ist für die Vertrieb Spalte, anhand derer wir die Zeilen zählen, und schließlich haben wir die Zeilennummer der X .
X gibt die letzte verwendete Zeilennummer zurück, nicht die Gesamtzahl der verwendeten Zeilen dieser Spalte. Um die Gesamtzahl der Zeilen zu erhalten, haben wir also die 3 ( Startreihe Nummer-1 = 4-1 = 3 ) von X .
Ein Nachrichtenfeld ( MsgBox ) wird die Gesamtzahl der Zeilen angezeigt.
➤ Presse F5 .
Danach werden wir 8 als die Gesamtzahl der Zeilen der Datei Vertrieb Spalte in einem Nachrichtenfeld.
Verwandte Inhalte: Zählen von Zeilen mit mehreren Kriterien in Excel (6 Methoden)
Methode 4: Verwenden der VBA-Auswahleigenschaft zum Zählen von Zeilen mit Daten in einer Spalte in Excel
Sie können die Eigenschaft der Auswahl auch zum Zählen der Gesamtzeilen auf der Grundlage der Daten des Vertrieb Spalte.
Schritte :
➤ Folgen Stufe-01 von Methode-1 .
➤ Schreiben Sie den folgenden Code
Sub countrows4() Dim X As Integer X = Selection.Rows.Count MsgBox "Anzahl der verwendeten Zeilen ist " & X End Sub Hier haben wir erklärt X als Integer werden hier die Zeilen des ausgewählten Bereichs gezählt, und schließlich haben wir die Zeilennummer an X .
Ein Nachrichtenfeld ( MsgBox ) gibt uns das Ergebnis als Gesamtzahl der Zeilen aus.
Dann müssen wir zum Hauptblatt zurückkehren.
➤ Wählen Sie den Bereich der Vertrieb und gehen Sie dann in die Spalte Entwickler Tab>> Makros Option.
Danach wird die Makro wird ein Dialogfeld angezeigt.
➤ Wählen Sie die Makro-Name Zählreihen4 und drücken Sie dann die ausführen. Option.
Schließlich erhalten wir die folgende Meldung "Anzahl der verwendeten Zeilen ist 8" .
Lesen Sie mehr: Zählen von Zeilen mit VBA in Excel (5 Ansätze)
Methode 5: Zählen von Zeilen mit Daten in einer Spalte mit der Funktion FIND
Hier werden wir die FIND-Funktion um die Zeilen mit Textstrings in der Datei Region Spalte.
Schritte :
➤ Folgen Stufe-01 von Methode-1 .
➤ Schreiben Sie den folgenden Code
Sub CountRows5() Dim X As Integer Dim rng As Range Set rng = Range("C4:C11") With rng X = .Find(What:="*", LookIn:=xlValues, SearchDirection:=xlPrevious).Row End With MsgBox "Anzahl der verwendeten Zeilen ist " & (X - 3) End Sub Hier haben wir erklärt X als Integer , rng als Bereich , "C4:C11" ist der Bereich, auf dessen Grundlage wir die Zeilen zählen, und schließlich haben wir ihn der Spalte rng .
Wir haben die MIT Anweisung, um die Wiederholung der Verwendung des Objektnamens zu vermeiden, wie rng .
Die Verwendung des FIND-Funktion , X gibt uns die letzte verwendete Zeilennummer und nicht die Gesamtzahl der verwendeten Zeilen dieser Spalte. Um die Gesamtzahl der Zeilen zu erhalten, haben wir also Folgendes abgezogen 3 ( Startreihe Nummer-1 = 4-1 = 3 ) von X .
Ein Nachrichtenfeld ( MsgBox ) wird die Gesamtzahl der Zeilen angezeigt.
➤ Presse F5 .
Schließlich haben Sie 8 als die Gesamtzahl der Zeilen der Datei Vertrieb Spalte in einem Nachrichtenfeld.
Verwandte Inhalte: Excel Count Visible Rows (Formel und VBA-Code)
Ähnliche Lektüre:
- Zählen von Zeilen in einer Gruppe mit einer Pivot-Tabelle in Excel (Schritt-für-Schritt-Anleitung)
- Excel VBA: Zählen von Zeilen in einem Blatt (5 Beispiele)
Methode 6: Zählen von nicht leeren Zeilen mit Daten in einer Spalte mit VBA
Hier haben wir einige leere Zellen in der Vertrieb Spalte (wir haben einige Werte für diese Methode entfernt) und die Verwendung einer VBA Code wird nur die Gesamtzahl der Zeilen mit Werten gezählt.
Schritte :
➤ Folgen Stufe-01 von Methode-1 .
➤ Schreiben Sie den folgenden Code
Sub countrows6() Dim X As Long Dim Y, rng As Range Set rng = Range("D4:D11") With rng For Each Y In .Rows If Application.CountA(Y)> 0 Then X = X + 1 End If Next End With MsgBox "Anzahl der verwendeten Zeilen ist " & X End Sub Hier haben wir erklärt X als Lang , Y und rng als Bereich , "D4:D11" ist der Bereich, auf dessen Grundlage wir die Zeilen zählen, und schließlich haben wir ihn der Spalte rng .
Die FÜR Schleife prüft, ob jede der Zellen dieses Bereichs einen Wert enthält, indem sie die COUNTA-Funktion und für die Zellen mit Werten, X wird inkrementiert um 1 jedes Mal.
Schließlich erhalten wir die Gesamtzahl der Zeilen mit nicht leeren Zellen über ein Nachrichtenfeld.
➤ Presse F5 .
Letztendlich werden Sie 5 als die Gesamtzahl der nicht leeren Zeilen der Tabelle Vertrieb Spalte in einem Nachrichtenfeld.
Lesen Sie mehr: Gefilterte Zeilen in Excel mit VBA zählen (Schritt-für-Schritt-Anleitung)
Methode-7: Zählen von Zeilen mit einem bestimmten Wert
Hier zählen wir die Gesamtzahl der Zeilen mit einem Verkaufswert von $2,522.00 von der Vertrieb Spalte.
Schritte :
➤ Folgen Stufe-01 von Methode-1 .
➤ Schreiben Sie den folgenden Code
Sub countrows7() Dim X As Long Dim Y, rng As Range Set rng = Range("D4:D11") With rng For Each Y In .Rows If Application.CountIf(Y, 2522)> 0 Then X = X + 1 End If Next End With MsgBox "Anzahl der verwendeten Zeilen ist " & X End Sub Hier haben wir erklärt X als Lang , Y und rng als Bereich , "D4:D11" ist der Bereich, auf dessen Grundlage wir die Zeilen zählen, und schließlich haben wir ihn der Spalte rng .
Die FÜR Schleife prüft, ob eine der Zellen dieses Bereichs den Verkaufswert enthält 2522 unter Verwendung der COUNTIF-Funktion und für die Zellen, die diesen Wert haben, X wird inkrementiert um 1 jedes Mal.
Schließlich erhalten wir die Gesamtzahl der Zeilen mit dem Wert von 2522 über eine Nachrichtenbox.
➤ Presse F5 .
Letztendlich werden Sie Folgendes haben 3 als die Gesamtzahl der Zeilen der Datei Vertrieb Spalte, die den Verkaufswert von $2,522.00 in einem Nachrichtenfeld.
Lesen Sie mehr: Excel VBA: Zählen von Zeilen mit bestimmten Daten (8 Beispiele)
Methode 8: Zählen von Zeilen mit Werten, die größer als ein bestimmter Wert sind
In diesem Abschnitt wird die Gesamtzahl der Zeilen mit Werten größer als $3000.00 im Vertrieb Spalte.
Schritte :
➤ Folgen Stufe-01 von Methode-1 .
➤ Schreiben Sie den folgenden Code
Sub countrows8() Dim X As Long Dim Y, rng As Range Set rng = Range("D4:D11") With rng For Each Y In .Rows If Application.CountIf(Y, ">3000")> 0 Then X = X + 1 End If Next End With MsgBox "Anzahl der verwendeten Zeilen ist " & X End Sub Hier haben wir erklärt X als Lang , Y und rng als Bereich , "D4:D11" ist der Bereich, auf dessen Grundlage wir die Zeilen zählen, und schließlich haben wir ihn der Spalte rng .
Die FÜR Schleife prüft, ob eine der Zellen dieses Bereichs einen Verkaufswert enthält, der größer ist als 3000 unter Verwendung der COUNTIF-Funktion (oder Sie können auch andere Bedingungen wie kleiner als, größer als oder gleich usw. verwenden) und für die Zellen mit diesem Wert, X wird inkrementiert um 1 jedes Mal.
Schließlich erhalten wir die Gesamtzahl der Zeilen mit Werten größer als 3000 über eine Nachrichtenbox.
➤ Presse F5 .
Danach haben Sie 3 als die Gesamtzahl der Zeilen der Datei Vertrieb Spalte mit den Verkaufswerten größer als $3,000.00 in einem Nachrichtenfeld.
Lesen Sie mehr: Wie Excel Zeilen mit Wert zählt (8 Wege)
Methode 9: Zählen von Zeilen mit einer bestimmten Textzeichenfolge
Wir erhalten hier die Anzahl der Zeilen, die Apfel genau oder teilweise in der Produkt Spalte.
Schritte :
➤ Folgen Stufe-01 von Methode-1 .
➤ Schreiben Sie den folgenden Code
Sub countrows9() Dim X As Long Dim Y, rng As Range Set rng = Range("B4:B11") With rng For Each Y In .Rows If Application.CountIf(Y, "*Apfel*")> 0 Then X = X + 1 End If Next End With MsgBox "Anzahl der verwendeten Zeilen ist " & X End Sub Hier haben wir erklärt X als Lang , Y und rng als Bereich , "B4:B11" ist der Bereich, auf dessen Grundlage wir die Zeilen zählen, und schließlich haben wir ihn der Spalte rng .
Die FÜR Schleife prüft, ob eine der Zellen in diesem Bereich die Textzeichenfolge "anwenden" unter Verwendung der COUNTIF-Funktion (hier werden sowohl die exakten Treffer als auch die Teiltreffer gezählt, indem die Sternchen Symbol vor und nach der Zeichenfolge) und für die Zellen mit diesem Wert, X wird inkrementiert um 1 jedes Mal.
Schließlich erhalten wir die Gesamtzahl der Zeilen mit dem Textstring Apfel über eine Nachrichtenbox.
➤ Presse F5 .
Dann haben Sie 2 als die Gesamtzahl der Zeilen der Datei Produkt Spalte mit den Textstrings Apfel und Ananas in einem Nachrichtenfeld.
Lesen Sie mehr: Zählen von Zeilen mit Text in Excel (die 8 einfachsten Methoden)
Praxisteil
Damit Sie selbst üben können, haben wir für Sie eine Praxis Abschnitt wie unten in einem Blatt namens Praxis Bitte tun Sie es selbst.
Schlussfolgerung
In diesem Artikel haben wir versucht, die Möglichkeiten zum Zählen von Zeilen mit Daten in einer Spalte mit Excel zu behandeln VBA Ich hoffe, es ist nützlich für Sie. Wenn Sie Vorschläge oder Fragen haben, können Sie diese gerne im Kommentarbereich stellen.
