Odstranění celého řádku pomocí VBA – Příklad kódu makra Excel

Kód VBA Excel pro odstranění celého řádku nám pomůže odstranit řádky v pracovním listu Excel. K vymazání celého řádku můžeme použít metodu Odstranit řádky. V tomto příkladu uvidíme, jak odstranit celý řádek v listu excelu pomocí VBA. Makro kód Excel VBA pro odstranění celých řádků Makro by mělo fungovat pro všechny verze aplikace Microsoft Excel 2003, Excel 2007, Excel 2010 a Excel 2013.

Kód VBA pro odstranění celého řádku

Zde je uvedeno makro VBA pro odstranění celého řádku Syntaxe a příklad kódu makra VBA pro odstranění celého řádku z listů excelu. To vám pomůže zjistit, jak odstranit celý řádek ze sešitu aplikace Excel pomocí makra VBA.

VBA Smazat celý řádek: Syntaxe

Níže je uvedena syntaxe makra VBA pro smazání celého řádku a ukázkový kód makra VBA pro smazání celého řádku z pracovního listu pomocí VBA. Používáme metodu Delete objektu Řádky pracovního listu.


Rows(

).EntireRow.Delete


Zde Číslo řádku je číslo vašeho řádku, který chcete odstranit. A metoda EntireRow.Delete odstraní celý řádek z tabulky Excelu.

Odstranění celého řádku pomocí VBA:
Následující makrokód Excel VBA pro odstranění celého řádku slouží k odstranění celého řádku z pracovního listu. Toto makro VBA pro odstranění celého řádku odstraní řádek, který jsme uvedli v kódu.

Sub sbVBS_To_Delete_EntireRow () Rows(1).EntireRow.DeleteEnd Sub

Návod ke spuštění makrokódu VBA pro odstranění celého řádku

Pro spuštění makra VBA pro odstranění celého řádku postupujte podle následujících kroků.
Krok 1: Otevřete libovolný existující sešit aplikace Excel.
Krok 2: Stiskněte klávesovou zkratku Alt+F11 – tím se otevře editor VBA.
Krok 3: Vložte modul kódu z následné nabídky insert.
Krok 4: Zkopírujte výše uvedený kód a vložte jej do modulu kódu, který jste vložili v předchozím kroku.
Krok 5: Zadejte do řádku 1 nějaká ukázková data.
Krok 6: Nyní stiskněte klávesu F5 pro spuštění kódu.

Nyní můžete pozorovat, že se z listu odstraní celý řádek 1.

Vysvětlení kódu VBA pro odstranění celého řádku:

Spuštění programu a dílčí procedury pro zápis kódu VBA pro odstranění celého řádku z listu.
Sub sbVBS_To_Delete_EntireRow_C()

‚Určení řádků, které se mají smazat, a smazání řádků pomocí metody EntireRow.Delete.
Rows(1).EntireRow.Delete

‚Ukončení dílčí procedury pro smazání celého řádku.
End Sub

Tady Rows(1) má říct excelu, aby smazal řádek 1 z listu. A metoda Delete odstraní celý řádek z pracovního listu.

VBA pro odstranění celého řádku v Excelu :

Pokud chcete odstranit několik prvních řádků v excelu, můžete příkaz delete několikrát opakovat. Následující příklad kódu makra VBA pro odstranění celého řádku vám ukáže, jak odstranit první 3 řádky v listu.

Sub sbVBS_To_Delete_FirstFewRows_in_Excel() Rows(1).EntireRow.Delete Rows(1).EntireRow.Delete Rows(1).EntireRow.DeleteEnd Sub

V tomto příkladu vidíte, že příkaz pro odstranění se opakuje třikrát. Nejprve se odstraní první řádek, když odstraníme první řádek. Dalším řádkem se stane (2. řádek) první řádek. Pokud tedy smažete první řádek znovu. Další řádek (3. řádek) se stane prvním řádkem. To znamená, že jsme pomocí VBA odstranili první tři řádky.

VBA pro odstranění celého řádku v Excelu : Vysvětlení kódu VBA

Zde je vysvětlení VBA pro odstranění celého řádkuMakro pro odstranění prvních tří řádků v Excelu.

Začínáme procedurou pro zápis příkazů VBA pro odstranění prvních několika (3) řádků.
Sub sbVBS_To_Delete_FirstFewRows_in_Excel_C()

‚První řádek se odstraní
Rows(1).EntireRow.Delete
‚Nyní se druhý řádek stává prvním řádkem- opět mažeme první řádek.
Rows(1).EntireRow.Delete
‚Nyní se třetí řádek stává prvním řádkem- opět příkaz delete maže první řádek.
Rows(1).EntireRow.Delete
‚Odstranili jsme první 3 řádky a zde končíme dílčí proceduru.
End Sub

VBA pro odstranění celého řádku v Excelu : Pomocí For Loop

Zde je příklad makra VBA pro odstranění prvních několika řádků pomocí For Loop. Tím se odstraní prvních 10 záznamů pomocí smyčky For ve VBA.

Sub sbVBS_To_Delete_EntireRow_For_Loop()Dim iCntr For iCntr = 1 To 10 Step 1 Rows(1).EntireRow.Delete NextEnd Sub

VBA to Delete Entire Row in Excel : Using For Loop – Explanation

Zde je podrobné vysvětlení odstranění řádku pomocí smyčky For ve VBA.

Začínáme dílčí procedurou pro zápis makra VBA pro mazání řádků pomocí smyčky for ve VBA.
Dílčí procedura sbVBS_To_Delete_EntireRow_For_Loop_C()
‚Deklarace proměnné iCntr pro uložení iterací smyčky for.
Dim iCntr
‚procházení řádků pomocí smyčky for, zde příkaz step označuje přírůstek iCntr.
For iCntr = 1 To 10 Step 1
‚vymazání prvního řádku.
Rows(1).EntireRow.Delete
Next
‚Smazali jsme první řádek 10krát, to znamená, že jsme smazali prvních 10 řádků v listu excelu pomocí smyčky for a VBA.
End Sub

VBA pro smazání celého řádku v excelu : Pomocí smyčky Do while

Tady je příklad makra VBA pro smazání celého řádku pro smazání prvních několika řádků pomocí smyčky Do while. Tím se odstraní prvních 10 záznamů pomocí smyčky For ve VBA.

Sub sbVBS_To_Delete_EntireRow_Do_while_Loop()Dim iCntriCntr = 10 ' Last row Do While iCntr >= 1 Rows(iCntr).EntireRow.Delete iCntr = iCntr - 1 LoopEnd Sub

VBA pro odstranění celého řádku v Excelu : Použití pomocí smyčky Do while – vysvětlení

Zde je vysvětlení k výše uvedenému makru VBA pro odstranění celého řádku pro odstranění řádků pomocí smyčky Do while.

Spuštění makra VBA pro mazání řádků pomocí smyčky do while.
Sub sbVBS_To_Delete_EntireRow_Do_while_Loop()
‚Deklarace proměnné uchovávající číslo posledního řádku a její použití jako proměnné čítače.
Dim iCntr
‚přiřazení hodnoty posledního řádku do iCntr.
iCntr = 10 ‚ Poslední řádek
‚Pomocí cyklu do while mažeme řádky od posledního (10.) řádku .
Do While iCntr >= 1
Rows(iCntr).EntireRow.Delete
iCntr = iCntr – 1
Loop
‚zde ukončíme dílčí proceduru.
End Sub

Zde si můžete všimnout, že procházíme řádky od posledního k začátku. To bude přesný kód při mazání řádků z pracovního listu. Vždy odstraňte řádek od posledního k prvnímu.