Iskanje zadnje vrstice s podatki v območju z uporabo Excelovih makrov VBA (7 metod)

  • Deliti To
Hugh West

Pri delu z Microsoft Excelom je iskanje zadnjih vrstic ali stolpcev pogosto opravilo. Za iskanje zadnjih uporabljenih vrstic ali stolpcev uporabljamo tipkovnico. Morda pa se znajdete v položaju, ko morate najti zadnjo uporabljeno vrstico iz zapletenega nabora podatkov. V tem učbeniku se boste s praktičnimi primeri in ustreznimi ponazoritvami naučili najti zadnjo vrstico s podatki v območju z uporabo VBA v Excelu.

Prenesi delovni zvezek za prakso

Prenesite ta delovni zvezek.

Poiščite zadnjo uporabljeno vrstico v območju.xlsm

7 metod za iskanje zadnje vrstice s podatki v območju z uporabo Excelovih makrov VBA

V naslednjih razdelkih vam bomo predstavili sedem metod, ki vam bodo pomagale poiskati zadnjo vrstico s podatki v območju z uporabo VBA v Excelu. Priporočamo vam, da se naučite in uporabite vse te metode ter tako obogatite svoje znanje o Excelu.

📕 Preberite več : Poiščite zadnjo celico z vrednostjo v vrstici v Excelu (6 metod)

Za predstavitev tega učbenika bomo uporabili ta nabor podatkov:

Tu imamo nabor podatkov, ki vsebuje podatke o nekaterih igralcih. S tem naborom vas bomo naučili vseh metod.

Odprite urejevalnik VBA

Preden začnemo, vam tukaj dajemo preprost opomnik za odprtje urejevalnika VBA v Excelu.

Najprej pritisnite Alt+F11 na tipkovnici. Nato izberite Insert> Modul. Nato se odpre urejevalnik VBA programa Excel.

1. Uporaba lastnosti Range.End za iskanje zadnje vrstice s podatki v območju z uporabo VBA

Ta metoda v bistvu poišče konec razpona. Predvsem zadnjega uporabljenega razpona celic. To metodo lahko uporabimo za iskanje zadnje vrstice s podatki v danem razponu. Z uporabo VBA boste dobili želene rezultate.

📌 Koraki

Najprej odprite VBA Urednik.

Nato vnesite naslednjo kodo:

 Sub range_end_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = Range("B4").End(xlDown).Row MsgBox "Last used row: " & LastRow End Sub 

Datoteko shranite. Nato pritisnite Alt+F8 da odprete pogovorno okno Makro. range_end_method

Nato kliknite možnost Zaženi.

Kot lahko vidite, smo uspešno poiskali zadnjo vrstico s podatki v območju z uporabo VBA v Excelu.

2. Range.Find Lastnost VBA v programu Excel

Zdaj v VBA uporabljamo metodo Range.Find za iskanje določene vrednosti iz nabora podatkov. Toda ta metoda pride prav za iskanje zadnje vrstice s podatki v razponu. Deluje podobno kot pogovorno okno Find & Replace v programu Excel. Metoda Range. Find ima veliko argumentov. Vendar jih ne bomo vseh uporabili.

Preden uporabimo metodo Range.Find, vam na kratko povemo nekaj informacij:

Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious)

Kaj := "*" - Zvezdica je nadomestni znak, ki odkrije katero koli besedilo ali številko v celici. V prvi vrsti je enak kot pri iskanju neprazne celice.

SearchOrder:=xlByRows - To pomeni, da je treba prekopati vsako celotno vrstico, preden se premaknete na naslednjo. Smer iskanja je od leve proti desni ali od desne proti levi, odvisno od argumenta SearchDirection. Dodatna možnost je xlByColumns, ki se uporabi pri iskanju zadnjega stolpca.

Smer iskanja:=xlPrevious - To določa smer raziskovanja. xlPrevious pomeni, da bo iskal od desne proti levi ali od spodaj navzgor. Druga možnost je xlNext, ki se premakne v nasprotno smer.

📌 Koraki

Najprej odprite urejevalnik VBA.

Nato vnesite naslednjo kodo:

 Sub range_find_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = sht.Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row MsgBox "Last used row: " & LastRow End Sub 

Datoteko shranite. Nato pritisnite Alt+F8, da odprete pogovorno okno Makro. range_find_method.

Nato kliknite na Spustite .

Na koncu bo našel zadnjo vrstico s podatki v našem delovnem listu Excel.

3. Uporaba funkcije SpecialCells za iskanje zadnje vrstice z uporabo VBA

Ta metoda deluje tako, da pritisnete Ctrl+Konec na tipkovnici. Ko na tipkovnici pritisnete kombinacijo tipk Ctrl+End, vas bo vedno pripeljala do zadnje vrstice, ne glede na to, kje se nahajate. Če pa želite poiskati zadnjo uporabljeno vrstico s podatki z uporabo kod VBA v Excelu, je ta koda nujna za vas.

📌 Koraki

Najprej odprite urejevalnik VBA.

Nato vnesite naslednjo kodo:

 Sub specialcells_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = sht.Cells.SpecialCells(xlCellTypeLastCell).Row MsgBox "Last used row: " & LastRow End Sub 

Datoteko shranite. Nato pritisnite Alt+F8, da odprete pogovorno okno Makro. specialcells_method .

Nato kliknite na Spustite .

Kot lahko vidite, nam je uspelo najti zadnjo vrstico s podatki z uporabo VBA v Excelu.

4. Uporaba funkcije UsedRange za iskanje zadnje vrstice s podatki v območju

UsedRange v VBA je lastnost delovnega lista, ki vrne objekt območja, ki predstavlja uporabljeno območje (vse uporabljene ali naložene Excelove celice v delovnem listu) na določenem delovnem listu. To je lastnost, ki pomeni območje, ki ga pokrivajo ali določajo zgornje leve uporabljene celice in zadnje desne uporabljene celice v delovnem listu.

📌 Koraki

Najprej odprite urejevalnik VBA.

Nato vnesite naslednjo kodo:

 Sub usedRange_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row MsgBox "Last used row: " & LastRow End Sub 

Datoteko shranite. Nato pritisnite Alt+F8, da odprete pogovorno okno Makro. usedRange_method.

Nato kliknite na Spustite .

Na koncu boste uspešno videli zadnjo uporabljeno vrstico v delovnem listu v Excelu.

5. Uporaba obsega tabele z uporabo VBA v Excelu

Če imate v delovnem listu tabelo, lahko s to metodo poiščete zadnjo vrstico s podatki.

📌 Koraki

Najprej odprite urejevalnik VBA.

Nato vnesite naslednjo kodo:

 Sub TableRange_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = sht.ListObjects("Table1").Range.Rows.Count + 3 MsgBox "Last used row: " & LastRow End Sub 

Opomba : Tukaj dodamo 3 z zadnjo vrstico, saj se je naš nabor podatkov začel po vrstici 3.

Datoteko shranite. Nato pritisnite Alt+F8, da odprete pogovorno okno Makro. TableRange_method.

Nato kliknite na Spustite .

Kot lahko vidite, smo uspešno uporabili metodo razpona tabele v kodah VBA za iskanje zadnje vrstice s podatki v Excelu.

6. Uporaba poimenovanega razpona za iskanje zadnje vrstice s podatki v razponu

Ta metoda se v Excelu ne uporablja pogosto, vendar menimo, da bi se je morali naučiti in tako obogatiti svoje znanje.

Če ima vaš nabor podatkov poimenovano območje, lahko uporabite to kodo. Oglejte si naslednjo zaslonsko sliko, ki vsebuje poimenovano območje.

📌 Koraki

Najprej odprite urejevalnik VBA.

Nato vnesite naslednjo kodo:

 Sub nameRange_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = sht.Range("Named_Range").Rows.Count + 1 MsgBox "zadnja uporabljena vrstica: " & LastRow End Sub 

Opomba : LastRow dodamo 1, ker se je naše območje začelo po vrstici 1.

Datoteko shranite. Nato pritisnite Alt+F8 da odprete pogovorno okno Makro. nameRange_method.

Nato kliknite možnost Zaženi.

Kot lahko vidite, smo z uporabo VBA uspešno našli zadnjo vrstico s podatki.

7. Funkcija CurrentRegion programa VBA v programu Excel

Za iskanje zadnje uporabljene vrstice v programu Excel lahko uporabite tudi metodo CurrentRegion v programu VBA. Čeprav je to zapleteno, lahko to po želji uporabite v svojo korist.

📌 Koraki

Najprej odprite urejevalnik VBA.

Nato vnesite naslednjo kodo:

 Sub CurrentRegion_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = sht.Range("B4").CurrentRegion.Rows.Count + 3 'dodaj številke po svoji izbiri' MsgBox "Last used row: " & LastRow End Sub 

Opomba : Območje mora biti prva celica vašega nabora podatkov. In dodajte številko vrstice po svoji izbiri. Tukaj smo dodali 3, ker se je naš nabor podatkov začel po vrstici 3.

Datoteko shranite. Nato pritisnite Alt+F8, da odprete pogovorno okno Makro. CurrentRegion_method

Nato kliknite možnost Zaženi.

Kot lahko vidite, smo s kodo VBA uspešno našli zadnjo vrstico s podatki.

💬 Stvari, ki si jih je treba zapomniti

Funkcija Range.End deluje samo za eno vrstico ali stolpec. Če vaš nabor podatkov vsebuje veliko praznih celic, boste težko našli zadnjo vrstico s podatki.

Včasih morate metodam dodati nekatere vrednosti, da se koda nemoteno izvaja. Za iskanje zadnje celice smo dodali številke vrstic. Zato si morate zapomniti, od kje se je začel vaš nabor podatkov.

Zaključek

Za konec upam, da vam je ta vadnica zagotovila delček uporabnega znanja za iskanje zadnje vrstice s podatki v območju z uporabo VBA v Excelu. Priporočamo vam, da se naučite in uporabite vsa ta navodila za svoj nabor podatkov. Prenesite vadbeni delovni zvezek in jih preizkusite sami. Prav tako nam lahko v razdelku s komentarji posredujete povratne informacije. Vaše dragocene povratne informacije nas motivirajo pri ustvarjanju takšnih vadnic.

Ne pozabite preveriti naše spletne strani Exceldemy.com za različne težave in rešitve, povezane z Excelom.

Še naprej se učite novih metod in rastite!

Hugh West je zelo izkušen trener Excela in analitik z več kot 10-letnimi izkušnjami v industriji. Po izobrazbi je diplomirani računovodstvo in finance ter magisterij poslovne administracije. Hugh ima strast do poučevanja in je razvil edinstven pristop k poučevanju, ki ga je enostavno slediti in razumeti. Njegovo strokovno znanje o Excelu je pomagalo na tisoče študentom in strokovnjakom po vsem svetu, da so izboljšali svoje sposobnosti in se izkazali v karieri. Prek svojega bloga Hugh deli svoje znanje s svetom, ponuja brezplačne vadnice za Excel in spletno usposabljanje, ki posameznikom in podjetjem pomaga doseči njihov polni potencial.