So verwenden Sie VBA, um zur letzten Zeile in einer Excel-Tabelle zu gelangen

Eine der großartigsten Eigenschaften von Microsoft Excel ist die Möglichkeit, nützliche Funktionen zu automatisieren. Wenn eine Geschäftskalkulationstabelle Hunderte oder sogar Tausende von Zeilen enthält, kann es schwierig sein, durch ihre Zellen zu manövrieren. Beseitigen Sie dieses Problem, indem Sie Ihre eigene Suchfunktion erstellen. Mithilfe einiger Codezeilen können Sie ein VBA-Sub erstellen, das die letzte Zeile in einer Kalkulationstabelle findet und automatisch dorthin wechselt.

1

Starten Sie Excel und öffnen Sie eine Tabelle, die mehrere Spalten enthält.

2

Drücken Sie „Alt-F11“, um den Editor „Visual Basic“ zu öffnen, und klicken Sie auf „Einfügen | Modul. “VBA fügt ein neues Modul zum Projektfenster hinzu.

3.

Fügen Sie den folgenden Code in das Bearbeitungsfenster ein, das rechts neben dem Projektfenster angezeigt wird:

Sub SelectLastRow () Dim finalRow As Integer

finalRow = ActiveSheet.UsedRange.Rows.Count

Wenn finalRow = 0, dann finalRow = 1 End If

Zeilen (finalRow) .Wählen Sie End Sub

Dieses Sub bestimmt die letzte Zeile der Kalkulationstabelle, indem die Count-Eigenschaft der Zeilensammlung untersucht wird. Der Sub speichert dann diesen Wert in der finalRow-Variablen. Die letzte Anweisung des Sub-Objekts übergibt den Wert von finalRow an die VBA-Select-Methode.

4

Drücken Sie "F5", um das Sub zu starten. Die Select-Methode sucht die letzte Zeile der Tabelle, geht zu dieser Zeile und hebt sie hervor.

Spitze

• Der Befehl Rows (finalRow) .Select ist nützlich, um zu einer beliebigen Zeile in einer Kalkulationstabelle zu springen. Wenn Sie den Wert von finalRow auf einen anderen Wert (z. B. 1) setzen, wird der Befehl Select in diese Zeile verschoben, wenn er ausgeführt wird.