VBA Pronađi posljednji red u Excelu (5 načina)

Hugh West

16-10-2023 Makroi & Excel VBA
  • Podijeli Ovo
Hugh West

U VBA možete koristiti različite metode da pronađete zadnji red. U ovom članku ću objasniti različite metode VBA pronalaženja posljednjeg reda u Excelu.

Da bih ovo objašnjenje učinio vidljivim, koristit ću primjer skupa podataka. Postoje 4 kolone u skupu podataka koje predstavljaju informacije o prodaji. Ove kolone su Prodavac, Region, Proizvod, i Cijena .

Preuzmi za vježbanje

VBA Find Last Row.xlsm

Načini VBA Pronađi zadnji red u Excelu

1. Korištenje specijalnih ćelija da biste pronašli zadnji red

Možete koristiti metodu SpecialCells da biste pronašli zadnji red koristeći VBA .

Prvo, otvorite Developer kartica >> zatim odaberite Visual Basic

Novi prozor Microsoft Visual Basic za aplikacije će se pojaviti.

Sada, od Insert >> odaberite Module

A Modul će se otvoriti.

Zatim upišite sljedeći kod u Modul . 

6524

Ovdje sam kreirao podproceduru pod nazivom LastRow_SpecialCells , gdje je tip Long varijable LastRow je deklarirana.

Zatim definirana varijabla pomoću metode Range.SpecialCells . Ovdje sam koristio stupac A ( A:A ) kao raspon. Uz xlCellTypeLastCell kao parametar tipa SpecialCells , ovo će vratiti posljednju ćeliju za raspon (u ovom slučaju, iz stupca A ).

Koristio sam okvir za poruke da prikažem rezultat.

Nakon toga, Sačuvajte kod i vratite se na radni list.

Ponovo otvorite karticu Prikaz >> iz Makroa >> odaberite Prikaži makroe

Onda će se pojaviti dijaloški okvir .

Sada, iz Naziv makroa odaberite LastRow_SpecialCells također odaberite radnu knjigu unutar Makroi u .

Konačno, Pokrenite odabrani makro .

Tako će se pojaviti okvir s porukom koji prikazuje broj posljednjeg reda.

2. Korištenje Rows.Count za neprazne ćelije

Možete koristiti metodu Rows.Count da pronađete posljednji red koristeći VBA .

Sada otvorite karticu Programer >> zatim odaberite Visual Basic

Novi prozor Microsoft Visual Basic za aplikacije će se pojaviti.

Sada, od Insert >> odaberite Module

A Modul će se otvoriti.

Zatim upišite sljedeći kod u Module . 

6628

Ovdje sam kreirao podproceduru pod nazivom LastRow_NonEmpty, gdje je tip varijable Long LastRow je deklariran.

Sada će CELLS(Rows.Count, 1) brojati koliko redova ima u prvoj koloni. Zatim se koristi End(xlUp).Row sada će ovo pronaći zadnji korišteni red u Excel rasponu.

Na kraju, koristio sam okvir za poruke da prikažemrezultat.

Zatim, Sačuvajte kod i vratite se na radni list.

Ovdje otvorite karticu Prikaz >> iz Makroa >> odaberite Prikaži makroe

Sada će se pojaviti dijaloški okvir .

Zatim iz Naziv makroa odaberite LastRow_NonEmpty također odaberite radnu knjigu unutar Makroi u .

Konačno, Pokrenite odabrani makro .

Tako će se pojaviti okvir s porukom koji prikazuje broj posljednjeg reda.

3. Korištenje Rows.Count za bilo koju odabranu kolonu

Upotrebom bilo koje odabrane kolone u VBA, možete pronaći posljednji red.

Prvi , otvorite karticu Programer >> zatim odaberite Visual Basic

Novi prozor Microsoft Visual Basic za aplikacije će se pojaviti.

Sada, od Insert >> odaberite Module

A Modul će se otvoriti.

Zatim upišite sljedeći kod u Module . 

5032

Ovdje sam kreirao podproceduru pod nazivom LastRow_AnyColumn, gdje je tip varijable Long LastRow je deklariran.

Onda, u Rasponu datoj koloni B kao parametar i također Broj redova , ovo će brojati koliko redova ima u datoj koloni B . Zatim se koristi End(xlup). Red koji će pronaći zadnji korišteni red u Excel rasponu.

Na kraju, koristio sam okvir za poruke da prikažemrezultat.

Sljedeće, Sačuvajte kod i vratite se na radni list.

Zatim otvorite karticu Prikaz >> iz Makroa >> odaberite Prikaži makroe

Ovdje će se pojaviti dijaloški okvir .

Sada, iz Naziv makroa odaberite LastRow_AnyColumn također odaberite radnu knjigu unutar Makroi u .

Konačno, Pokrenite odabrani makro .

Tako će se pojaviti okvir s porukom koji prikazuje broj posljednjeg reda.

Slična očitanja:

  • VBA Pronađi u stupcu u Excelu (7 pristupa)
  • Pronađi i zamijeni koristeći VBA (11 Načini)
  • Pronađite tačno podudaranje koristeći VBA u Excelu (5 načina)
  • Kako pronaći string sa VBA u Excelu (8 primjera)

4. Korištenje UsedRange za pronalaženje posljednjeg reda

Možete koristiti svojstvo UsedRange radnog lista da pronađete posljednji red koristeći VBA .

Sada otvorite karticu Programer >> zatim odaberite Visual Basic

Tada će se pojaviti novi prozor Microsoft Visual Basic za aplikacije .

Sada, od Insert >> odaberite Module

A Module će se otvoriti.

Zatim upišite sljedeći kod u Module . 

8349

Ovdje sam kreirao podproceduru pod nazivom LastRow_UsedRange, gdje je tip varijable Long LastRow je deklariran.

Sljedeće, definiranovarijabla koja koristi metodu ActiveSheet.UsedRange.Rows također daje ActiveSheet.UsedRange.Rows.Count kao parametar ActiveSheet.UsedRange.Rows , ovo će vratiti zadnji red.

Koristio sam okvir za poruke da prikažem rezultat.

Sada, Sačuvajte kod i vratite se na radni list.

Zatim otvorite karticu Prikaz >> iz Makroa >> odaberite Prikaži makroe

Sljedeće će se pojaviti dijaloški okvir .

Zatim, iz Makroa ime odaberite LastRow_UsedRange također odaberite radnu knjigu unutar Makroi u .

Konačno, Pokreni odabrani Makro .

Dakle, pojavit će se okvir s porukom koji prikazuje broj posljednjeg reda.

5. Korištenje Range.Find za pronalaženje posljednjeg Red

Možete koristiti Range.Find metodu da pronađete zadnji red koristeći VBA .

Sada otvorite Razvojnik kartica >> zatim odaberite Visual Basic

Ovdje će se pojaviti novi prozor Microsoft Visual Basic za aplikacije .

Sada, iz Umetni >> odaberite Modul

A Modul će se otvoriti.

Zatim upišite sljedeći kod u Modul . 

7661

Ovdje sam kreirao podproceduru pod nazivom Range_Find_Method, gdje je deklariran tip varijable Long LastRow .

Zatim je definirana varijabla pomoću metode Cells.Find . Evo, proglašeno 7parametri. U Što parametru sam koristio (“*”) koji će pronaći prvu nepraznu ćeliju. Dato je A1 kao raspon u parametru Nakon za početak. U LookAt parametru dat xlPart da pogleda bilo koji dio teksta unutar ćelije.

LookIn:=xlFormulas parametar će tražiti formule ako ih ima. SearchOrder:=xlByRows parametar će se pomicati zdesna nalijevo i također će se kretati kroz svaki red dok ne pronađe nepraznu ćeliju.

MatchCase:=False parametar će reći Find da ne uzima u obzir velika ili mala slova. Kada se pronađe neprazno, zaustavlja se i vraća broj reda.

Koristio sam okvir za poruke da prikažem rezultat.

Sada, Sačuvaj kod i vratite se na radni list.

Ovdje otvorite karticu Prikaz >> iz Makroa >> odaberite Prikaži makroe

Sada će se pojaviti dijaloški okvir .

Sada, iz Naziv makroa odaberite Range_Find_Method također odaberite radni list unutar Makroi u .

Konačno, Pokrenite odabrani makro .

Tako će se pojaviti okvir s porukom koji prikazuje broj posljednjeg reda.

Zaključak

U ovom članku objasnio sam 5 načina za VBA pronalaženje posljednjeg reda u Excelu. Možete slijediti bilo koju od metoda da pronađete posljednji red. U slučaju da imate bilo kakvu zabunu ili pitanje u vezi sa ovim metodama, možetekomentar ispod.

Prethodni post Kako odabrati svaki drugi red u Excelu (6 načina)
Sljedeća objava Kalkulator poreza na samozapošljavanje u Excel proračunskoj tabeli (napravite jednostavnim koracima)

Hugh West je vrlo iskusan Excel trener i analitičar s više od 10 godina iskustva u industriji. Diplomirao je računovodstvo i finansije i magistrirao poslovnu administraciju. Hugh ima strast prema podučavanju i razvio je jedinstven pristup podučavanju koji je lako pratiti i razumjeti. Njegovo stručno znanje o Excel-u pomoglo je hiljadama studenata i profesionalaca širom svijeta da poboljšaju svoje vještine i napreduju u karijeri. Kroz svoj blog, Hugh dijeli svoje znanje sa svijetom, nudeći besplatne Excel tutorijale i online obuku kako bi pomogli pojedincima i preduzećima da ostvare svoj puni potencijal.