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
