V tomto článku sa naučíme, ako odstrániť riadky, ak v celom riadku nie sú žiadne údaje.
Nasleduje prehľad údajov, ktoré máme:
Koncept tohto tutoriálu je, ak sa vo vybranom rozsahu A1: E10 nachádza nejaký úplný prázdny riadok, potom by mal kód vba tento riadok odstrániť.
Musíme postupovať podľa nasledujúcich krokov:
- Kliknite na kartu Vývojár
- V skupine Kód vyberte položku Visual Basic
- Do aktuálneho modulu pracovného hárka zadajte nasledujúci kód
Sub DeleteEntireRow ()
Dim i As Long
„Na urýchlenie makra sú vypnuté výpočty a aktualizácia obrazovky
S aplikáciou
.Calculation = xlCalculationManual
.ScreenUpdating = False
Pre i = Selection.Rows.Počítajte do 1 kroku -1
Ak WorksheetFunction.CountA (Selection.Rows (i)) = 0 Potom
Selection.Rows (i) .EntireRow.Delete
Koniec Ak
Ďalej i
.Výpočet = xlVýpočetAutomatický
.ScreenUpdating = Pravda
Ukončiť s
Koniec pod
- Poďme najskôr manuálne odstrániť údaje v rade, aby sme otestovali náš kód.
- Po skopírovaní kódu; vyberte rozsah A1: E10 a ručne odstráňte ľubovoľný riadok
- Teraz spustite makro pomocou klávesov ALT + F8 a vyberte príkaz DeleteEntireRow
- Prázdny riadok bol odstránený a všetky nižšie uvedené riadky sú posunuté nahor.
Týmto spôsobom môžeme odstrániť riadky pomocou vba v programe Microsoft Excel.
Stiahnite si-odstráňte riadky vo VBA