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. In dem Moment, in dem wir uns auf die Zelle beziehen, wird sie fixiert. 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 in D2, dass 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.
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 = Letzte Zeile LR = Zellen (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 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 = Last Row LR = Cells (Rows.Count, 1) .End (xlUp) End Sub
Schritt 6: Nun 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. Es wird die zuletzt verwendete Zeile angezeigt.
Ausgabe:
Die zuletzt verwendete Zeile in diesem Arbeitsblatt ist 13.
Now I will delete one more line and run the code and see the dynamism of the code.
Ok, now the result automatically takes the last row.
This is what the dynamic VBA last row code is.
As I showed in the earlier example, change the row number from a numeric value to LR.
Code:
Sub Last_Row_Example2() Dim LR As Long 'For understanding LR = Last Row LR = Cells(Rows.Count, 1).End(xlUp).Row Range("D2").Value = WorksheetFunction.Sum(Range("B2:B" & LR)) End Sub
I have removed B13 and added the variable name LR.
Now it does not matter how many rows you add. It will automatically take the updated reference.
Method #2
We can also find the last row in VBA by using the Range object and special VBA cells property as well.
Code:
Sub Last_Row_Example3() Dim LR As Long LR = Range("A:A").SpecialCells(xlCellTypeLastCell).Row MsgBox LR End Sub
Der Code gibt Ihnen auch die zuletzt verwendete Zeile. Schauen Sie sich zum Beispiel das folgende Arbeitsblatt an.
Wenn ich den Code manuell oder mit der Taste F5 ausführe, ist das Ergebnis 12, da 12 die zuletzt verwendete Zeile ist.
Ausgabe:
Jetzt werde ich die 12. Zeile löschen und das Ergebnis sehen.
Obwohl ich eine Zeile gelöscht habe, wird das Ergebnis immer noch als 12 angezeigt.
Damit dieser Code funktioniert, müssen wir nach jeder Aktion auf die Schaltfläche Speichern klicken. Dann gibt dieser Code genaue Ergebnisse zurück.
Ich habe die Arbeitsmappe gespeichert und sehe jetzt das Ergebnis.
Methode 3
Wir können die letzte Zeile des VBA im verwendeten Bereich finden. Der folgende Code gibt auch die zuletzt verwendete Zeile zurück.
Code:
Sub Last_Row_Example4 () Dim LR As Long LR = ActiveSheet.UsedRange.Rows (ActiveSheet.UsedRange.Rows.Count) .Row MsgBox LR End Sub
Dies gibt auch die zuletzt verwendete Zeile zurück.
Ausgabe:
