Wie zählt man die Zeilen eines Excel-Arbeitsblatts mit VBA-Makros?

Inhalt

• Anweisungen
• Planen des Makros
• Makro ausführen
• Wie

Manchmal müssen wir wissen, wie viele Zeilen in einer Excel-Tabelle verwendet werden, damit wir eine Formel oder sogar ein VBA-Makro erstellen können. Glücklicherweise gibt es einige einfache Möglichkeiten, dies zu tun, und Excel VBA ist nur eine davon.Der einfachste Weg, diese Informationen herauszufinden, besteht darin, am Ende Ihres Arbeitsblatts nach der Nummer rechts vom letzten Datenpunkt zu suchen. Mit VBA ist diese Berechnung jedoch extrem einfach.

Anweisungen

Mit VBA ist es extrem einfach, die Anzahl der Zeilen in einem Excel-Arbeitsblatt zu berechnen (BananaStock / BananaStock / Getty Images)

Planen des Makros

1. Öffnen Sie Ihr Excel-Arbeitsblatt und den VBA-Editor, indem Sie "Alt + F11" drücken.

2. Starten Sie eine neue VBA-Projektdatei, indem Sie mit der rechten Maustaste auf Ihre Arbeitsmappe klicken, im Menü auf der rechten Seite angezeigt werden, und "Neu" auswählen.

3. Starten Sie die neue Funktion, indem Sie "Sub CountRows ()" eingeben. Dies teilt dem VBA-Compiler mit, dass für die Projektdatei ein neues Unterprogramm vorhanden ist. Wenn Sie es vorziehen, das Unterprogramm umzubenennen, ändern Sie den Text "CountRows" in einen beliebigen Namen, dem die oben angegebenen Klammern folgen müssen, beispielsweise "YourName ()".

   
   

4. Erstellen Sie in der nächsten Zeile eine Variable mit dem Text "Dim Count as Long".

5. Geben Sie den folgenden Code ein:

   Count = 0 Count = Count + 1 ActiveCell.Offset (1, 0). Loop bis IsEmpty auswählen (ActiveCell.Offset (0, 1))

   Dadurch wird das Compilerprogramm darüber informiert, dass die Variable Count analysiert und die Zeilen des gesamten Arbeitsblatts gezählt werden müssen. Der Code fügt der Gesamtzahl eine Variable hinzu und wechselt dann zur nächsten Zelle, solange diese leer ist. Wenn es eine leere Zelle erreicht, wird die Ausführung angehalten.

6. Aktivieren Sie ein Textfeld, indem Sie eine neue Zeile mit dem Text "MsgBox Count" hinzufügen. Daraufhin wird ein Popup-Fenster mit der Gesamtanzahl der Zeilen angezeigt. Um die Box etwas nützlicher zu machen, können Sie zusätzlichen Text eingeben. Zeile umbenennen in:

   MsgBox "Es gibt" [Anzahl Anzahl] "Zeilen"

   
   

   Sie können den Text in Anführungszeichen wie gewünscht ändern.

7. Geben Sie schließlich "End Sub" in einer neuen Zeile ein, um die Unterprogrammfunktion zu beenden.

Makro ausführen

1. Gehen Sie zurück zu Ihrem Excel-Arbeitsblatt und speichern Sie es.

2. Markieren Sie die erste Spaltenzelle, die die größte Anzahl von Daten enthält. Diese Spalte sollte keine leeren Zellen von oben nach unten enthalten.

3. Öffnen Sie das Menü "Extras" und wählen Sie "Makros" aus, um ein Dialogfeld anzuzeigen, das alle für das Arbeitsblatt programmierten Makros enthält.

4. Wählen Sie das in Abschnitt 1 erstellte Makro mit dem Namen "CountRows" oder einem beliebigen anderen Namen aus, und klicken Sie auf "Ausführen". Wenn der Vorgang abgeschlossen ist, zeigt das Makro ein Popup-Textfeld an, in dem die Anzahl der gefüllten Zeilen angegeben wird

Wie

• Wenn Sie nur eine Nummer benötigen, ist es einfacher und einfacher, die Zeilen anhand einer Formel zu zählen. Geben Sie in eine leere Zelle "= COUNT (A: A, IF (A> 0,1,0))" ein, wobei A die Spalte ist, deren Zeilenanzahl gezählt wird.