VBA Bilatu azken errenkada Excel-en (5 modu)

Hugh West

16-10-2023 Makroak & Excel VBA
  • Partekatu Hau
Hugh West

VBAn metodo desberdinak erabil ditzakezu azken errenkada aurkitzeko. Artikulu honetan, Excel-en VBA-ren azken errenkada aurkitzeko metodo desberdinak azalduko ditut.

Azalpen hau ikusgai jartzeko, datu-multzo lagin bat erabiliko dut. Datu-multzoan 4 zutabe daude salmenten informazioa adierazten dutenak. Zutabe hauek Saltzailea, eskualdea, produktua, eta Prezioa dira.

Deskargatu praktikatzeko

VBA Find Last Row.xlsm

VBA Excel-en azken errenkada aurkitzeko moduak

1. SpecialCells erabiliz Azken errenkada aurkitzeko

SpecialCells metodoa erabil dezakezu azken errenkada aurkitzeko VBA erabiliz.

Lehenengo, ireki Garatzailea. fitxa >> ondoren, hautatu Visual Basic

Microsoft Visual Basic for Applications leiho berri bat agertuko da.

Orain, Txertatu >> hautatu Moduloa

Modulua bat irekiko da.

Ondoren, idatzi hurrengo kodea <2 atalean>Modulua . 

9374

Hemen, LastRow_SpecialCells izeneko azpi-prozedura bat sortu dut, non Long mota bat LastRow aldagaia deklaratu da.

Ondoren, aldagaia definitu da Range.SpecialCells metodoa erabiliz. Hemen, A ( A:A ) zutabea erabili dut barruti gisa. xlCellTypeLastCell SpecialCells motako parametro gisa emanda, honek barrutiaren azken gelaxka itzuliko du (kasu honetan, zutabetik A ).

Mezu-koadro bat erabili dut emaitza erakusteko.

Ondoren, Gorde kodea eta itzuli lan-orria.

Berriz, ireki Ikusi fitxa >> Makroak >> hautatu Ikusi makroak

Ondoren, elkarrizketa-koadroa agertuko da.

Orain, Makro-izena hautatu LastRow_SpecialCells hautatu ere lan-liburua Makroak barruan.

Azkenik, Exekutatu hautatutako Makroa .

Horrela, azken errenkada-zenbakia erakusten duen mezu-koadro bat agertuko da.

2. Hutsik ez diren gelaxketarako Errenkadak.Kontua erabiltzea

Rankadak.Zenbaketa metodoa erabil dezakezu azken errenkada aurkitzeko VBA erabiliz .

Orain, ireki Garatzailea fitxa >> ondoren, hautatu Visual Basic

Microsoft Visual Basic for Applications leiho berri bat agertuko da.

Orain, Txertatu >> hautatu Moduloa

Modulua bat irekiko da.

Ondoren, idatzi hurrengo kodea <2 atalean>Modulua . 

1894

Hemen, LastRow_NonEmpty izeneko azpi-prozedura bat sortu dut, non Long aldagai mota bat LastRow deklaratu da.

Orain, CELLS(Rows.Count, 1) lehen zutabean zenbat errenkada dauden zenbatuko du. Ondoren, erabili End(xlUp).Row orain honek erabilitako azken errenkada aurkituko du Excel barruti batean.

Azkenean, mezu-koadro bat erabili dut erakusteko.emaitza.

Ondoren, Gorde kodea eta itzuli lan-orrira.

Hemen, ireki Ikusi fitxa >> Makroak >> hautatu Ikusi makroak

Orain, elkarrizketa-koadroa agertuko da.

Ondoren, Makro-izena hautatu LastRow_NonEmpty hautatu lan-liburua ere Makroak barruan.

Azkenik, Exekutatu hautatutako Makroa .

Horrela, azken errenkada-zenbakia erakusten duen mezu-koadro bat agertuko da.

3. Errenkadak erabiltzea.Hautatutako edozein zutabetarako zenbatzea

Hautatutako edozein zutabe erabiliz VBAn, azken errenkada aurki dezakezu.

Lehenengo , ireki Garatzailea fitxa >> ondoren, hautatu Visual Basic

Microsoft Visual Basic for Applications leiho berri bat agertuko da.

Orain, Txertatu >> hautatu Moduloa

Modulua bat irekiko da.

Ondoren, idatzi hurrengo kodea <2 atalean>Modulua . 

9127

Hemen, LastRow_AnyColumn izeneko azpi-prozedura bat sortu dut, non Long aldagai mota bat LastRow deklaratu da.

Ondoren, Barrutia zutabea B parametro gisa emanda eta Rankada. Zenbakia ere, hau zutabe jakin batean zenbat errenkada dauden zenbatuko du B . Ondoren, erabili Amaiera(xlup). Errenkada Excel barruti batean erabilitako azken errenkada aurkituko duena.

Azken, mezu-koadro bat erabili dut erakusteko.emaitza.

Ondoren, Gorde kodea eta itzuli lan-orrira.

Ondoren, ireki Ikusi fitxa >> Makroak >> hautatu Ikusi makroak

Hemen, elkarrizketa-koadroa agertuko da.

Orain, Makro-izenetik hautatu LastRow_AnyColumn hautatu ere lan-liburua Makroak barruan.

Azkenik, Exekutatu hautatutako Makroa .

Horrela, azken errenkada-zenbakia erakusten duen mezu-koadro bat agertuko da.

Antzeko irakurketak:

  • VBA Bilatu Excel-en zutabean (7 hurbilketa)
  • Bilatu eta ordeztu VBA erabiliz (11 Moduak)
  • Bilatu bat-etortze zehatza VBA erabiliz Excel-en (5 modu)
  • Nola aurkitu VBA-rekin katea Excel-en (8 adibide)

4. UsedRange erabiltzea azken errenkada aurkitzeko

Lan-orriko UsedRange propietatea erabil dezakezu azkena aurkitzeko errenkada VBA erabiliz.

Orain, ireki Garatzailea fitxa >> ondoren, hautatu Visual Basic

Ondoren, Microsoft Visual Basic for Applications leiho berri bat agertuko da.

Orain, Txertatu >> hautatu Moduloa

Modulua bat irekiko da.

Ondoren, idatzi hurrengo kodea Modulua . 

7745

Hemen, LastRow_UsedRange izeneko azpi-prozedura bat sortu dut, non Long aldagai mota . LastRow deklaratu da.

Ondoren, definitu daaldagaia ActiveSheet.UsedRange.Rows metodoa erabiliz ActiveSheet.UsedRange.Rows.Count ere eman zuen ActiveSheet.UsedRange.Rows -ren parametro gisa; honek azken errenkada.

Mezu-koadro bat erabili dut emaitza erakusteko.

Orain, Gorde kodea eta itzuli lan-orrira.

Ondoren, ireki Ikusi fitxa >> Makroak >> hautatu Ikusi makroak

Ondoren, elkarrizketa-koadroa agertuko da.

Ondoren, makrotik izena hautatu LastRow_UsedRange hautatu lan-liburua ere Makroak barruan.

Azkenik, Exekutatu hautatutako makroa .

Horrela, azken errenkada-zenbakia erakusten duen mezu-koadro bat agertuko da.

5. Range erabiliz. Find to Find Last Errenkada

Barrutia. Bilatu metodoa erabil dezakezu azken errenkada aurkitzeko VBA erabiliz.

Orain, ireki Garatzailea fitxa >> ondoren, hautatu Visual Basic

Hemen, Microsoft Visual Basic for Applications -ren leiho berri bat agertuko da.

Orain, <-tik 2>Txertatu >> hautatu Moduloa

Modulua bat irekiko da.

Ondoren, idatzi hurrengo kodea Modulua n. 

7706

Hemen, Range_Find_Method izeneko azpi-prozedura bat sortu dut, non Long aldagai mota LastRow deklaratu den. .

Ondoren, aldagaia definitu da Cells.Find metodoa erabiliz. Hemen, deklaratu 7parametroak. Zer parametroan erabili dudan ("*"), hutsik gabeko lehen gelaxka aurkituko du. A1 hasierako Ondoren parametroko barruti gisa emanda. Emandako LookAt parametroan xlPart gelaxkaren barruan dagoen testuaren edozein zati ikusteko.

LookIn:=xlFormulas parametroak bilatuko du. formulak egonez gero. SearchOrder:=xlByRows parametroa eskuinetik ezkerrera mugituko da eta errenkada bakoitzean gora egingo du begiztak hutsik gabeko gelaxka bat aurkitu arte.

MatchCase:=False parametroak Bilatu ri esango dio ez ditzala letra larriak edo minuskulak kontuan hartzeko. Hutsik ez dagoen bat aurkitzen denean, gelditu egiten da eta errenkada-zenbakia itzultzen du.

Mezu-koadro bat erabili dut emaitza erakusteko.

Orain, Gorde kodea. eta itzuli lan-orrira.

Hemen, ireki Ikusi fitxa >> Makroak >> hautatu Ikusi makroak

Orain, elkarrizketa-koadroa agertuko da.

Orain, Makro-izena hautatu Range_Find_Method hautatu ere lan-orria Makroak barruan.

Azkenik, Exekutatu hautatutako Makroa .

Horrela, azken errenkada-zenbakia erakusten duen mezu-koadro bat agertuko da.

Ondorioa

Artikulu honetan, VBA Excel-en azken errenkada aurkitzeko 5 modu azaldu ditut. Azken errenkada aurkitzeko edozein metodo jarraitu dezakezu. Metodo hauei buruzko nahasmena edo galderaren bat baduzuiruzkin behean.

Aurreko mezua Nola hautatu beste errenkada guztiak Excel-en (6 modu)
Hurrengo mezua Autoenplegu Zerga kalkulagailua Excel kalkulu-orrian (Sortu urrats errazekin)

Hugh West esperientzia handiko Excel prestatzaile eta analista da, industrian 10 urte baino gehiagoko esperientzia duena. Kontabilitate eta Finantzetan Lizentziatua eta Enpresen Administrazioko Masterra da. Hughek irakasteko grina du eta jarraitzeko eta ulertzeko erraza den irakaskuntza-ikuspegi berezia garatu du. Excel-en ezagutza adituak mundu osoko milaka ikasle eta profesionalei beren gaitasunak hobetzen eta beren karreran bikaintzen lagundu die. Bere blogaren bidez, Hughek bere ezagutzak munduarekin partekatzen ditu, doako Excel tutorialak eta lineako prestakuntza eskainiz, pertsona eta enpresei beren potentzial osoa lortzen laguntzeko.