A VBA-ban különböző módszereket használhat az utolsó sor megtalálásához. Ebben a cikkben elmagyarázom a VBA különböző módszereit az Excel utolsó sorának megtalálására.

Ahhoz, hogy a magyarázat láthatóvá váljon, egy mintaadatkészletet fogok használni. Az adatkészletben 4 oszlop képviseli az értékesítési információkat. Ezek az oszlopok a következők Értékesítési személy, régió, termék, és Ár .

Letöltés a gyakorlathoz

A VBA utolsó sor keresésének módjai az Excelben

1. SpecialCells használata az utolsó sor megtalálásához

Használhatja a SpecialCells módszerrel az utolsó sor megtalálására a VBA .

Először nyissa meg a Fejlesztő tab>> majd válassza ki Visual Basic

Egy új ablak Microsoft Visual Basic for Applications fog felbukkanni.

Most, a Beillesztés >> select Modul

A Modul megnyílik.

Ezután írja a következő kódot a Modul .

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

Itt létrehoztam egy aleljárást, amelynek neve LastRow_SpecialCells , ahol a Hosszú változó típusa LastRow bejelentették.

Ezután definiálja a változót a Range.SpecialCells Itt az oszlopot használtam. A ( A:A ) mint tartomány. Feltéve, hogy xlCellTypeLastCell mint a SpecialCells , ez a tartomány utolsó celláját adja vissza (ebben az esetben az oszlopból). A ).

Az eredmény megjelenítéséhez egy üzenőmezőt használtam.

Utána, Mentés a kódot, és térjen vissza a munkalapra.

Ismét nyissa meg a A megtekintése tab>> from Makrók >> select Makrók megtekintése

Ezután egy párbeszédpanel fog felbukkanni.

Most, a Makró neve válassza ki a LastRow_SpecialCells válassza ki a munkafüzetet is a Makrók a .

Végre, Fuss a kiválasztott Makró .

Így felugrik egy üzenőmező, amely az utolsó sorszámot mutatja.

2. A Rows.Count használata a nem üres cellákhoz

Használhatja a Rows.Count módszerrel az utolsó sor megtalálására a VBA .

Most nyissa meg a Fejlesztő tab>> majd válassza ki Visual Basic

Egy új ablak Microsoft Visual Basic for Applications fog felbukkanni.

Most, a Beillesztés >> select Modul

A Modul megnyílik.

Ezután írja a következő kódot a Modul .

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

Itt létrehoztam egy LastRow_NonEmpty nevű aleljárást, ahol a Hosszú változó típusa LastRow bejelentették.

Most, CELLS(Rows.Count, 1) megszámolja, hogy hány sor van az első oszlopban. Ezután a End(xlUp).Row most ez megkeresi az utolsó használt sort egy Excel-tartományban.

Végül egy üzenőmezőt használtam az eredmény megjelenítésére.

Akkor, Mentés a kódot, és térjen vissza a munkalapra.

Itt nyissa meg a A megtekintése tab>> from Makrók >> select Makrók megtekintése

Most egy párbeszédpanel fog felbukkanni.

Ezután, a Makró neve válassza ki a LastRow_NonEmpty válassza ki a munkafüzetet is a Makrók a .

Végre, Fuss a kiválasztott Makró .

Így felugrik egy üzenőmező, amely az utolsó sorszámot mutatja.

3. A Rows.Count használata bármely kiválasztott oszlophoz

A kiválasztott oszlopok bármelyikének használatával a VBA, megtalálja az utolsó sort.

Először nyissa meg a Fejlesztő tab>> majd válassza ki Visual Basic

Egy új ablak Microsoft Visual Basic for Applications fog felbukkanni.

Most, a Beillesztés >> select Modul

A Modul megnyílik.

Ezután írja a következő kódot a Modul .

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

Itt létrehoztam egy LastRow_AnyColumn nevű alprocedúrát, ahol a Hosszú változó típusa LastRow bejelentették.

Aztán a Tartomány adott az oszlop B paraméterként, valamint Rows.Count , ez megszámolja, hogy hány sor van egy adott oszlopban. B . Következő, használt End(xlup). Row amely megkeresi az utolsó használt sort egy Excel-tartományban.

Végül egy üzenőmezőt használtam az eredmény megjelenítésére.

Következő, Mentés a kódot, és térjen vissza a munkalapra.

Ezután nyissa meg a A megtekintése tab>> from Makrók >> select Makrók megtekintése

Itt egy párbeszédpanel fog felbukkanni.

Most, a Makró neve válassza ki a LastRow_AnyColumn válassza ki a munkafüzetet is a Makrók a .

Végre, Fuss a kiválasztott Makró .

Így felugrik egy üzenőmező, amely az utolsó sorszámot mutatja.

Hasonló olvasmányok:

• VBA keresés az Excel oszlopban (7 megközelítés)
• Keresés és csere a VBA használatával (11 mód)
• Pontos egyezés keresése VBA használatával az Excelben (5 mód)
• Hogyan keresse meg a karakterláncot a VBA-val az Excelben (8 példa)

4. UsedRange használata az utolsó sor kereséséhez

Használhatja a UsedRange tulajdonsága a munkalap utolsó sorának megkereséséhez a következővel VBA .

Most nyissa meg a Fejlesztő tab>> majd válassza ki Visual Basic

Ezután egy új ablakban a Microsoft Visual Basic for Applications fog felbukkanni.

Most, a Beillesztés >> select Modul

A Modul megnyílik.

Ezután írja a következő kódot a Modul .

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

Itt létrehoztam egy LastRow_UsedRange nevű aleljárást, ahol a Hosszú változó típusa LastRow bejelentették.

Ezután definiáljuk a változót a ActiveSheet.UsedRange.Rows módszer is biztosított ActiveSheet.UsedRange.Rows.Count mint a ActiveSheet.UsedRange.Rows , ez az utolsó sort adja vissza.

Az eredmény megjelenítéséhez egy üzenőmezőt használtam.

Most, Mentés a kódot, és térjen vissza a munkalapra.

Ezután nyissa meg a A megtekintése tab>> from Makrók >> select Makrók megtekintése

Ezután egy párbeszédpanel fog felbukkanni.

Ezután, a Makró neve válassza ki a LastRow_UsedRange válassza ki a munkafüzetet is a Makrók a .

Végre, Fuss a kiválasztott Makró .

Így felugrik egy üzenőmező, amely az utolsó sorszámot mutatja.

5. Az utolsó sor keresése a Range.Find használatával

Használhatja a Range.Find módszerrel az utolsó sor megtalálására a VBA .

Most nyissa meg a Fejlesztő tab>> majd válassza ki Visual Basic

Itt egy új ablakban a Microsoft Visual Basic for Applications fog felbukkanni.

Most, a Beillesztés >> select Modul

A Modul megnyílik.

Ezután írja a következő kódot a Modul .

 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 

Itt létrehoztam egy Range_Find_Method nevű alprocedúrát, ahol egy Hosszú változó típusa LastRow bejelentették.

Ezután definiálja a változót a Cells.Find módszer. Itt 7 paramétert deklaráltunk. Mi paramétert használtam ("*"), amely megtalálja az első nem üres cellát. Adott A1 mint a tartomány a A után paramétert a kezdéshez. A LookAt megadott paraméter xlPart a cellán belüli szöveg bármelyik részét megnézheti.

LookIn:=xlFormulák paraméter keresni fogja a képleteket, ha vannak ilyenek. SearchOrder:=xlByRows paraméter jobbról balra halad, és addig hajtja végig az egyes sorokat, amíg nem talál egy nem üres cellát.

MatchCase:=False paraméter megmondja Keresd meg a nem veszi figyelembe a kis- és nagybetűket. Ha nem üres betűt talál, akkor megáll, és visszaadja a sorszámot.

Az eredményt egy üzenőmezőben mutattam meg.

Most, Mentés a kódot, és térjen vissza a munkalapra.

Itt nyissa meg a A megtekintése tab>> from Makrók >> select Makrók megtekintése

Most egy párbeszédpanel fog felbukkanni.

Most, a Makró neve válassza ki a Range_Find_Method válassza ki a munkalapot is a Makrók a .

Végre, Fuss a kiválasztott Makró .

Így felugrik egy üzenőmező, amely az utolsó sorszámot mutatja.

Következtetés

Ebben a cikkben elmagyaráztam 5 módját annak, hogyan lehet VBA megtalálni az utolsó sort az Excelben. Az utolsó sor megtalálásához bármelyik módszert követheti. Ha bármilyen zavara vagy kérdése van ezekkel a módszerekkel kapcsolatban, alább megjegyzést tehet.