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.
Wenn Sie eine kostenlose Testversion (30-Tag) dieses Hilfsprogramms nutzen möchten, klicken Sie bitte hier, um es herunterzuladen, und gehen Sie dann zur Anwendung der Berechnung gemäß den oben genannten Schritten.
Demo: Finde und wähle die letzte Zeile oder Spalte mit Daten mit Kutools für Excel
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins