Počet řádků VBA aplikace Excel
V programování VBA je také nejdůležitější odkaz na řádky a počítání řádků je jednou z věcí, které si musíte být vědomi, pokud jde o kódování VBA. Existuje mnoho hodnot, které můžeme získat, pokud pochopíme důležitost počítání řádků, které mají data v listu. V tomto článku vám ukážeme, jak počítat řádky pomocí kódování VBA.
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba_.jpg.webp)
Jak počítat řádky ve VBA?
Příklad č. 1
Chcete-li počítat řádky, musíme využít objekt RANGE, v tomto objektu musíme použít objekt ROWS a v tomto musíme použít vlastnost COUNT.
Podívejte se například na níže uvedená data v aplikaci Excel.
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__2.jpg.webp)
Z výše uvedených údajů musíme určit, kolik řádků je od rozsahu A1 do A8. Nejprve tedy definujte proměnnou jako celé číslo pro uložení počtu řádků.
Kód:
Sub Count_Rows_Example1 () Dim No_Of_Rows jako celé číslo End Sub
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__3.jpg.webp)
Pro tuto proměnnou přiřadíme čísla řádků, takže zadejte název proměnné a znaménko rovná se.
Kód:
Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = End Sub
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__4.jpg.webp)
Musíme poskytnout řadu buněk, proto otevřete objekt RANGE a zadejte rozsah jako „A1: A8“. Kód:
Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1: A8") End Sub
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__5.jpg.webp)
Jakmile je zadán rozsah, musíme spočítat počet řádků, proto zvolte vlastnost ROWS objektu RANGE.
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__6.jpg.webp)
Ve vlastnosti ROWS objektu RANGE počítáme několik řádků, proto nyní vyberte vlastnost „COUNT“.
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__7.jpg.webp)
Nyní v okně se zprávou zobrazte hodnotu proměnné.
Kód:
Sub Count_Rows_Example1 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1: A8"). Rows.Count MsgBox No_Of_Rows End Sub
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__8.jpg.webp)
Nyní spusťte kód a podívejte se na počet řádků zadaného rozsahu buněk.
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__9.jpg.webp)
Dobře, pro rozsah je zadáno 8 řádků, takže počet řádků je 8 v okně se zprávou.
Příklad č. 2
Máme i jiné způsoby počítání řádků, pro výše uvedenou metodu musíme zadat rozsah buněk a v tomto rozsahu buněk se zobrazí počet vybraných řádků.
Představte si ale scénář, kdy musíme najít poslední použitý sloupec, například vzít stejná data, jak je vidět výše.
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__2.jpg.webp)
Chcete-li přejít na poslední použitou buňku z buňky A1, stiskneme klávesovou zkratku aplikace Excel „Ctrl + šipka dolů“ , takže se dostanete do poslední buňky před prázdnou buňkou.
Nejprve zadejte buňku jako A1 pomocí objektu RANGE.
Kód:
Sub Count_Rows_Example2 () Dim No_Of_Rows jako celé číslo No_Of_Rows = Range ("A1") MsgBox No_Of_Rows End Sub
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__10.jpg.webp)
Z této buňky se musíme přesunout dolů a v listu použijeme Ctrl + šipka dolů, ale ve VBA použijeme vlastnost KONEC, vybereme tuto vlastnost a otevřenou závorku zobrazíme možnosti.
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__11.jpg.webp)
Podívejte se tam pomocí klávesy END, kde vidíme všechny klávesy se šipkami jako „xlDown, xlToLeft, xlToRight a xlUp“, protože musíme přejít dolů, použijte možnost „xlDown“.
Kód:
Sub Count_Rows_Example2 () Dim No_Of_Rows As Integer No_Of_Rows = Range ("A1"). End (xlDown) MsgBox No_Of_Rows End Sub
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__12.jpg.webp)
Tím se dostanete do poslední buňky před jakoukoli přestávkou, nyní v aktivní buňce potřebujeme číslo řádku, takže použijte vlastnost ROW.
Kód:
Sub Count_Rows_Example2 () Dim No_Of_Rows jako celé číslo No_Of_Rows = Range ("A1"). End (xlDown) .Row MsgBox No_Of_Rows End Sub
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__13.jpg.webp)
Dobře, hotovo. Nyní se zobrazí číslo posledního řádku a bude to počet několika řádků.
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__14.jpg.webp)
Takže v řádcích máme data.
Příklad č. 3 - Najít poslední použitý řádek
Nalezení posledního použitého řádku je tak důležité rozhodnout, kolikrát musí smyčka běžet, a také ve výše uvedené metodě se poslední řádek zastaví, aby se vybralo, zda existuje nějaká buňka zarážky, takže v této metodě můžeme najít poslední použitý řádek bez nějaké problémy.
Otevřete vlastnost CELL.
Kód:
Sub Count_Rows_Example3 () Dim No_Of_Rows jako celé číslo No_Of_Rows = buňky (MsgBox No_Of_Rows End Sub
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__15.jpg.webp)
Nyní musíme zmínit číslo řádku, kterým je třeba začít, problém je v tom, že si nejsme jisti, kolik řádků dat máme, takže to, co můžeme udělat, je rovnou přejít na poslední řádek listu, pro tuto zmínku ŘÁDKY .COUNT vlastnost.
Kód:
Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, MsgBox No_Of_Rows End Sub
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__16.jpg.webp)
Dále musíme zmínit, ve kterém sloupci nacházíme poslední použitý řádek, takže v tomto případě nacházíme v prvním sloupci, takže uveďte 1.
Kód:
Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Buňky (Rows.Count, 1) MsgBox No_Of_Rows End Sub
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__17.jpg.webp)
V tuto chvíli vás zavede do poslední buňky prvního sloupce, odtud se musíme posunout nahoru a přejít na poslední použitou buňku, takže použijte vlastnost End (xlUp).
Kód:
Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, 1) .End (xlUp) MsgBox No_Of_Rows End Sub
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__18.jpg.webp)
Tím se dostanete do poslední použité buňky ve sloupci 1 a v této buňce potřebujeme číslo řádku, takže k získání čísla řádku použijte vlastnost ROW.
Kód:
Sub Count_Rows_Example3 () Dim No_Of_Rows As Integer No_Of_Rows = Cells (Rows.Count, 1) .End (xlUp) .Row MsgBox No_Of_Rows End Sub
![](https://cdn.know-base.net/4456517/vba_row_count_-_how_to_count_number_of_used_rows_in_vba__19.jpg.webp)
Věci k zapamatování
- COUNT přidá v listu několik řádků.
- Pokud máte rozsah, pak bude mít počet řádků vybraných v rozsahu.
- Vlastnost ROW vrátí číslo aktivního řádku buňky.