Jak korzystać z VBA, aby przejść do ostatniego wiersza w arkuszu Excel

Jedną z największych zalet programu Microsoft Excel jest możliwość zautomatyzowania przydatnych funkcji. Gdy arkusz kalkulacyjny firmy zawiera setki, a nawet tysiące wierszy, może być trudno manewrować w jego komórkach. Wyeliminuj ten problem, tworząc własną funkcję wyszukiwania. Korzystając z kilku linii kodu, możesz utworzyć subadres VBA, który znajdzie ostatni wiersz w arkuszu kalkulacyjnym i automatycznie przejdzie do niego.

1.

Uruchom program Excel i otwórz arkusz kalkulacyjny zawierający wiele kolumn.

2.

Naciśnij "Alt-F11", aby otworzyć edytor "Visual Basic" i kliknij "Wstaw | Moduł. "VBA dodaje nowy moduł do okna projektu.

3.

Wklej następujący kod w oknie edycji, które pojawia się po prawej stronie okna projektu:

Sub SelectLastRow () Dim finalRow As Integer

finalRow = ActiveSheet.UsedRange.Rows.Count

Jeśli finalRow = 0 Then finalRow = 1 End If

Wiersze (finalRow). Wybierz End Sub

Ten Sub określa ostatni wiersz arkusza kalkulacyjnego, analizując właściwość Count zbioru wierszy. Sub następnie przechowuje tę wartość w zmiennej finalRow. Ostateczne stwierdzenie Suba przekazuje wartość finalRow do metody VBA Select.

4.

Naciśnij "F5", aby uruchomić Sub. Metoda Select znajduje ostatni wiersz arkusza kalkulacyjnego, przechodzi do tego wiersza i podświetla go.

Wskazówka

• Polecenie Wiersze (finalRow) .Wybierz jest przydatne do przeskakiwania do dowolnego wiersza w arkuszu kalkulacyjnym. Jeśli ustawisz wartość finalRow na inną wartość, na przykład 1, polecenie Select przejdzie do tego wiersza po uruchomieniu.