Hogyan lehet megtalálni az Excel utolsó adatait tartalmazó sorát vagy oszlopát?
Ha egy nagy munkalapon gyorsan és egyszerűen meg akarja határozni az értékeket tartalmazó utolsó sort vagy oszlopot, egyszerűen húzza a gördítősávot a megkereséséhez. De fájdalmas lesz, ha több ezer adatsor található a munkalapon. Ebben a cikkben néhány hasznos VBA-kódról fogok beszélni, amely megoldja ezt a feladatot.
Keresse meg az utolsó adatot tartalmazó sort vagy oszlopot a VBA kód használatával
Keresse meg és válassza ki az utolsó sort vagy oszlopot az adatokkal a Kutools for Excel segítségével
Keresse meg az utolsó adatot tartalmazó sort vagy oszlopot a VBA kód használatával
Legtöbben fontolóra vehetik az utolsó cellának a megnyomásával történő megkeresését Ctrl + Vége gombokat az utolsó sor és oszlop megkereséséhez, de a gyorsbillentyű nem fogja megtalálni a pontos érték cellát, ha vannak olyan cellák, amelyek formázása az adattartomány alatt van. Tehát itt használja a következő VBA kódot:
1. Aktiválja azt a munkalapot, amelyben meg szeretné határozni az utolsó sort vagy oszlopot adatokkal.
2. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
3. Ezután kattintson betétlap > Modulok, és illessze be a következő kódot a Modul ablak.
VBA kód: Keresse meg az utolsó sort adatokkal
Sub sblastRowOfASheet()
'Update 20140603
Dim xLastRow As Long
xLastRow = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Row
MsgBox "Last Used Row: " & xLastRow
Do While Application.CountA(ActiveSheet.Rows(xLastRow)) = 0 And xLastRow <> 1
xLastRow = xLastRow - 1
Loop
MsgBox "Last Row with Data: " & xLastRow
End Sub
4. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, és megjelenik a prompt doboz, amely megmondja a használt tartomány sorszámát. Lásd a képernyőképet:
5. Kattintson a gombra OK gombra, ezúttal az utolsó sorszám jelenik meg az értékekkel a következő képernyőkép szerint:
Jegyzet: Az utolsó adatokkal rendelkező oszlop megtalálásához kérjük, alkalmazza ezt a kódot:
VBA kód: Keresse meg az utolsó oszlopot adatokkal
Sub sblastcolumnOfASheet()
'Update 20140603
Dim xLastcolumn As Long
xLastcolumn = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Column
MsgBox "Last Used column: " & xLastcolumn
Do While Application.CountA(ActiveSheet.Columns(xLastcolumn)) = 0 And xLastcolumn <> 1
xLastcolumn = xLastcolumn - 1
Loop
MsgBox "Last column with Data: " & xLastcolumn
End Sub
Keresse meg és válassza ki az utolsó sort vagy oszlopot az adatokkal a Kutools for Excel segítségével
Ha közvetlenül meg akarja keresni és kiválasztani az Excel utolsó adatait tartalmazó sorát vagy oszlopát, akkor a Válassza az Utolsó sor lehetőséget és a Válassza az Utolsó oszlop lehetőséget segédprogramjai Kutools az Excelből segíthet. Kérjük, tegye a következőket.
Alkalmazás előtt Kutools az Excel számáraKérjük, először töltse le és telepítse.
1. Ha meg akarja találni és kiválasztani az utolsó adatsort, kattintson Kutools > választ > Válassza az Utolsó cella lehetőséget > Utolsó sor. Lásd a képernyőképet:
Megjegyzések: Az utolsó adatokkal rendelkező oszlop megkereséséhez és kiválasztásához kattintson a gombra Kutools > választ > Válassza az Utolsó cella lehetőséget > Utolsó oszlop.
Ezután megtalálja és azonnal kiválasztja az aktuális munkalap utolsó adatait tartalmazó sort vagy oszlopot.
Ha ingyenes (30 napos) próbaverziót szeretne kapni a segédprogramról, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.
Keresse meg és válassza ki az utolsó sort vagy oszlopot az adatokkal a Kutools for Excel segítségével
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!