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

Hugh West

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

U VBA možete koristiti različite metode za pronalaženje posljednjeg retka. U ovom ću članku objasniti različite metode VBA pronalaženja zadnjeg retka u Excelu.

Kako bih ovo objašnjenje učinio vidljivim, upotrijebit ću ogledni skup podataka. Postoje 4 stupca u skupu podataka koji predstavljaju podatke o prodaji. Ovi stupci su Prodavač, Regija, Proizvod i Cijena .

Preuzmite za vježbu

VBA pronalaženje zadnjeg retka.xlsm

Načini VBA pronalaženja zadnjeg retka u Excelu

1. Korištenje posebnih ćelija za pronalaženje zadnjeg retka

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

Prvo otvorite Developer kartica >> zatim odaberite Visual Basic

Pojavit će se novi prozor Microsoft Visual Basic za aplikacije .

Sada, iz Insert >> odaberite Modul

Otvorit će se Modul .

Zatim napišite sljedeći kod u Module . 

3303

Ovdje sam stvorio podproceduru pod nazivom LastRow_SpecialCells , gdje tip Long varijable LastRow je deklariran.

Zatim je definirana varijabla pomoću metode Range.SpecialCells . Ovdje sam upotrijebio 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 ).

Upotrijebio sam okvir s porukom za prikaz rezultata.

Nakon toga, Spremite kod i vratite se na radni list.

Opet otvorite Prikaz karticu >> iz Makronaredbe >> odaberite Prikaz makronaredbi

Tada će se pojaviti dijaloški okvir .

Sada, iz Makronaredbe odaberite LastRow_SpecialCells također odaberite radnu knjigu unutar Makronaredbe u .

Konačno, Pokrenite odabrani Makro .

Tako će se pojaviti okvir s porukom koji prikazuje zadnji broj retka.

2. Korištenje Rows.Count za ćelije koje nisu prazne

Možete upotrijebiti metodu Rows.Count da biste pronašli zadnji red pomoću VBA .

Sada otvorite Programer karticu >> zatim odaberite Visual Basic

Pojavit će se novi prozor Microsoft Visual Basic za aplikacije .

Sada, iz Insert >> odaberite Modul

Otvorit će se Modul .

Zatim napišite sljedeći kod u Module . 

1392

Ovdje sam stvorio potproceduru pod nazivom LastRow_NonEmpty, gdje tip Long varijable LastRow je deklariran.

Sada će CELLS(Rows.Count, 1) prebrojati koliko redaka ima u prvom stupcu. Zatim sam upotrijebio End(xlUp).Row sada će ovo pronaći zadnji korišteni red u Excel rasponu.

Na kraju sam upotrijebio okvir s porukom za prikazrezultat.

Zatim, Spremite kôd i vratite se na radni list.

Ovdje otvorite Prikaz karticu >> iz Makronaredbe >> odaberite Prikaz makronaredbi

Sada će se pojaviti dijaloški okvir .

Zatim, iz Naziva makronaredbe odaberite LastRow_NonEmpty također odaberite radnu knjigu unutar Makronaredbe u .

Konačno, Pokrenite odabrani Makro .

Tako će se pojaviti okvir s porukom koji prikazuje zadnji broj retka.

3. Korištenje Rows.Count za bilo koji odabrani stupac

Upotrebom bilo kojeg odabranog stupca u VBA, možete pronaći zadnji red.

Prvi , otvorite karticu Programer >> zatim odaberite Visual Basic

Pojavit će se novi prozor Microsoft Visual Basic za aplikacije .

Sada, iz Insert >> odaberite Modul

Otvorit će se Modul .

Zatim napišite sljedeći kod u Module . 

1738

Ovdje sam stvorio potproceduru pod nazivom LastRow_AnyColumn, gdje tip Long varijable LastRow je deklariran.

Zatim, u Rasponu s danim stupcem B kao parametrom i također Rows.Count , ovo izbrojat će koliko redaka ima u danom stupcu B . Zatim je korišten End(xlup). Redak koji će pronaći posljednji korišteni redak u Excel rasponu.

Zadnje, upotrijebio sam okvir s porukom za prikazrezultat.

Dalje, Spremite kôd i vratite se na radni list.

Zatim otvorite Prikaz karticu >> iz Makronaredbe >> odaberite Prikaz makronaredbi

Ovdje će se pojaviti dijaloški okvir .

Sada, iz Makronaredbe odaberite LastRow_AnyColumn također odaberite radnu knjigu unutar Makronaredbe u .

Konačno, Pokrenite odabrani Makro .

Tako će se pojaviti okvir s porukom koji prikazuje zadnji broj retka.

Slična čitanja:

  • VBA Traži u stupcu u Excelu (7 pristupa)
  • Traži i zamijeni pomoću VBA (11 Načini)
  • Pronađite točno podudaranje pomoću VBA u Excelu (5 načina)
  • Kako pronaći niz pomoću VBA u Excelu (8 primjera)

4. Korištenje UsedRange za pronalaženje zadnjeg retka

Možete koristiti svojstvo UsedRange radnog lista za pronalaženje posljednjeg red koristeći VBA .

Sada otvorite karticu Razvojni programer >> zatim odaberite Visual Basic

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

Sada, od Umetni >> odaberite Modul

Otvorit će se Modul .

Zatim upišite sljedeći kod u Modul . 

7469

Ovdje sam stvorio potproceduru pod nazivom LastRow_UsedRange, gdje Long tip varijable LastRow je deklariran.

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

Upotrijebio sam okvir s porukom za prikaz rezultata.

Sada, Spremite kod i vratite se na radni list.

Zatim otvorite Prikaz karticu >> iz Makronaredbe >> odaberite Prikaži makronaredbe

Dalje će se pojaviti dijaloški okvir .

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

Na kraju, Pokrenite odabrani Makro .

Tako će se pojaviti okvir s porukom koji prikazuje broj zadnjeg retka.

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

Možete upotrijebiti metodu Range.Find da pronađete zadnji red pomoću VBA .

Sada otvorite Razvojni programer kartica >> zatim odaberite Visual Basic

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

Sada, iz Umetni >> odaberite Modul

Otvorit će se Modul .

Zatim napišite sljedeći kod u Modul . 

9971

Ovdje sam stvorio potproceduru pod nazivom Range_Find_Method, gdje je tip Long varijable LastRow deklariran .

Zatim definirajte varijablu pomoću metode Cells.Find . Evo, proglašeno 7parametri. U parametru Što koristio sam (“*”) koji će pronaći prvu nepraznu ćeliju. Dana A1 kao raspon u Nakon parametra za početak. U parametru LookAt omogućen je xlPart za pregled bilo kojeg dijela teksta unutar ćelije. Parametar

LookIn:=xlFormulas tražit će formule ako ih ima. Parametar SearchOrder:=xlByRows pomicat će se zdesna ulijevo, a također će se kretati kroz svaki redak dok ne pronađe ćeliju koja nije prazna.

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 retka.

Koristio sam okvir s porukom za prikaz rezultata.

Sada, Spremite kôd i vratite se na radni list.

Ovdje otvorite Prikaz karticu >> iz Makronaredbe >> odaberite Prikaz makronaredbi

Sada će se pojaviti dijaloški okvir .

Sada, iz Makronaredbe odaberite Range_Find_Method također odaberite radni list unutar Makronaredbe u .

Konačno, Pokrenite odabrani Makro .

Tako će se pojaviti okvir s porukom koji prikazuje zadnji broj retka.

Zaključak

U ovom sam članku objasnio 5 načina za VBA pronalaženje zadnjeg reda u Excelu. Možete slijediti bilo koju od metoda da biste pronašli posljednji red. U slučaju da imate nejasnoća ili pitanja u vezi s ovim metodama, možetekomentirajte dolje.

Prethodni post Kako odabrati svaki drugi red u Excelu (6 načina)
Sljedeći post Kalkulator poreza za samozapošljavanje u Excel proračunskoj tablici (izradite uz jednostavne korake)

Hugh West vrlo je iskusan Excel trener i analitičar s više od 10 godina iskustva u industriji. Diplomirao je računovodstvo i financije te magistrirao poslovno upravljanje. Hugh ima strast za podučavanjem i razvio je jedinstveni pristup podučavanju koji je lako pratiti i razumjeti. Njegovo stručno poznavanje programa Excel pomoglo je tisućama studenata i profesionalaca diljem svijeta da poboljšaju svoje vještine i postignu uspjeh u karijeri. Putem svog bloga, Hugh dijeli svoje znanje sa svijetom, nudeći besplatne vodiče za Excel i online obuku kako bi pomogao pojedincima i tvrtkama da dostignu svoj puni potencijal.