Wie findet man die letzte Zeile oder Spalte mit Daten in Excel?

In einem großen Arbeitsblatt, wenn Sie schnell und einfach die letzte Zeile oder Spalte bestimmen möchten, die Werte enthält, können Sie einfach die Bildlaufleiste ziehen, um sie zu finden. Aber es wird mühsam sein, wenn Tausende von Datenzeilen in Ihrem Arbeitsblatt vorhanden sind. In diesem Artikel werde ich über einige nützliche VBA-Codes sprechen, um Ihnen bei dieser Aufgabe zu helfen.

Finden der letzten Zeile oder Spalte mit Daten mithilfe von VBA-Code
Finde und wähle die letzte Zeile oder Spalte mit Daten mit Kutools für Excel

Finden der letzten Zeile oder Spalte mit Daten mithilfe von VBA-Code

Die meisten von uns denken vielleicht daran, die letzte Zelle durch Drücken der Tastenkombination Strg + Ende zu finden, um die letzte Zeile und Spalte zu lokalisieren, aber diese Tastenkombination wird nicht die genaue Zelle mit Werten finden, wenn es einige Zellen gibt, die unterhalb des Datenbereichs formatiert sind. Verwenden Sie daher den folgenden VBA-Code:

1. Aktivieren Sie Ihr Arbeitsblatt, in dem Sie die letzte Zeile oder Spalte mit Daten bestimmen möchten.

2. Halten Sie die ALT + F11-Tasten gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

3. Klicken Sie dann auf Einfügen > Modul und fügen Sie den folgenden Code im Modulfenster ein.

VBA-Code: Finde die letzte Zeile mit Daten

Sub sblastRowOfASheet()
'Update 20140603
Dim xLastRow As Long
xLastRow = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Row
MsgBox "Last Used Row: " & xLastRow
Do While Application.CountA(ActiveSheet.Rows(xLastRow)) = 0 And xLastRow <> 1
    xLastRow = xLastRow - 1
Loop
MsgBox "Last Row with Data: " & xLastRow
End Sub

4. Drücken Sie dann die F5-Taste, um diesen Code auszuführen, und ein Dialogfeld wird angezeigt, das Ihnen die Zeilennummer des genutzten Bereichs mitteilt. Siehe Screenshot:

5. Klicken Sie weiter auf die Schaltfläche OK, dieses Mal wird die letzte Zeilennummer mit Werten wie im folgenden Screenshot angezeigt:

Hinweis: Um die letzte Spalte mit Daten zu finden, wenden Sie bitte diesen Code an:

VBA-Code: Finde die letzte Spalte mit Daten

Sub sblastcolumnOfASheet()
'Update 20140603
Dim xLastcolumn As Long
xLastcolumn = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Column
MsgBox "Last Used column: " & xLastcolumn
Do While Application.CountA(ActiveSheet.Columns(xLastcolumn)) = 0 And xLastcolumn <> 1
    xLastcolumn = xLastcolumn - 1
Loop
MsgBox "Last column with Data: " & xLastcolumn
End Sub

Finde und wähle die letzte Zeile oder Spalte mit Daten mit Kutools für Excel

Wenn Sie direkt die letzte Zeile oder Spalte mit Daten in Excel finden und auswählen möchten, können Ihnen die Dienstprogramme „Letzte Zeile auswählen“ und „Letzte Spalte auswählen“ von Kutools für Excel helfen. Bitte gehen Sie wie folgt vor.

1. Wenn Sie die letzte Zeile mit Daten finden und auswählen möchten, klicken Sie bitte auf Kutools > Auswählen > Letzte Zelle auswählen > Letzte Zeile. Siehe Screenshot:

Hinweis: Um die letzte Spalte mit Daten zu finden und auszuwählen, klicken Sie bitte auf Kutools > Auswählen > Letzte Zelle auswählen > Letzte Spalte.

Dann wird die letzte Zeile oder Spalte mit Daten im aktuellen Arbeitsblatt sofort gefunden und ausgewählt.

Demo: Finde und wähle die letzte Zeile oder Spalte mit Daten mit Kutools für Excel