VBA Finndu síðustu röð í Excel (5 leiðir)

Hugh West

16-10-2023 Fjölvi & amp; Excel VBA
  • Deildu Þessu
Hugh West

Í VBA geturðu notað mismunandi aðferðir til að finna síðustu línuna. Í þessari grein ætla ég að útskýra mismunandi aðferðir við að finna síðustu línu VBA í Excel.

Til að gera þessa útskýringu sýnilega ætla ég að nota sýnishorn gagnasafns. Það eru 4 dálkar í gagnasafninu sem tákna söluupplýsingar. Þessir dálkar eru Sölumaður, svæði, vara, og Verð .

Sækja til að æfa

VBA Finndu síðustu línu.xlsm

Leiðir til að VBA finna síðustu línu í Excel

1. Notkun SpecialCells til að finna síðustu línu

Þú getur notað SpecialCells aðferðina til að finna síðustu línuna með því að nota VBA .

Opnaðu fyrst hönnuðinn flipi >> veldu síðan Visual Basic

Nýr gluggi Microsoft Visual Basic for Applications mun skjóta upp kollinum.

Nú, frá Setja inn >> veldu Eining

Eining verður opnuð.

Skrifaðu síðan eftirfarandi kóða í Eining . 

5922

Hér hef ég búið til undirferli sem heitir LastRow_SpecialCells , þar sem Long gerð breytunnar LastRow hefur verið lýst yfir.

Skilgreindi síðan breytuna með Range.SpecialCells aðferðinni. Hér hef ég notað dálk A ( A:A ) sem svið. Að því gefnu xlCellTypeLastCell sem tegundarfæribreytu SpecialCells mun þetta skila síðasta hólfinu fyrir sviðið (í þessu tilviki, úr dálki A ).

Ég hef notað skilaboðareit til að sýna niðurstöðuna.

Eftir það skaltu Vista kóðann og fara aftur í vinnublað.

Aftur, opnaðu flipann Skoða >> frá fjölva >> veldu Skoða fjölvi

Þá mun valgluggi opnast.

Nú, úr Macro heiti velurðu LastRow_SpecialCells veljið einnig vinnubókina í Macros in .

Að lokum, Keyrðu valið Macro .

Þannig mun það birtast skilaboðakassi sem sýnir síðustu línunúmerið.

2. Notkun Rows.Count fyrir frumur sem ekki eru tómar

Þú getur notað Rows.Count aðferðina til að finna síðustu línuna með VBA .

Opnaðu nú flipann Hönnuði >> veldu síðan Visual Basic

Nýr gluggi Microsoft Visual Basic for Applications mun skjóta upp kollinum.

Nú, frá Setja inn >> veldu Eining

Eining verður opnuð.

Skrifaðu síðan eftirfarandi kóða í Eining . 

4719

Hér hef ég búið til undirferli sem heitir LastRow_NonEmpty, þar sem Long gerð af breytu LastRow hefur verið lýst yfir.

Nú mun CELLS(Rows.Count, 1) telja hversu margar raðir eru í fyrsta dálknum. Notaði síðan End(xlUp). Row núna mun þetta finna síðustu notaða línuna í Excel-sviði.

Í lokin hef ég notað skilaboðareit til að sýnaniðurstaða.

Síðan, Vista kóðann og farðu aftur í vinnublaðið.

Hér, opnaðu Skoða flipann >> frá fjölva >> veldu Skoða fjölvi

Nú mun valmyndagluggi opnast.

Veldu síðan úr Macro heiti LastRow_NonEmpty veljið einnig vinnubókina í Macros in .

Að lokum, Keyrðu valið Macro .

Þannig mun það birtast skilaboðakassi sem sýnir síðustu línunúmerið.

3. Notkun Rows.Count fyrir valinn dálk

Með því að nota hvaða valinn dálk sem er í VBA, þú getur fundið síðustu línuna.

Fyrst , opnaðu flipann Hönnuði >> veldu síðan Visual Basic

Nýr gluggi Microsoft Visual Basic for Applications mun skjóta upp kollinum.

Nú, frá Setja inn >> veldu Eining

Eining verður opnuð.

Skrifaðu síðan eftirfarandi kóða í Module . 

9852

Hér hef ég búið til undirferli sem kallast LastRow_AnyColumn, þar sem Long gerð af breytu LastRow hefur verið lýst yfir.

Síðan, í sviðinu , gefið dálkinn B sem færibreytu og einnig Rows.Count , þetta mun telja hversu margar línur eru í tilteknum dálki B . Næst notaði End(xlup). Röð sem mun finna síðustu notaða línuna í Excel-sviði.

Síðast notaði ég skilaboðareit til að sýnaniðurstaða.

Næst, Vista kóðann og farðu aftur í vinnublaðið.

Opnaðu síðan flipann Skoða >> frá fjölva >> veldu Skoða fjölva

Hér mun gluggi opnast.

Nú, úr Macro heiti velurðu LastRow_AnyColumn veljið einnig vinnubókina í Macros in .

Að lokum, Keyrðu valið Macro .

Þannig mun það skjóta upp skilaboðakassi sem sýnir síðustu línunúmerið.

Svipuð lestur:

  • VBA Finna í dálki í Excel (7 aðferðir)
  • Finndu og skiptu út með VBA (11) Leiðir)
  • Finndu nákvæma samsvörun með því að nota VBA í Excel (5 leiðir)
  • Hvernig á að finna streng með VBA í Excel (8 dæmi)

4. Notkun UsedRange til að finna síðustu línu

Þú getur notað UsedRange eiginleika vinnublaðsins til að finna síðustu línu röð með VBA .

Opnaðu nú flipann Developer >> veldu síðan Visual Basic

Þá opnast nýr gluggi af Microsoft Visual Basic for Applications .

Nú, frá Setja inn >> veldu Eining

Eining verður opnuð.

Skrifaðu síðan eftirfarandi kóða í Module . 

8147

Hér hef ég búið til undirferli sem kallast LastRow_UsedRange, þar sem Long gerð af breytu LastRow hefur verið lýst yfir.

Næst, skilgreindubreytu sem notar ActiveSheet.UsedRange.Rows aðferðina gaf einnig ActiveSheet.UsedRange.Rows.Count sem færibreytu ActiveSheet.UsedRange.Rows , þetta mun skila síðasta röð.

Ég hef notað skilaboðareit til að sýna niðurstöðuna.

Nú, Vista kóðann og farðu aftur í vinnublaðið.

Opnaðu síðan flipann Skoða >> frá fjölva >> veldu Skoða fjölvi

Næst, valmynd opnast.

Síðan, frá Macro nafn veljið LastRow_UsedRange veljið einnig vinnubókina í Macros in .

Að lokum, Keyra völdu Macro .

Þannig birtist skilaboðakassi sem sýnir síðustu línunúmerið.

5. Notkun Range.Find til að finna síðasta Röð

Þú getur notað Range.Find aðferðina til að finna síðustu línuna með VBA .

Opnaðu nú Hönnuði flipi >> veldu síðan Visual Basic

Hér mun nýr gluggi Microsoft Visual Basic for Applications skjóta upp.

Nú, frá Setja inn >> veldu Eining

A Eining verður opnuð.

Skrifaðu síðan eftirfarandi kóða í Eining . 

9175

Hér hef ég búið til undirferli sem kallast Range_Find_Method, þar sem Long gerð af breytu LastRow hefur verið lýst yfir .

Skilgreindi síðan breytuna með Cells.Find aðferðinni. Hér lýsti 7breytur. Í Hvaða færibreytu notaði ég (“*”) sem mun finna fyrsta ótóma reitinn. Gefið A1 sem bilið í After færibreytunni til að byrja. Í LookAt færibreytunni sem gefin er upp xlPart til að skoða hvaða hluta textans sem er inni í hólfinu.

LookIn:=xlFormulas færibreytan mun leita að formúlur ef þær eru til. SearchOrder:=xlByRows færibreytan færist frá hægri til vinstri og fer einnig upp í gegnum hverja röð þar til hún finnur ótóman reit.

MatchCase:=False færibreyta mun segja Finndu að taka ekki tillit til há- eða lágstafa. Þegar ekki autt finnst stoppar það og skilar línunúmerinu.

Ég hef notað skilaboðareit til að sýna niðurstöðuna.

Nú, Vista kóðann og farðu aftur í vinnublaðið.

Hér, opnaðu Skoða flipann >> frá fjölva >> veldu Skoða fjölvi

Nú mun valmyndagluggi opnast.

Veldu nú úr Macro heiti Range_Find_Method veljið einnig vinnublaðið innan Macros in .

Að lokum, Keyrðu valið Macro .

Þannig mun það birtast skilaboðakassi sem sýnir síðustu línunúmerið.

Niðurstaða

Í þessari grein hef ég útskýrt 5 leiðir til að VBA finna síðustu línuna í Excel. Þú getur fylgst með hvaða aðferð sem er til að finna síðustu línuna. Ef þú hefur einhverjar ruglingar eða spurningar varðandi þessar aðferðir getur þúathugasemd hér að neðan.

Fyrri færsla Hvernig á að velja aðra hverja röð í Excel (6 leiðir)
Næsta færsla Sjálfstætt starfandi skattreiknivél í Excel töflureikni (Búðu til með einföldum skrefum)

Hugh West er mjög reyndur Excel þjálfari og sérfræðingur með yfir 10 ára reynslu í greininni. Hann er með BA gráðu í bókhaldi og fjármálum og meistaragráðu í viðskiptafræði. Hugh hefur ástríðu fyrir kennslu og hefur þróað einstaka kennsluaðferð sem auðvelt er að fylgja eftir og skilja. Sérfræðiþekking hans á Excel hefur hjálpað þúsundum nemenda og fagfólks um allan heim að bæta færni sína og skara fram úr í starfi. Í gegnum bloggið sitt deilir Hugh þekkingu sinni með heiminum og býður upp á ókeypis Excel námskeið og netþjálfun til að hjálpa einstaklingum og fyrirtækjum að ná fullum möguleikum.