A Microsoft Excel programmal való munka során az utolsó sorok vagy oszlopok megtalálása gyakori feladat. Az utolsó használt sorok vagy oszlopok megtalálására a billentyűzetet használjuk. De előfordulhat, hogy olyan helyzetbe kerül, amikor egy összetett adathalmazból kell megtalálnia az utolsó használt sort. Ebben a bemutatóban gyakorlati példákkal és megfelelő illusztrációkkal megtanulja, hogyan találja meg az utolsó sort egy tartományban lévő adatokkal az Excel VBA segítségével.

Gyakorlati munkafüzet letöltése

Töltse le ezt a gyakorlati munkafüzetet.

7 módszerek az utolsó sor keresésére az adatokkal egy tartományban az Excel VBA makrók használatával

Az elkövetkező szakaszokban hét olyan módszert mutatunk be, amelyek segítségével az Excelben a VBA segítségével megtalálhatja az utolsó sort egy tartományban lévő adatokkal. Javasoljuk, hogy tanulja meg és alkalmazza ezeket a módszereket, hogy gazdagítsa Excel-ismereteit.

📕 Olvass tovább : Keresse meg az utolsó cellát az Excel sorban lévő értékkel (6 módszer)

A bemutató bemutatásához ezt az adathalmazt fogjuk használni:

Itt van egy adathalmaz, amely néhány játékos adataiból áll. Ezt fogjuk használni az összes módszer megtanításához.

VBA-szerkesztő megnyitása

Mielőtt elkezdenénk, itt korunkban adunk egy egyszerű emlékeztetőt, hogy nyissa meg a VBA-szerkesztőt az Excelben.

Először nyomja meg a Alt+F11 a billentyűzeten. Ezután válassza a Beszúrás> Modul. Ezután megnyílik az Excel VBA-szerkesztője.

1. A Range.End tulajdonság használata a tartományban lévő adatokkal rendelkező utolsó sor megkereséséhez a VBA használatával

Nos, ez a módszer alapvetően egy tartomány végét találja meg. Főleg az utoljára használt cellatartományt. Ezt a módszert használhatjuk arra, hogy megtaláljuk az utolsó sort, amely egy adott tartományban adatokat tartalmaz. A VBA használatával megkapjuk a kívánt eredményt.

📌 Lépések

① Először nyissa meg a VBA Szerkesztő.

② Ezután írja be a következő kódot:

 Sub range_end_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = Range("B4").End(xlDown).Row MsgBox "Utolsó használt sor: " & LastRow End Sub 

③ Most mentse el a fájlt. Ezután nyomja meg a Alt+F8 a Makró párbeszédpanel megnyitásához. Válassza a range_end_method

④ Ezután kattintson a Futtatás gombra.

Amint láthatja, sikeresen megtaláltuk az utolsó sort egy tartományban lévő adatokkal az Excel VBA segítségével.

2. A VBA Range.Find tulajdonsága az Excelben

Nos, a VBA-ban a Range.Find módszert használjuk egy adott érték keresésére egy adathalmazból. De ez a módszer jól jön, ha egy tartományban az utolsó sort keressük, amelyikben adatok vannak. Úgy működik, mint az Excel Find & Replace párbeszédpanelje. A Range. Find módszernek sok argumentuma van, de nem fogjuk mindet használni.

Mielőtt a Range.Find módszert használnánk, adjunk egy gyors információt:

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

Mi := "*" - A csillag egy joker karakter, amely felfedez bármilyen szöveget vagy számot a cellában. Elsősorban ugyanaz, mint a nem üres cellák keresése.

SearchOrder:=xlByRows - Ez azt jelenti, hogy minden egyes soron végig kell ásni, mielőtt a következőre lépnénk. Az irányt a SearchDirection argumentumtól függően balról jobbra vagy jobbról balra keressük. A további opció itt az xlByColumns, amelyet az utolsó oszlop keresésekor használunk.

SearchDirection:=xlPrevious - Ez határozza meg, hogy melyik irányba kutasson. xlPrevious azt jelenti, hogy jobbról balra vagy alulról felfelé fog keresni. A másik alternatíva az xlNext, amely az ellenkező irányba tolódik.

📌 Lépések

① Először nyissa meg a VBA-szerkesztőt.

② Ezután írja be a következő kódot:

 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 "Utolsó használt sor: " & LastRow End Sub 

③ Most mentse el a fájlt. Ezután nyomja meg az Alt+F8 billentyűkombinációt a Makró párbeszédpanel megnyitásához. Válassza ki a range_find_method.

④ Ezután kattintson a Fuss .

Végül megtalálja az utolsó adatsort az Excel munkalapunkon.

3. A SpecialCells funkció használata az utolsó sor kereséséhez VBA használatával

Ez a módszer úgy működik, mintha a Ctrl+End Ha a billentyűzeten megnyomja a Ctrl+End billentyűkombinációt, akkor mindig az utolsó sorhoz jut, függetlenül attól, hogy hol van. De ha az Excelben VBA-kódok segítségével szeretné megtalálni az utolsó használt sort az adatokkal, akkor ez a kód elengedhetetlen az Ön számára.

📌 Lépések

① Először nyissa meg a VBA-szerkesztőt.

② Ezután írja be a következő kódot:

 Sub specialcells_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = sht.Cells.SpecialCells(xlCellTypeLastCell).Row MsgBox "Utolsó használt sor: " & LastRow End Sub 

③ Most mentse el a fájlt. Ezután nyomja meg az Alt+F8 billentyűkombinációt a Makró párbeszédpanel megnyitásához. Válassza ki a specialcells_method .

④ Ezután kattintson a Fuss .

Amint láthatja, sikeresen megtaláljuk az utolsó sort az adatokkal az Excel VBA segítségével.

4. Az UsedRange függvény használata az utolsó sor kereséséhez, amelyben az adatok egy tartományban vannak

A UsedRange a VBA-ban a munkalap birtoklása, amely egy olyan tartományobjektumot ad vissza, amely egy adott munkalapon a használt tartományt (a munkalapon használt vagy betöltött összes Excel-cella) képviseli. Ez egy olyan tulajdonság, amely a munkalap bal felső használt cellái és a munkalap utolsó jobb oldali használt cellái által lefedett vagy meghatározott területet jelenti.

📌 Lépések

① Először nyissa meg a VBA-szerkesztőt.

② Ezután írja be a következő kódot:

 Sub usedRange_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row MsgBox "Utolsó használt sor: " & LastRow End Sub 

③ Most mentse el a fájlt. Ezután nyomja meg az Alt+F8 billentyűkombinációt a Makró párbeszédpanel megnyitásához. Válassza ki a usedRange_method.

④ Ezután kattintson a Fuss .

Végül az Excelben sikeresen megjelenik az utolsó használt sor egy munkalapon.

5. Táblaltartomány használata VBA használatával az Excelben

Ha van egy táblázat a munkalapon, akkor ezzel a módszerrel megkeresheti az utolsó adatsort.

📌 Lépések

① Először nyissa meg a VBA-szerkesztőt.

② Ezután írja be a következő kódot:

 Sub TableRange_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = sht.ListObjects("Table1").Range.Rows.Count + 3 MsgBox "Utolsó használt sor: " & LastRow End Sub 

Megjegyzés: : Itt az utolsó sorral adjuk hozzá a 3-at, mivel az adatállományunk a 3. sor után kezdődött.

③ Most mentse el a fájlt, majd nyomja meg az Alt+F8 billentyűkombinációt a Makró párbeszédpanel megnyitásához. Válassza ki a TableRange_method.

④ Ezután kattintson a Fuss .

Amint láthatja, sikeresen használtuk a táblázat tartomány módszerét a VBA-kódokban, hogy megtaláljuk az utolsó sort az Excelben lévő adatokkal.

6. A Megnevezett tartomány használata a tartományban lévő adatokkal rendelkező utolsó sor keresésére

Ezt a módszert nem gyakran használják az Excelben. De úgy gondoljuk, hogy meg kell tanulnod, hogy gazdagítsd a tudásodat.

Ha az adatkészletedben van egy nevesített tartomány, akkor használhatod ezt a kódot. Nézd meg az alábbi képernyőképet. Van benne egy nevesített tartomány.

📌 Lépések

① Először nyissa meg a VBA-szerkesztőt.

② Ezután írja be a következő kódot:

 Sub nameRange_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = sht.Range("Named_Range").Rows.Count + 1 MsgBox "utolsó használt sor: " & LastRow End Sub 

Megjegyzés: : A LastRow értékhez 1-et adunk hozzá, mivel a tartományunk az 1. sor után kezdődött.

③ Most mentse el a fájlt. Ezután nyomja meg a Alt+F8 a Makró párbeszédpanel megnyitásához. Válassza a nameRange_method.

④ Ezután kattintson a Futtatás gombra.

Amint láthatja, a VBA segítségével sikeresen megtaláljuk az utolsó sort az adatokkal.

7. A VBA CurrentRegion funkciója az Excelben

A VBA CurrentRegion módszerét is használhatja az Excelben az utoljára használt sor megkeresésére. Bár trükkös, de ha akarja, ezt is előnyére fordíthatja.

📌 Lépések

① Először nyissa meg a VBA-szerkesztőt.

② Ezután írja be a következő kódot:

 Sub CurrentRegion_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = sht.Range("B4").CurrentRegion.Rows.Count + 3 'számok hozzáadása a választás szerint' MsgBox "Utolsó használt sor: " & LastRow End Sub 

Megjegyzés: : Range legyen az adatkészlet első cellája. És adjuk hozzá a sorok számát a választásunknak megfelelően. Itt 3-t adtunk hozzá, mert az adatkészletünk a 3. sor után kezdődött.

③ Most mentse el a fájlt. Ezután nyomja meg az Alt+F8 billentyűkombinációt a Makró párbeszédpanel megnyitásához. Válassza ki a CurrentRegion_method

④ Ezután kattintson a Futtatás gombra.

Mint látható, a VBA-kód segítségével sikeresen megtaláltuk az utolsó sort az adatokkal.

💬 Emlékezetes dolgok

✎ A Range.End csak egyetlen soron vagy oszlopon működik. Ha az adatkészlet sok üres cellát tartalmaz, nehéz lesz megtalálni az utolsó adattal rendelkező sort.

✎ Néha hozzá kell adnunk néhány értéket a módszereinkhez, hogy a kód zökkenőmentesen fusson. Mi sorszámokat adtunk hozzá, hogy megtaláljuk az utolsó cellát. Tehát emlékeznünk kell, hogy honnan indult az adatállományunk.

Következtetés

Végezetül remélem, hogy ez a bemutató hasznos tudást nyújtott Önnek az utolsó sor kereséséhez, amely az adatokat tartalmazza egy tartományban az Excel VBA segítségével. Javasoljuk, hogy tanulja meg és alkalmazza ezeket az utasításokat az adatállományára. Töltse le a gyakorlati munkafüzetet, és próbálja ki ezeket. Továbbá, bátran adjon visszajelzést a megjegyzés rovatban. Az értékes visszajelzés tartja minket motiválva, hogy ilyen bemutatókat hozzunk létre.

Ne felejtse el megnézni weboldalunkat Exceldemy.com különböző Excelhez kapcsolódó problémák és megoldások.

Tanulj folyamatosan új módszereket és fejlődj!