VBA Găsiți ultimul rând în Excel (5 moduri)

Hugh West

16-10-2023 Macros & Excel VBA
  • Imparte Asta
Hugh West

În VBA puteți utiliza diferite metode pentru a găsi ultimul rând. În acest articol, voi explica diferite metode VBA pentru a găsi ultimul rând în Excel.

Pentru ca această explicație să fie vizibilă, voi folosi un set de date de exemplu. În setul de date există 4 coloane care reprezintă informații despre vânzări. Aceste coloane sunt Persoană de vânzări, regiune, produs, și Preț .

Descărcați Pentru a practica

VBA Găsiți ultimul rând.xlsm

Modalități de a găsi VBA Ultimul rând în Excel

1. Utilizarea SpecialCells pentru a găsi ultimul rând

Puteți utiliza funcția SpecialCells pentru a găsi ultimul rând folosind metoda VBA .

În primul rând, deschideți fișierul Dezvoltator tab>> apoi selectați Visual Basic

O nouă fereastră de Microsoft Visual Basic pentru aplicații va apărea.

Acum, de la Introduceți >> selectați Modul

A Modul va fi deschis.

Apoi scrieți următorul cod în fișierul Modul . 

 Sub LastRow_SpecialCells() Dim LastRow As Long LastRow = Range("A:A").SpecialCells(xlCellTypeLastCell).Row MsgBox LastRow End Sub

Aici, am creat o subprocedură numită LastRow_SpecialCells , unde a Lung tipul de variabilă LastRow a fost declarată.

Apoi, a definit variabila cu ajutorul funcției Gama.SpecialCells Aici, am folosit coloana A ( A:A ) ca interval. xlCellTypeLastCell ca parametru de tip al SpecialCells , aceasta va returna ultima celulă din interval (în acest caz, din coloana A ).

Am folosit o casetă de mesaje pentru a afișa rezultatul.

După aceea, Salvați codul și reveniți la foaia de lucru.

Din nou, deschideți fereastra Vezi tab>> de la Macros >> selectați Vizualizați macrourile

Apoi, a caseta de dialog va apărea.

Acum, de la Numele macroului selectați LastRow_SpecialCells selectați, de asemenea, registrul de lucru din Macros în .

În cele din urmă, Rulați selectat Macro .

Astfel, se va afișa o casetă de mesaje care va arăta numărul ultimului rând.

2. Utilizarea Rows.Count pentru celulele care nu sunt goale

Puteți utiliza funcția Rânduri.Count pentru a găsi ultimul rând folosind metoda VBA .

Acum, deschideți fereastra Dezvoltator tab>> apoi selectați Visual Basic

O nouă fereastră de Microsoft Visual Basic pentru aplicații va apărea.

Acum, de la Introduceți >> selectați Modul

A Modul va fi deschis.

Apoi scrieți următorul cod în fișierul Modul . 

 Sub LastRow_NonEmpty() Dim LastRow As Long LastRow = Cells(Rows.Count, 1).End(xlUp).Row MsgBox LastRow End Sub

Aici, am creat o subprocedură numită LastRow_NonEmpty, în care un Lung tipul de variabilă LastRow a fost declarată.

Acum, CELLS(Rows.Count, 1) va număra câte rânduri există în prima coloană. Apoi, folosit End(xlUp).Row acum aceasta va găsi ultimul rând utilizat într-un interval Excel.

În final, am folosit o casetă de mesaje pentru a afișa rezultatul.

Apoi, Salvați codul și reveniți la foaia de lucru.

Aici, deschideți fereastra Vezi tab>> de la Macros >> selectați Vizualizați macrourile

Acum, un caseta de dialog va apărea.

Apoi, de la Numele macroului selectați UltimulRând_NuEvident selectați, de asemenea, registrul de lucru din Macros în .

În cele din urmă, Rulați selectat Macro .

Astfel, se va afișa o casetă de mesaje care va arăta numărul ultimului rând.

3. Utilizarea Rows.Count pentru orice coloană selectată

Utilizând orice coloană selectată în VBA, puteți găsi ultimul rând.

În primul rând, deschideți fișierul Dezvoltator tab>> apoi selectați Visual Basic

O nouă fereastră de Microsoft Visual Basic pentru aplicații va apărea.

Acum, de la Introduceți >> selectați Modul

A Modul va fi deschis.

Apoi scrieți următorul cod în fișierul Modul . 

 Sub LastRow_AnyColumn() Dim LastRow As Long LastRow = Range("B" & Rows.Count).End(xlUp).Row MsgBox LastRow End Sub

Aici, am creat o subprocedură numită LastRow_AnyColumn, unde o Lung tipul de variabilă LastRow a fost declarată.

Apoi, în Gama având în vedere coloana B ca parametru și, de asemenea Rânduri.Count , aceasta va număra câte rânduri există într-o anumită coloană B Următorul, folosit End(xlup). rând care va găsi ultimul rând utilizat într-un interval Excel.

În cele din urmă, am folosit o casetă de mesaje pentru a afișa rezultatul.

Următorul, Salvați codul și reveniți la foaia de lucru.

Apoi, deschideți fereastra Vezi tab>> de la Macros >> selectați Vizualizați macrourile

Aici, un caseta de dialog va apărea.

Acum, de la Numele macroului selectați UltimulRând_Câte o coloană selectați, de asemenea, registrul de lucru din Macros în .

În cele din urmă, Rulați selectat Macro .

Astfel, se va afișa o casetă de mesaje care va arăta numărul ultimului rând.

Lecturi similare:

  • VBA Găsiți în coloană în Excel (7 abordări)
  • Găsiți și înlocuiți utilizând VBA (11 moduri)
  • Găsiți corespondența exactă utilizând VBA în Excel (5 moduri)
  • Cum să găsiți un șir de caractere cu VBA în Excel (8 exemple)

4. Utilizarea UsedRange pentru a găsi ultimul rând

Puteți utiliza funcția FolositRange a foii de lucru pentru a găsi ultimul rând folosind VBA .

Acum, deschideți fereastra Dezvoltator tab>> apoi selectați Visual Basic

Apoi, o nouă fereastră de Microsoft Visual Basic pentru aplicații va apărea.

Acum, de la Introduceți >> selectați Modul

A Modul va fi deschis.

Apoi, scrieți următorul cod în fișierul Modul . 

 Sub LastRow_UsedRange() Dim LastRow As Long LastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row MsgBox "Last Row: " & LastRow End Sub

Aici, am creat o subprocedură numită LastRow_UsedRange, unde un Lung tipul de variabilă LastRow a fost declarată.

În continuare, definiți variabila folosind opțiunea ActiveSheet.UsedRange.Rows metoda prevăzută de asemenea ActiveSheet.UsedRange.Rows.Count ca parametru al ActiveSheet.UsedRange.Rows , aceasta va returna ultimul rând.

Am folosit o casetă de mesaje pentru a afișa rezultatul.

Acum, Salvați codul și reveniți la foaia de lucru.

Apoi, deschideți fereastra Vezi tab>> de la Macros >> selectați Vizualizați macrourile

În continuare, un caseta de dialog va apărea.

Apoi, de la Numele macroului selectați LastRow_UsedRange selectați, de asemenea, registrul de lucru din Macros în .

În cele din urmă, Rulați selectat Macro .

Astfel, se va afișa o casetă de mesaje care va arăta numărul ultimului rând.

5. Utilizarea Range.Find pentru a găsi ultimul rând

Puteți utiliza funcția Range.Find pentru a găsi ultimul rând folosind metoda VBA .

Acum, deschideți fereastra Dezvoltator tab>> apoi selectați Visual Basic

Aici, o nouă fereastră de Microsoft Visual Basic pentru aplicații va apărea.

Acum, de la Introduceți >> selectați Modul

A Modul va fi deschis.

Apoi scrieți următorul cod în fișierul Modul . 

 Sub Range_Find_Method() Dim LastRow As Long On Error Resume Next LastRow = Cells.Find(What:="*", _ After:=Range("A1"), _ LookAt:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Row On Error GoTo 0 MsgBox "Last Row: " & LastRow End Sub

Aici, am creat o subprocedură numită Range_Find_Method, în care o Lung tipul de variabilă LastRow a fost declarată.

Apoi, a definit variabila cu ajutorul funcției Celule.Find Aici au fost declarați 7 parametri. În Ce parametrul pe care l-am folosit ("*") care va găsi prima celulă nevidă. Având în vedere A1 ca intervalul din După pentru a porni. Uitați-vă la parametru furnizat xlPartea pentru a vizualiza orice parte a textului din interiorul celulei.

LookIn:=xlFormulas parametrul va căuta formule, dacă acestea există. SearchOrder:=xlByRows se va deplasa de la dreapta la stânga și, de asemenea, face o buclă în sus prin fiecare rând până când găsește o celulă nevidă.

MatchCase:=False parametrul va spune Găsiți nu ia în considerare majusculele sau minusculele. Atunci când se găsește un spațiu liber, se oprește și returnează numărul rândului.

Am folosit o casetă de mesaje pentru a afișa rezultatul.

Acum, Salvați codul și reveniți la foaia de lucru.

Aici, deschideți fereastra Vezi tab>> de la Macros >> selectați Vizualizați macrourile

Acum, un caseta de dialog va apărea.

Acum, de la Numele macroului selectați Metoda de căutare a intervalului selectați, de asemenea, foaia de lucru din Macros în .

În cele din urmă, Rulați selectat Macro .

Astfel, se va afișa o casetă de mesaje care va arăta numărul ultimului rând.

Concluzie

În acest articol, am explicat 5 modalități de a VBA găsiți ultimul rând în Excel. Puteți urma oricare dintre metodele pentru a găsi ultimul rând. În cazul în care aveți orice confuzie sau întrebare cu privire la aceste metode, puteți comenta mai jos.

Postarea anterioară Cum să selectați fiecare alt rând în Excel (6 moduri)
Postarea următoare Calculator de impozit pe muncă independentă în foaie de calcul Excel (Creați cu pași simpli)

Hugh West este un trainer și analist Excel cu o experiență de peste 10 ani în industrie. Deține o diplomă de licență în contabilitate și finanțe și un master în administrarea afacerilor. Hugh are o pasiune pentru predare și a dezvoltat o abordare unică de predare care este ușor de urmărit și de înțeles. Cunoștințele sale experte despre Excel au ajutat mii de studenți și profesioniști din întreaga lume să-și îmbunătățească abilitățile și să exceleze în cariera lor. Prin blogul său, Hugh își împărtășește cunoștințele lumii, oferind tutoriale gratuite Excel și instruire online pentru a ajuta persoanele și companiile să-și atingă întregul potențial.