VBA Letzte Reihe

Wenn wir in VBA die letzte Zeile finden müssen, gibt es viele verschiedene Methoden und die am häufigsten verwendete Methode ist die End-Methode (XLDown). Es gibt auch andere Methoden, um den letzten Wert mithilfe der Suchfunktion in VBA End (XLDown) zu finden ). Die Zeile ist der einfachste Weg, um zur letzten Zeile zu gelangen.

Excel VBA Letzte Zeile

Wenn das Schreiben des Codes der erste Fortschritt ist, den Sie in VBA gemacht haben, ist das Dynamisieren des Codes der nächste Schritt für Sie. Excel ist voll von Zellreferenzen, sobald wir auf die Zelle verweisen, wird es repariert. Wenn unsere Daten zunehmen, müssen wir zur Zellreferenz zurückkehren und die Referenzen ändern, um das Ergebnis auf den neuesten Stand zu bringen.

Ein Beispiel finden Sie im folgenden Code.

Code:

 Sub Last_Row_Example1 () Range ("D2"). Value = WorksheetFunction.Sum (Range ("B2: B7")) End Sub 

Der obige Code besagt, dass in D2 der Zellenwert die Summe des Bereichs sein sollte („B2: B7“).

Jetzt werde ich der Liste weitere Werte hinzufügen.

Wenn ich jetzt den Code ausführe, erhalte ich nicht das Aktualisierungsergebnis, sondern bleibe beim alten Bereich, dh Bereich („B2: B7“).

Hier ist der dynamische Code sehr wichtig.

Um den Code dynamisch zu gestalten, ist es sehr wichtig, die zuletzt verwendete Zeile in der Spalte zu finden. In diesem Artikel werden die Möglichkeiten zum Auffinden der letzten Zeile in Excel VBA erläutert.

Wie finde ich die zuletzt verwendete Zeile in der Spalte?

Im Folgenden finden Sie Beispiele, um die zuletzt verwendete Zeile in Excel VBA zu finden.

Sie können diese VBA-Vorlage für die letzte Zeile hier herunterladen - VBA-Vorlage für die letzte Zeile

Methode 1

Bevor ich Ihnen den Code erkläre, möchte ich, dass Sie sich daran erinnern, wie Sie zur letzten Zeile im normalen Arbeitsblatt gelangen.

Wir werden die Tastenkombination Strg + Abwärtspfeil verwenden.

Es führt uns zur zuletzt verwendeten Zeile vor einer leeren Zelle. Wir werden dieselbe Methode auch in VBA verwenden, um die letzte Zeile zu finden.

Schritt 1: Definieren Sie die Variable als LONG.

Code:

 Sub Last_Row_Example2 () Dim LR As Long 'Zum Verständnis von LR = Last Row End Sub 

Schritt 2: Für diese Variable weisen wir die zuletzt verwendete Zeilennummer zu.

Code:

 Sub Last_Row_Example2 () Dim LR As Long 'Zum Verständnis von LR = Last Row LR = End Sub 

Schritt 3: Schreiben Sie den Code als CELLS (Rows.Count,

Code:

 Sub Last_Row_Example2 () Dim LR As Long 'Zum Verständnis von LR = Letzte Zeile LR = Zellen (Rows.Count, End Sub 

Schritt 4: Geben Sie nun die Spaltennummer als 1 an.

Code:

 Sub Last_Row_Example2 () Dim LR As Long 'Zum Verständnis von LR = Last Row LR = Cells (Rows.Count, 1) End Sub 

CELLS (Rows.Count, 1) bedeutet zu zählen, wie viele Zeilen in der ersten Spalte vorhanden sind.

Der obige VBA-Code führt uns also zur letzten Zeile des Excel-Blattes.

Schritt 5: Wenn wir uns in der letzten Zelle des Blattes befinden, um zur zuletzt verwendeten Zeile zu gelangen, drücken wir die Tastenkombination als Strg + Aufwärtspfeiltaste .

In VBA müssen wir den Endschlüssel und höher verwenden, dh End VBA xlUp

Code:

 Sub Last_Row_Example2 () Dim LR As Long 'Zum Verständnis von LR = Letzte Zeile LR = Zellen (Rows.Count, 1) .End (xlUp) End Sub 

Schritt 6: Jetzt gelangen wir von unten zur zuletzt verwendeten Zeile. Jetzt brauchen wir die Zeilennummer davon. Verwenden Sie also die Eigenschaft ROW, um die Zeilennummer zu erhalten.

Code:

 Sub Last_Row_Example2 () Dim LR As Long 'Zum Verständnis von LR = Letzte Zeile LR = Zellen (Rows.Count, 1) .End (xlUp) .Row End Sub 

Schritt 7: Jetzt enthält die Variable die zuletzt verwendete Zeilennummer. Zeigen Sie den Wert dieser Variablen im Meldungsfeld im VBA-Code an.

Code:

 Sub Last_Row_Example2 () Dim LR As Long 'Zum Verständnis von LR = Last Row LR = Cells (Rows.Count, 1) .End (xlUp) .Row MsgBox LR End Sub 

Führen Sie diesen Code mit der Taste F5 oder manuell aus. Die zuletzt verwendete Zeile wird angezeigt.

Ausgabe:

Die zuletzt verwendete Zeile in diesem Arbeitsblatt ist 13.

Jetzt werde ich eine weitere Zeile löschen und den Code ausführen und die Dynamik des Codes sehen.

Ok, jetzt nimmt das Ergebnis automatisch die letzte Zeile.

Dies ist der dynamische VBA-Code für die letzte Zeile.

Wie ich im vorherigen Beispiel gezeigt habe, ändern Sie die Zeilennummer von einem numerischen Wert in LR.

Code:

 Sub Last_Row_Example2 () Dim LR As Long 'Zum Verständnis von LR = Letzte Zeile LR = Zellen (Rows.Count, 1) .End (xlUp) .Row Range ("D2"). Value = WorksheetFunction.Sum (Range ("B2: B & LR)) End Sub 

Ich habe B13 entfernt und den Variablennamen LR hinzugefügt.

Jetzt spielt es keine Rolle, wie viele Zeilen Sie hinzufügen, es wird automatisch die aktualisierte Referenz verwendet.

Methode 2

Wir können die letzte Zeile auch in VBA finden, indem wir das Range-Objekt und die spezielle VBA-Zelleneigenschaft verwenden.

Code:

 Sub Last_Row_Example3 () Dim LR As Long LR = Bereich ("A: A"). SpecialCells (xlCellTypeLastCell) .Row MsgBox LR End Sub 

Der Code gibt Ihnen auch die zuletzt verwendete Zeile. Sehen Sie sich beispielsweise das folgende Arbeitsblatt an.

Wenn ich den Code manuell ausführe oder den F5-Schlüssel verwende, ist das Ergebnis 12, da 12 die zuletzt verwendete Zeile ist.

Ausgabe:

Jetzt werde ich die 12. Zeile löschen und das Ergebnis sehen.

Even though I have deleted one row it is still showing the result as 12.

In order to make this code work we need to hit the save button after every action, then this code will return accurate results.

I have saved the workbook and now see the result.

Method #3

We can find the VBA last row in the used range. Below code also returns the last used row.

Code:

 Sub Last_Row_Example4() Dim LR As Long LR = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row MsgBox LR End Sub 

This will also return the last used row.

Output: