Jak najít poslední řádek nebo sloupec s daty v aplikaci Excel?
Chcete-li ve velkém listu rychle a snadno určit poslední řádek nebo sloupec, který obsahuje hodnoty, stačí jej vyhledat přetažením posuvníku. Bude však bolestivé, pokud budou v listu tisíce řádků dat. V tomto článku budu mluvit o některých užitečných kódech VBA, které vám pomohou vyřešit tento úkol.
Najděte poslední řádek nebo sloupec s daty pomocí kódu VBA
Najděte a vyberte poslední řádek nebo sloupec s daty pomocí Kutools pro Excel
Najděte poslední řádek nebo sloupec s daty pomocí kódu VBA
Většina z nás může zvážit vyhledání poslední buňky stisknutím Ctrl + End klávesy k vyhledání posledního řádku a sloupce, ale klávesová zkratka nenajde buňku přesné hodnoty, pokud existují buňky, které mají formátování pod rozsahem dat. Zde tedy použijte následující kód VBA:
1. Aktivujte svůj list, u kterého chcete určit poslední řádek nebo sloupec s údaji.
2. Podržte ALT + F11 klávesy pro otevření Okno Microsoft Visual Basic pro aplikace.
3. Pak klikněte na tlačítko Vložit > Modula vložte následující kód do Okno modulu.
Kód VBA: Najděte poslední řádek s daty
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. A pak stiskněte F5 klíč ke spuštění tohoto kódu a zobrazí se okno s výzvou, které vám řekne číslo řádku použitého rozsahu. Viz screenshot:
5. Pokračujte kliknutím OK Tlačítko, tentokrát se poslední číslo řádku s hodnotami zobrazilo jako následující snímek obrazovky:
Poznámka: Chcete-li najít poslední sloupec s údaji, použijte tento kód:
Kód VBA: Najít poslední sloupec s daty
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
Najděte a vyberte poslední řádek nebo sloupec s daty pomocí Kutools pro Excel
Pokud chcete přímo najít a vybrat poslední řádek nebo sloupec s daty v aplikaci Excel, Vyberte poslední řádek a Vyberte Poslední sloupec nástroje Kutools aplikace Excel mohu vám pomoci. Postupujte prosím následovně.
Před aplikací Kutools pro Excel, Prosím nejprve si jej stáhněte a nainstalujte.
1. Pokud chcete najít a vybrat poslední řádek s daty, klikněte prosím Kutools > vybrat > Vyberte Poslední buňku > Poslední řádek. Viz snímek obrazovky:
Poznámka: Chcete-li najít a vybrat poslední sloupec s údaji, klikněte prosím Kutools > vybrat > Vyberte Poslední buňku > Poslední sloupec.
Poté je nalezen poslední řádek nebo sloupec s daty v aktuálním listu a je okamžitě vybrán.
Pokud chcete mít bezplatnou (30denní) zkušební verzi tohoto nástroje, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.
Najděte a vyberte poslední řádek nebo sloupec s daty pomocí Kutools pro Excel
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!