Wie finde ich die letzte Zeile oder Spalte mit Daten in Excel?
Wenn Sie in einem großen Arbeitsblatt schnell und einfach die letzte Zeile oder Spalte ermitteln möchten, die Werte enthält, können Sie einfach die Bildlaufleiste ziehen, um sie zu finden. Es ist jedoch schmerzhaft, wenn Ihr Arbeitsblatt Tausende von Datenzeilen enthält. In diesem Artikel werde ich über nützlichen VBA-Code sprechen, mit dem Sie diese Aufgabe lösen können.
Suchen Sie die letzte Zeile oder Spalte mit Daten mithilfe von VBA-Code
Suchen und wählen Sie mit Kutools for Excel die letzte Zeile oder Spalte mit Daten aus
Suchen Sie die letzte Zeile oder Spalte mit Daten mithilfe von VBA-Code
Die meisten von uns können erwägen, die letzte Zelle durch Drücken zu lokalisieren Strg + Ende Tasten, um die letzte Zeile und Spalte zu finden, aber die Tastenkombination findet die genaue Wertezelle nicht, wenn einige Zellen unterhalb des Datenbereichs formatiert sind. Verwenden Sie hier also den folgenden VBA-Code:
1. Aktivieren Sie Ihr Arbeitsblatt, in dem Sie die letzte Zeile oder Spalte mit Daten ermitteln möchten.
2. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen-Fenster.
3. Dann klick Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modulfenster.
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. Und dann drücken F5 Die Taste zum Ausführen dieses Codes und das Eingabeaufforderungsfeld zeigen die Zeilennummer des verwendeten Bereichs an. Siehe Screenshot:
5. Klicken Sie weiter OK Schaltfläche, diesmal wurde die letzte Zeilennummer mit Werten wie folgt 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
Suchen und wählen Sie mit Kutools for Excel die letzte Zeile oder Spalte mit Daten aus
Wenn Sie die letzte Zeile oder Spalte mit Daten in Excel direkt suchen und auswählen möchten, klicken Sie auf Wählen Sie Letzte Zeile und dem Wählen Sie Letzte Spalte Dienstprogramme von Kutools von Excel kann dir helfen. Bitte gehen Sie wie folgt vor.
Vor der Bewerbung Kutools for Excel, Bitte Laden Sie es zuerst herunter und installieren Sie es.
1. Wenn Sie die letzte Zeile mit Daten suchen und auswählen möchten, klicken Sie bitte auf Kutoolen > Auswählen > Wählen Sie Letzte Zelle > Letzte Reihe. Siehe Screenshot:
Note: Um die letzte Spalte mit Daten zu finden und auszuwählen, klicken Sie bitte auf Kutoolen > Auswählen > Wählen Sie Letzte Zelle > Letzte Spalte.
Dann wird die letzte Zeile oder Spalte mit Daten im aktuellen Arbeitsblatt gefunden und sofort ausgewählt.
Wenn Sie eine kostenlose Testversion (30 Tage) dieses Dienstprogramms wünschen, Bitte klicken Sie, um es herunterzuladenund wenden Sie dann die Operation gemäß den obigen Schritten an.
Suchen und wählen Sie mit Kutools for Excel die letzte Zeile oder Spalte mit Daten aus
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 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 Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
