VBA Viimase rea leidmine Excelis (5 võimalust)

Hugh West

16-10-2023 Makros &; Excel VBA
  • Jaga Seda
Hugh West

VBA-s saate kasutada erinevaid meetodeid viimase rea leidmiseks. Selles artiklis selgitan VBA erinevaid meetodeid VBA viimase rea leidmiseks Excelis.

Et seda selgitust nähtavaks teha, kasutan näidisandmestikku. Andmestikus on 4 veergu, mis kujutavad müügiinfot. Need veerud on järgmised Müügimees, piirkond, toode, ja Hind .

Lae alla praktikasse

VBA Leia viimane rida.xlsm

Võimalused VBA leida viimane rida Excelis

1. SpecialCells'i kasutamine viimase rea leidmiseks

Võite kasutada SpecialCells meetodit viimase rea leidmiseks, kasutades VBA .

Kõigepealt avage Arendaja vahekaart>> seejärel valige Visual Basic

Uus aken Microsoft Visual Basic for Applications avaneb.

Nüüd, alates Sisesta >> valige Moodul

A Moodul avatakse.

Seejärel kirjutage järgmine kood Moodul . 

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

Siin olen loonud alamprotseduuri nimega LastRow_SpecialCells , kus a Pikk muutuja tüüp LastRow on deklareeritud.

Seejärel määratleti muutuja kasutades Range.SpecialCells meetod. Siin olen kasutanud veergu A ( A:A ) kui vahemik. Tingimusel, et xlCellTypeLastCell tüübiparameetrina SpecialCells , see tagastab vahemiku viimase lahtri (antud juhul veerust A ).

Olen kasutanud tulemuse näitamiseks sõnumikasti.

Pärast seda, Salvesta koodi ja minge tagasi töölehele.

Avage taas Vaata tab>> alates Makros >> valige Vaata makrosid

Siis on dialoogiboks avaneb.

Nüüd, alates Makro nimi valige LastRow_SpecialCells valige ka töövihik sees Makrode kasutamine .

Lõpuks, Käivita valitud Makro .

Seega avaneb sõnumikast, mis näitab viimase rea numbrit.

2. Kasutades Rows.Count mitte-tühjade lahtrite jaoks

Võite kasutada Rows.Count meetodit viimase rea leidmiseks, kasutades VBA .

Nüüd avage Arendaja vahekaart>> seejärel valige Visual Basic

Uus aken Microsoft Visual Basic for Applications avaneb.

Nüüd, alates Sisesta >> valige Moodul

A Moodul avatakse.

Seejärel kirjutage järgmine kood Moodul . 

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

Siin olen loonud alamprotseduuri nimega LastRow_NonEmpty, kus a Pikk muutuja tüüp LastRow on deklareeritud.

Nüüd, CELLS(Rows.Count, 1) loeb, mitu rida on esimeses veerus. Seejärel kasutatakse End(xlUp).Row nüüd leiab see Exceli vahemikust viimase kasutatud rea.

Lõpuks olen kasutanud tulemuse näitamiseks sõnumikasti.

Siis, Salvesta koodi ja minge tagasi töölehele.

Siinkohal avage Vaata tab>> alates Makros >> valige Vaata makrosid

Nüüd on dialoogiboks avaneb.

Siis, alates Makro nimi valige LastRow_NonEmpty valige ka töövihik sees Makrode kasutamine .

Lõpuks, Käivita valitud Makro .

Seega avaneb sõnumikast, mis näitab viimase rea numbrit.

3. Rows.Count kasutamine iga valitud veeru jaoks

Kasutades mis tahes valitud veergu VBA, leiate viimase rea.

Kõigepealt avage Arendaja vahekaart>> seejärel valige Visual Basic

Uus aken Microsoft Visual Basic for Applications avaneb.

Nüüd, alates Sisesta >> valige Moodul

A Moodul avatakse.

Seejärel kirjutage järgmine kood Moodul . 

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

Siin olen loonud alamprotseduuri nimega LastRow_AnyColumn, kus on Pikk muutuja tüüp LastRow on deklareeritud.

Siis on Range arvestades veergu B parameetrina ja ka Rows.Count , see loeb, mitu rida on antud veerus. B . järgmine, kasutatud End(xlup). Row mis leiab Exceli vahemikust viimase kasutatud rea.

Viimasena kasutasin tulemuse näitamiseks sõnumikasti.

Järgmine, Salvesta koodi ja minge tagasi töölehele.

Seejärel avage Vaata tab>> alates Makros >> valige Vaata makrosid

Siin on dialoogiboks avaneb.

Nüüd, alates Makro nimi valige LastRow_AnyColumn valige ka töövihik sees Makrode kasutamine .

Lõpuks, Käivita valitud Makro .

Seega avaneb sõnumikast, mis näitab viimase rea numbrit.

Sarnased lugemised:

  • VBA leidmine Exceli veerus (7 lähenemisviisi)
  • Leia ja asenda VBA abil (11 võimalust)
  • Leia täpne vaste VBA abil Excelis (5 võimalust)
  • Kuidas leida string VBAga Excelis (8 näidet)

4. Kasutades UsedRange viimase rea leidmiseks

Võite kasutada UsedRange töölehe omadust, et leida viimane rida kasutades VBA .

Nüüd avage Arendaja vahekaart>> seejärel valige Visual Basic

Seejärel avaneb uus aken Microsoft Visual Basic for Applications avaneb.

Nüüd, alates Sisesta >> valige Moodul

A Moodul avatakse.

Seejärel kirjutage järgmine kood faili Moodul . 

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

Siin olen loonud alamprotseduuri nimega LastRow_UsedRange, kus a Pikk muutuja tüüp LastRow on deklareeritud.

Järgmisena defineerime muutuja, kasutades ActiveSheet.UsedRange.Rows meetod ka ette nähtud ActiveSheet.UsedRange.Rows.Count parameetrina ActiveSheet.UsedRange.Rows , see tagastab viimase rea.

Olen kasutanud tulemuse näitamiseks sõnumikasti.

Nüüd, Salvesta koodi ja minge tagasi töölehele.

Seejärel avage Vaata tab>> alates Makros >> valige Vaata makrosid

Järgnevalt dialoogiboks avaneb.

Siis, alates Makro nimi valige LastRow_UsedRange valige ka töövihik sees Makrode kasutamine .

Lõpuks, Käivita valitud Makro .

Seega avaneb sõnumikast, mis näitab viimase rea numbrit.

5. Range.Find kasutamine viimase rea leidmiseks

Võite kasutada Range.Find meetodit viimase rea leidmiseks, kasutades VBA .

Nüüd avage Arendaja vahekaart>> seejärel valige Visual Basic

Siin on uus aken Microsoft Visual Basic for Applications avaneb.

Nüüd, alates Sisesta >> valige Moodul

A Moodul avatakse.

Seejärel kirjutage järgmine kood Moodul . 

 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

Siinkohal olen loonud alamprotseduuri nimega Range_Find_Method, kus a Pikk muutuja tüüp LastRow on deklareeritud.

Seejärel määratleti muutuja kasutades Cells.Find meetod. Siin on deklareeritud 7 parameetrit. Mis parameetrit kasutasin ("*"), mis leiab esimese mitte-tühja lahtri. Antud A1 kui vahemik Pärast parameeter alustamiseks. LookAt antud parameeter xlPart et vaadata mis tahes tekstiosa lahtri sees.

LookIn:=xlFormulad parameeter otsib valemeid, kui need on olemas. SearchOrder:=xlByRows:=xlByRows parameeter liigub paremalt vasakule ja läbib samuti iga rea, kuni leiab mitte-tühja lahtri.

MatchCase:=False parameeter ütleb Leia mitte arvestada suuri või väikseid tähti. Kui leitakse mitte tühi, peatub see ja tagastab rea numbri.

Olen kasutanud tulemuse näitamiseks sõnumikasti.

Nüüd, Salvesta koodi ja minge tagasi töölehele.

Siinkohal avage Vaata tab>> alates Makros >> valige Vaata makrosid

Nüüd on dialoogiboks avaneb.

Nüüd, alates Makro nimi valige Range_Find_Method valige ka tööleht sees Makrode kasutamine .

Lõpuks, Käivita valitud Makro .

Seega avaneb sõnumikast, mis näitab viimase rea numbrit.

Kokkuvõte

Selles artiklis olen selgitanud 5 võimalust, kuidas VBA leida viimane rida Excelis. Võite järgida mis tahes meetodit viimase rea leidmiseks. Kui teil on nende meetoditega seoses segadust või küsimusi, võite kommenteerida allpool.

Eelmine postitus Kuidas valida iga teine rida Excelis (6 võimalust)
Järgmine postitus Füüsilisest isikust ettevõtjate maksukalkulaator Exceli tabelis (luua lihtsate sammudega)

Hugh West on suurte kogemustega Exceli koolitaja ja analüütik, kellel on selles valdkonnas üle 10-aastane kogemus. Tal on raamatupidamise ja rahanduse bakalaureusekraad ning ärijuhtimise magistrikraad. Hugh’l on kirg õpetamise vastu ning ta on välja töötanud ainulaadse õpetamisviisi, mida on lihtne järgida ja mõista. Tema Exceli ekspertteadmised on aidanud tuhandetel õpilastel ja spetsialistidel üle maailma oma oskusi parandada ja karjääris silma paista. Oma ajaveebi kaudu jagab Hugh oma teadmisi maailmaga, pakkudes tasuta Exceli õpetusi ja veebikoolitusi, mis aitavad üksikisikutel ja ettevõtetel oma potentsiaali täielikult ära kasutada.