VBA Gjeni rreshtin e fundit në Excel (5 mënyra)

Hugh West

16-10-2023 Makro & Excel VBA
  • Shperndaje Kete
Hugh West

Në VBA mund të përdorni metoda të ndryshme për të gjetur rreshtin e fundit. Në këtë artikull, unë do të shpjegoj metoda të ndryshme të gjetjes së rreshtit të fundit të VBA në Excel.

Për ta bërë këtë shpjegim të dukshëm, do të përdor një grup të dhënash mostër. Ka 4 kolona në grupin e të dhënave që përfaqësojnë informacionin e shitjeve. Këto kolona janë Personi i shitjes, Rajoni, Produkti, dhe Çmimi .

Shkarkoni për të praktikuar

VBA Gjeni rreshtin e fundit.xlsm

Mënyrat për të gjetur rreshtin e fundit VBA në Excel

1. Përdorimi i SpecialCells për të gjetur rreshtin e fundit

Mund të përdorni metodën SpecialCells për të gjetur rreshtin e fundit duke përdorur VBA .

Së pari, hapni Zhvilluesi tab >> pastaj zgjidhni Visual Basic

Do të shfaqet një dritare e re e Microsoft Visual Basic për Aplikacione .

Tani, nga Fut >> zgjidhni Modul

Do të hapet një Modul .

Më pas shkruani kodin e mëposhtëm në Moduli . 

4579

Këtu, unë kam krijuar një nënprocedurë të quajtur LastRow_SpecialCells , ku një lloj Long i ndryshores LastRow është deklaruar.

Më pas definohet variabla duke përdorur metodën Range.SpecialCells . Këtu, unë kam përdorur kolonën A ( A:A ) si varg. Me kusht që xlCellTypeLastCell si parametër i tipit të SpecialCells , kjo do të kthejë qelizën e fundit për diapazonin (për këtë rast, nga kolona A ).

Kam përdorur një kuti mesazhesh për të treguar rezultatin.

Pas kësaj, Ruaj kodin dhe kthehu te fletën e punës.

Përsëri, hapni skedën Shiko >> nga Makrot >> zgjidhni Shiko makro

Më pas, do të shfaqet një kuti dialogu .

Tani, nga emri i makrove zgjidhni LastRow_SpecialCells zgjidhni gjithashtu librin e punës brenda Macros në .

Më në fund, Ekzekutoni Makronë e zgjedhur .

Kështu, do të shfaqet një kuti mesazhi që tregon numrin e rreshtit të fundit.

2. Përdorimi i rreshtave.Numërimi për qeliza jo të zbrazëta

Mund të përdorni metodën Rreshtat.Count për të gjetur rreshtin e fundit duke përdorur VBA .

Tani, hapni skedën Zhvilluesi >> pastaj zgjidhni Visual Basic

Do të shfaqet një dritare e re e Microsoft Visual Basic për Aplikacione .

Tani, nga Fut >> zgjidhni Modul

Do të hapet një Modul .

Më pas shkruani kodin e mëposhtëm në Moduli . 

8376

Këtu, unë kam krijuar një nënprocedurë të quajtur LastRow_NonEmpty, ku një lloj Long i ndryshores LastRow është deklaruar.

Tani, CELLS(Rows.Count, 1) do të numërojë sa rreshta ka në kolonën e parë. Më pas përdoret End(xlUp).Rreshti tani kjo do të gjejë rreshtin e fundit të përdorur në një varg Excel.

Në fund, unë kam përdorur një kuti mesazhi për të treguarrezultat.

Më pas, Ruani kodin dhe kthehuni te fleta e punës.

Këtu, hapni skedën Shiko >> nga Makrot >> zgjidhni Shiko makro

Tani, një kuti dialogu do të shfaqet.

Më pas, nga emri Makro zgjidhni LastRow_NonEmpty zgjidhni gjithashtu librin e punës brenda Macros në .

Më në fund, Ekzekutoni Makronë e zgjedhur .

Kështu, do të shfaqet një kuti mesazhi që tregon numrin e rreshtit të fundit.

3. Përdorimi i rreshtave. Numërimi për çdo kolonë të zgjedhur

Duke përdorur çdo kolonë të zgjedhur në VBA, mund të gjeni rreshtin e fundit.

Së pari. , hapni skedën Zhvilluesi >> pastaj zgjidhni Visual Basic

Do të shfaqet një dritare e re e Microsoft Visual Basic për Aplikacione .

Tani, nga Fut >> zgjidhni Modul

Do të hapet një Modul .

Më pas shkruani kodin e mëposhtëm në Moduli . 

8661

Këtu, unë kam krijuar një nënprocedurë të quajtur LastRow_AnyColumn, ku një lloj Long variabli LastRow është deklaruar.

Më pas, në Rapën e dhënë kolonën B si parametër dhe gjithashtu Rreshtat. Numri , kjo do të numërojë sa rreshta ka në një kolonë të caktuar B . Më pas, përdoret End(xlup). Rreshti i cili do të gjejë rreshtin e fundit të përdorur në një varg Excel.

Së fundi, kam përdorur një kuti mesazhi për të treguarrezultat.

Më pas, Ruani kodin dhe kthehuni te fleta e punës.

Më pas, hapni skedën Shiko >> nga Makrot >> zgjidhni Shiko makro

Këtu do të shfaqet një kuti dialogu .

Tani, nga emri Makro zgjidhni LastRow_AnyColumn zgjidhni gjithashtu librin e punës brenda Macros në .

Më në fund, Ekzekutoni Makronë e zgjedhur .

Kështu, do të shfaqet një kuti mesazhi që tregon numrin e rreshtit të fundit.

Lexime të ngjashme:

  • Gjeni VBA në kolonën në Excel (7 qasje)
  • Gjeni dhe zëvendësoni duke përdorur VBA (11 Mënyrat)
  • Gjeni përputhjen e saktë duke përdorur VBA në Excel (5 mënyra)
  • Si të gjeni vargun me VBA në Excel (8 shembuj)

4. Përdorimi i UsedRange për të gjetur rreshtin e fundit

Mund të përdorni veçorinë UsedRange të fletës së punës për të gjetur të fundit rresht duke përdorur VBA .

Tani, hapni skedën Zhvilluesi >> pastaj zgjidhni Visual Basic

Më pas, do të shfaqet një dritare e re e Microsoft Visual Basic për Aplikacione .

Tani, nga Fut >> zgjidhni Modul

Do të hapet një Modul .

Më pas, shkruani kodin e mëposhtëm në Moduli . 

1994

Këtu, unë kam krijuar një nënprocedurë të quajtur LastRow_UsedRange, ku një lloj Long variabli LastRow është deklaruar.

Më pas, përcaktohetvariabli duke përdorur metodën ActiveSheet.UsedRange.Rows ofrohet gjithashtu ActiveSheet.UsedRange.Rows.Count si parametër i ActiveSheet.UsedRange.Rows , kjo do të kthejë rreshti i fundit.

Kam përdorur një kuti mesazhesh për të shfaqur rezultatin.

Tani, Ruaj kodin dhe kthehu te fleta e punës.

>Më pas, hapni skedën Shiko >> nga Makrot >> zgjidhni Shiko makro

Më pas, do të shfaqet një kuti dialogu .

Më pas, nga Makro emri zgjidhni LastRow_UsedRange zgjidhni gjithashtu librin e punës brenda Macros në .

Më në fund, Ekzekutoni Makronë e zgjedhur .

Kështu, do të shfaqet një kuti mesazhi që tregon numrin e rreshtit të fundit.

5. Përdorimi i Range.Find për të gjetur të fundit Rreshti

Mund të përdorni metodën Range.Find për të gjetur rreshtin e fundit duke përdorur VBA .

Tani, hapni Zhvilluesi skeda >> pastaj zgjidhni Visual Basic

Këtu, do të shfaqet një dritare e re e Microsoft Visual Basic për Aplikacione .

Tani, nga Fut >> zgjidhni Modul

Do të hapet një Modul .

Më pas shkruani kodin e mëposhtëm në Modul . 

5820

Këtu, unë kam krijuar një nënprocedurë të quajtur Range_Find_Method, ku është deklaruar një lloj Long i ndryshores LastRow .

Më pas përcaktoi variablin duke përdorur metodën Cells.Find . Këtu, deklaruar 7parametrave. Në Çfarë parametri përdora (“*”) i cili do të gjejë qelizën e parë jo bosh. Jepet A1 si diapazoni në parametrin Pas për të filluar. Parametri LookAt ofrohet xlPart për të parë çdo pjesë të tekstit brenda qelizës.

LookIn:=xlFormulas do të kërkojë formulat nëse ka. SearchOrder:=xlByRows parametri do të lëvizë nga e djathta në të majtë dhe gjithashtu do të qarkullojë nëpër çdo rresht derisa të gjejë një qelizë jo bosh.

MatchCase:=False parametri do të thotë Find të mos marrë parasysh shkronjat e mëdha ose të vogla. Kur gjendet një jo bosh, ai ndalon dhe kthen numrin e rreshtit.

Kam përdorur një kuti mesazhi për të treguar rezultatin.

Tani, Ruaj kodin dhe kthehuni te fleta e punës.

Këtu, hapni skedën Shiko >> nga Makrot >> zgjidhni Shiko makro

Tani do të shfaqet një kuti dialogu .

Tani, nga Emri makro zgjidhni Range_Find_Method zgjidhni gjithashtu fletën e punës brenda Macros në .

Më në fund, Ekzekutoni Makro e zgjedhur.

Kështu, do të shfaqet një kuti mesazhi që tregon numrin e rreshtit të fundit.

Përfundim

Në këtë artikull, unë kam shpjeguar 5 mënyra për të VBA gjetur rreshtin e fundit në Excel. Ju mund të ndiqni ndonjë nga metodat për të gjetur rreshtin e fundit. Në rast se keni ndonjë konfuzion ose pyetje në lidhje me këto metoda, mundenikomentoni më poshtë.

Postimi i mëparshëm Si të zgjidhni çdo rresht tjetër në Excel (6 mënyra)
Postimi i radhës Llogaritësi i taksës së vetëpunësimit në Excel (Krijoni me hapa të thjeshtë)

Hugh West është një trajner dhe analist me përvojë të lartë në Excel me mbi 10 vjet përvojë në industri. Ai ka një diplomë Bachelor në Kontabilitet dhe Financë dhe një Master në Administrim Biznesi. Hugh ka një pasion për mësimdhënien dhe ka zhvilluar një qasje unike të mësimdhënies që është e lehtë për t'u ndjekur dhe kuptuar. Njohuritë e tij eksperte të Excel-it kanë ndihmuar mijëra studentë dhe profesionistë në mbarë botën të përmirësojnë aftësitë e tyre dhe të shkëlqejnë në karrierën e tyre. Nëpërmjet blogut të tij, Hugh ndan njohuritë e tij me botën, duke ofruar mësime falas në Excel dhe trajnime në internet për të ndihmuar individët dhe bizneset të arrijnë potencialin e tyre të plotë.