Jak znaleźć ostatni wiersz lub kolumnę z danymi w programie Excel?
W dużym arkuszu, jeśli chcesz szybko i łatwo określić ostatni wiersz lub kolumnę zawierającą wartości, możesz po prostu przeciągnąć pasek przewijania, aby go znaleźć. Ale będzie to bolesne, jeśli w arkuszu są tysiące wierszy danych. W tym artykule omówię przydatny kod VBA, aby rozwiązać to zadanie.
Znajdź ostatni wiersz lub kolumnę z danymi za pomocą kodu VBA
Znajdź i wybierz ostatni wiersz lub kolumnę z danymi za pomocą Kutools for Excel
Znajdź ostatni wiersz lub kolumnę z danymi za pomocą kodu VBA
Większość z nas może rozważyć zlokalizowanie ostatniej komórki przez naciśnięcie Ctrl + End klawisze, aby znaleźć ostatni wiersz i kolumnę, ale klawisz skrótu nie zlokalizuje dokładnej komórki wartości, jeśli istnieją komórki, które mają formatowanie poniżej zakresu danych. Więc tutaj użyj następującego kodu VBA:
1. Aktywuj arkusz roboczy, w którym chcesz określić ostatni wiersz lub kolumnę z danymi.
2. Przytrzymaj ALT + F11 klawisze, aby otworzyć Okno Microsoft Visual Basic for Applications.
3. Następnie kliknij wstawka > Modułi wklej następujący kod w Okno modułu.
Kod VBA: znajdź ostatni wiersz z danymi
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. A następnie naciśnij F5 Aby uruchomić ten kod, pojawi się okienko zachęty z informacją o numerze wiersza używanego zakresu. Zobacz zrzut ekranu:
5. Kliknij dalej OK przycisk, tym razem ostatni numer wiersza z wartościami został wyświetlony jak na poniższym zrzucie ekranu:
Uwaga: Aby znaleźć ostatnią kolumnę z danymi, zastosuj ten kod:
Kod VBA: znajdź ostatnią kolumnę z danymi
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
Znajdź i wybierz ostatni wiersz lub kolumnę z danymi za pomocą Kutools for Excel
Jeśli chcesz bezpośrednio znaleźć i zaznaczyć ostatni wiersz lub kolumnę z danymi w programie Excel, rozszerzenie Wybierz Ostatni rząd oraz Wybierz ostatnią kolumnę narzędzia Kutools z programu Excel może Ci pomóc. Wykonaj następujące czynności.
Przed złożeniem wniosku Kutools dla programu ExcelProszę pobierz i zainstaluj najpierw.
1. Jeśli chcesz znaleźć i zaznaczyć ostatni wiersz z danymi, kliknij Kutools > Wybierz > Wybierz ostatnią komórkę > Ostatni wiersz. Zobacz zrzut ekranu:
Note: Aby znaleźć i wybrać ostatnią kolumnę z danymi, kliknij Kutools > Wybierz > Wybierz ostatnią komórkę > Ostatnia kolumna.
Następnie ostatni wiersz lub kolumna z danymi w bieżącym arkuszu zostanie natychmiast znaleziony i zaznaczony.
Jeśli chcesz mieć bezpłatną wersję próbną (30 dni) tego narzędzia, kliknij, aby go pobrać, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.
Znajdź i wybierz ostatni wiersz lub kolumnę z danymi za pomocą Kutools for Excel
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!