Odstraňte řádky ve VBA

V tomto článku se naučíme, jak odstranit řádky, když v celém řádku nejsou žádná data.

Následuje snímek dat, která máme:

Koncept tohoto kurzu spočívá v tom, že pokud je ve vybraném rozsahu A1: E10 nalezen úplný prázdný řádek, kód VBA by měl tento řádek odstranit.

Musíme postupovat podle následujících kroků:

• Klikněte na kartu Vývojář
• Ze skupiny kódů vyberte Visual Basic

• Do aktuálního modulu listu zadejte následující kód

Dílčí DeleteEntireRow ()

Dim i As Long

„Pro urychlení makra jsou vypnuty výpočty a screenupdating

S aplikací

.Calculation = xlCalculationManual

.ScreenUpdating = False

Pro i = Selection.Rows. Počítejte s 1 krokem -1

Pokud WorksheetFunction.CountA (Selection.Rows (i)) = 0 Pak

Selection.Rows (i) .EntireRow.Delete

Konec If

Příště já

.Calculation = xlCalculationAutomatic

.ScreenUpdating = True

Konec s

End Sub

• Pojďme nejprve ručně odstranit data za sebou, abychom otestovali náš kód.
• Po zkopírování kódu; vyberte rozsah A1: E10 a ručně odstraňte libovolný řádek

• Nyní spusťte makro pomocí klávesy ALT + F8 a vyberte DeleteEntireRow

• Prázdný řádek byl odstraněn a všechny níže uvedené řádky jsou posunuty nahoru.

Tímto způsobem můžeme odstranit řádky pomocí vba v Microsoft Excelu.

Stáhnout-Odstranit řádky ve VBA