Cum se folosește VBA pentru a merge la ultimul rând într-o foaie Excel

Unul dintre lucrurile minunate despre Microsoft Excel este abilitatea de a automatiza funcții utile. Atunci când o foaie de calcul pentru afaceri conține sute sau chiar mii de rânduri, este posibil să aveți dificultăți la manevrare prin celulele sale. Eliminați această problemă construindu-vă propria funcție de căutare. Utilizând câteva linii de cod, puteți crea un Sub VBA care găsește ultimul rând dintr-o foaie de calcul și merge automat la acesta.

1

Lansați Excel și deschideți o foaie de calcul care conține mai multe coloane.

2

Apăsați „Alt-F11” pentru a deschide editorul „Visual Basic” și faceți clic pe „Insert | Modul." VBA adaugă un nou modul la fereastra Proiect.

3

Lipiți următorul cod în fereastra de editare care apare în dreapta ferestrei Proiect:

Sub SelectLastRow () Dim finalRow As Integer

finalRow = ActiveSheet.UsedRange.Rows.Count

Dacă finalRow = 0 Atunci finalRow = 1 End If

Rânduri (finalRow). Selectați End Sub

Această secundară determină ultimul rând al foii de calcul examinând proprietatea Numărare a colecției de rânduri. Sub apoi stochează acea valoare în variabila finalRow. Declarația finală a Sub-ului transmite valoarea finalRow către metoda VBA Select.

4

Apăsați „F5” pentru a rula Sub. Metoda Select selectează ultimul rând al foii de calcul, merge la rândul respectiv și îl evidențiază.

Postări recente