VBA Tafuta Safu ya Mwisho katika Excel (njia 5)

Hugh West

16-10-2023 Macros & Excel VBA
  • Shiriki Hii
Hugh West

Katika VBA unaweza kutumia mbinu tofauti kupata safu mlalo ya mwisho. Katika makala haya, nitaelezea mbinu tofauti za VBA kupata safu mlalo ya mwisho katika Excel.

Ili kufanya maelezo haya yaonekane, nitatumia sampuli ya mkusanyiko wa data. Kuna safu wima 4 katika mkusanyiko wa data zinazowakilisha maelezo ya mauzo. Safu wima hizi ni Mtu wa Mauzo, Kanda, Bidhaa, na Bei .

7> Pakua Ili Kufanya Mazoezi VBA Tafuta Safu Mlalo.xlsm

Njia za VBA Tafuta Safu Mlalo ya Mwisho katika Excel

1. Kwa Kutumia Seli Maalumu ili Kupata Safu Mlalo ya Mwisho

Unaweza kutumia njia ya Viini Maalum kupata safu mlalo ya mwisho kwa kutumia VBA .

Kwanza, fungua Msanidi Programu kichupo >> kisha chagua Visual Basic

Dirisha jipya la Microsoft Visual Basic for Applications litatokea.

Sasa, kutoka Ingiza >> chagua Moduli

A Moduli itafunguliwa.

Kisha andika msimbo ufuatao kwenye >Moduli . 

5490

Hapa, nimeunda utaratibu mdogo unaoitwa LastRow_SpecialCells , ambapo aina ya Long ya mabadiliko LastRow imetangazwa.

Kisha ikafafanua kigezo kwa kutumia mbinu ya Range.SpecialCells . Hapa, nimetumia safu A ( A:A ) kama safu. Zinazotolewa xlCellTypeLastCell kama kigezo cha aina ya Seli Maalum , hii itarudisha kisanduku cha mwisho cha masafa (kwa kesi hii, kutoka safu wima. A ).

Nimetumia kisanduku cha ujumbe kuonyesha matokeo.

Baada ya hapo, Hifadhi msimbo na urudi kwenye laha ya kazi.

Tena, fungua Tazama kichupo >> kutoka Macros >> chagua Angalia Macros

Kisha, kisanduku cha mazungumzo kitatokea.

Sasa, kutoka kwa Jina la Jumla chagua LastRow_SpecialCells pia chagua kitabu cha kazi ndani ya Macros katika .

Mwishowe, Endesha iliyochaguliwa Macro .

Kwa hivyo, itatokea kisanduku cha ujumbe kinachoonyesha nambari ya safu mlalo ya mwisho.

2. Kwa kutumia safu mlalo.Hesabu kwa visanduku visivyo na kitu

Unaweza kutumia njia ya Rows.Count kupata safu mlalo ya mwisho kwa kutumia VBA .

Sasa, fungua Kichupo cha Msanidi >> kisha chagua Visual Basic

Dirisha jipya la Microsoft Visual Basic for Applications litatokea.

Sasa, kutoka Ingiza >> chagua Moduli

A Moduli itafunguliwa.

Kisha andika msimbo ufuatao kwenye >Moduli . 

5759

Hapa, nimeunda utaratibu mdogo uitwao LastRow_NonEmpty, ambapo Long aina ya mabadiliko LastRow imetangazwa.

Sasa, SELI(Safu.Hesabu, 1) itahesabu ni safu mlalo ngapi katika safu wima ya kwanza. Kisha ikatumika End(xlUp).Row sasa hii itapata safu mlalo ya mwisho kutumika katika safu ya Excel.

Mwishowe, nimetumia kisanduku cha ujumbe kuonyeshatokeo.

Kisha, Hifadhi msimbo na urudi kwenye lahakazi.

Hapa, fungua Tazama kichupo >> kutoka Macros >> chagua Angalia Macros

Sasa, kisanduku cha mazungumzo kitatokea.

Kisha, kutoka Jina la Jumla chagua LastRow_NonEmpty pia chagua kitabu cha kazi ndani ya Macros katika .

Mwishowe, Endesha iliyochaguliwa Macro .

Kwa hivyo, itatokea kisanduku cha ujumbe kinachoonyesha nambari ya safu mlalo ya mwisho.

3. Kwa Kutumia Safu Mlalo.Hesabu kwa Safu Wima Yoyote Iliyochaguliwa

Kwa kutumia safu wima yoyote iliyochaguliwa katika VBA, unaweza kupata safu mlalo ya mwisho.

Kwanza. , fungua Kichupo cha Msanidi >> kisha chagua Visual Basic

Dirisha jipya la Microsoft Visual Basic for Applications litatokea.

Sasa, kutoka Ingiza >> chagua Moduli

A Moduli itafunguliwa.

Kisha andika msimbo ufuatao kwenye >Moduli . 

4205

Hapa, nimeunda utaratibu mdogo uitwao LastRow_AnyColumn, ambapo Long aina ya mabadiliko LastRow imetangazwa.

Kisha, katika Safu kupewa safuwima B kama kigezo na pia Safu.Hesabu , hii itahesabu safu ngapi ziko kwenye safu wima fulani B . Ifuatayo, imetumika End(xlup). Safu mlalo ambayo itapata safu mlalo ya mwisho kutumika katika safu ya Excel.

Mwisho, nimetumia kisanduku cha ujumbe kuonyeshatokeo.

Inayofuata, Hifadhi msimbo na urudi kwenye lahakazi.

Kisha, fungua Tazama kichupo >> kutoka Macros >> chagua Angalia Macros

Hapa, kisanduku cha mazungumzo kitatokea.

Sasa, kutoka kwa Jina la Jumla chagua LastRow_AnyColumn pia chagua kitabu cha kazi ndani ya Macros katika .

Mwishowe, Endesha iliyochaguliwa Macro .

Kwa hivyo, itatokea kisanduku cha ujumbe kinachoonyesha nambari ya safu mlalo ya mwisho.

Masomo Sawa:

  • VBA Tafuta katika Safu katika Excel (Njia 7)
  • Tafuta na Ubadilishe Kwa Kutumia VBA (11 Njia)
  • Tafuta Ulinganifu Hasa Kwa Kutumia VBA katika Excel (Njia 5)
  • Jinsi ya Kupata Kamba na VBA katika Excel (Mifano 8)

4. KutumiaSafu Iliyotumika Kupata Safu Mlalo

Unaweza kutumia Range Iliyotumika ya lahakazi ili kupata ya mwisho. safu mlalo ukitumia VBA .

Sasa, fungua Kichupo cha Msanidi >> kisha chagua Visual Basic

Kisha, dirisha jipya la Microsoft Visual Basic for Applications litatokea.

0>Sasa, kutoka Ingiza>> chagua Moduli

A Moduli itafunguliwa.

Kisha, andika msimbo ufuatao katika Moduli .

6553

Hapa, nimeunda utaratibu mdogo uitwao LastRow_UsedRange, ambapo Long aina ya tofauti LastRow imetangazwa.

Inayofuata, imefafanuliwakutofautisha kwa kutumia njia ya ActiveSheet.UsedRange.Rows pia ilitoa ActiveSheet.UsedRange.Rows.Count kama kigezo cha ActiveSheet.UsedRange.Rows , hii itarejesha safu mlalo ya mwisho.

Nimetumia kisanduku cha ujumbe kuonyesha matokeo.

Sasa, Hifadhi msimbo na urudi kwenye lahakazi.

Kisha, fungua Tazama kichupo >> kutoka Macros >> chagua Angalia Macros

Inayofuata, kisanduku kidadisi kitatokea.

Kisha, kutoka Macro name chagua LastRow_UsedRange pia chagua kitabu cha kazi ndani ya Macros katika .

Mwishowe, Endesha iliyochaguliwa Macro .

Kwa hivyo, itatokea kisanduku cha ujumbe kinachoonyesha nambari ya safu mlalo ya mwisho.

5. Kwa kutumia Masafa.Tafuta ili Tafuta Mwisho. Safu mlalo

Unaweza kutumia Mbinu.Tafuta mbinu ili kupata safu mlalo ya mwisho kwa kutumia VBA .

Sasa, fungua >Msanidi kichupo >> kisha chagua Visual Basic

Hapa, dirisha jipya la Microsoft Visual Basic for Applications litatokea.

Sasa, kutoka 2>Ingiza >> chagua Moduli

A Moduli itafunguliwa.

Kisha andika msimbo ufuatao katika Moduli .

4819

Hapa, nimeunda utaratibu mdogo uitwao Range_Find_Method, ambapo aina ya Long LastRow imetangazwa. .

Kisha ikafafanua kigezo kwa kutumia mbinu ya Cells.Find . Hapa, alitangaza 7vigezo. Katika Nini kigezo nilichotumia (“*”) ambacho kitapata kisanduku cha kwanza kisicho tupu. Imetolewa A1 kama masafa katika Baada ya kigezo kuanza. Katika Angalia kigezo kilichotolewa xlSehemu kuangalia sehemu yoyote ya maandishi ndani ya kisanduku.

LookIn:=xlFormulas parameta itatafuta. formula kama zipo. SearchOrder:=xlByRows kigezo kitasogea kulia kwenda kushoto na pia kuzunguka juu katika kila safu mlalo hadi kipate kisanduku kisicho tupu.

MatchCase:=False parameta itaambia Pata usizingatie herufi kubwa au ndogo. Inapopatikana isiyo tupu huacha na kurudisha nambari ya safu mlalo.

Nimetumia kisanduku cha ujumbe kuonyesha matokeo.

Sasa, Hifadhi msimbo na urudi kwenye laha ya kazi.

Hapa, fungua Tazama kichupo >> kutoka Macros >> chagua Angalia Macros

Sasa, kisanduku cha mazungumzo kitatokea.

Sasa, kutoka kwa Jina la Jumla chagua Njia_ya_Tafuta pia chagua laha ya kazi ndani ya Macros katika .

Mwishowe, Endesha iliyochaguliwa Macro .

Kwa hivyo, itatokea kisanduku cha ujumbe kinachoonyesha nambari ya safu mlalo ya mwisho.

Hitimisho

Katika makala haya, nimeelezea njia 5 za VBA kupata safu mlalo ya mwisho katika Excel. Unaweza kufuata njia yoyote kupata safu ya mwisho. Iwapo utakuwa na mkanganyiko wowote au swali kuhusu njia hizi unawezatoa maoni yako hapa chini.

Chapisho lililotangulia Jinsi ya kuchagua kila safu nyingine katika Excel (Njia 6)
Chapisho linalofuata Kikokotoo cha Ushuru wa Kujiajiri katika Lahajedwali ya Excel (Unda kwa Hatua Rahisi)

Hugh West ni mkufunzi na mchambuzi mwenye uzoefu wa juu wa Excel na uzoefu wa zaidi ya miaka 10 katika tasnia. Ana Shahada ya Kwanza katika Uhasibu na Fedha na Shahada ya Uzamili katika Utawala wa Biashara. Hugh ana shauku ya kufundisha na ameanzisha mbinu ya kipekee ya kufundisha ambayo ni rahisi kufuata na kuelewa. Ujuzi wake wa kitaalam wa Excel umesaidia maelfu ya wanafunzi na wataalamu ulimwenguni kote kuboresha ujuzi wao na kufaulu katika taaluma zao. Kupitia blogu yake, Hugh hushiriki ujuzi wake na ulimwengu, akitoa mafunzo ya bila malipo ya Excel na mafunzo ya mtandaoni ili kuwasaidia watu binafsi na biashara kufikia uwezo wao kamili.