Ako používať Ak je vyhlásenie v Exceli odstrániť prázdne riadky

Pokiaľ tabuľky programu Excel rastie tak , aby zahŕňala tisíce , či dokonca stovky tisíc , riadkov , ručne odstraňovať jednotlivé riadky bude trvať večne . Zatiaľ čo rýchle triedenie by jednoducho pohybovať každý prázdny riadok na spodnej strane , v podstate " mazanie " to , že to nebude fungovať , ak potrebujete dáta na pobyt na jeho aktuálne poradie . Ak chcete odstrániť prázdne riadky bez zmeny poradia listu , budete musieť pre prístup programu Excel Visual Basic konzoly a vytvoriť makro . Pokyny dovolená 1

Otvorte tabuľku programu Excel , ktorý budete potrebovať chcete pracovať . Potom stlačte tlačidlo " Alt " a " F11 " otvoriť Visual Basic konzoly .
2

Kliknite pravým tlačidlom myši na niektorú z položiek v rámci " VBAProject " mieri na ľavej strane konzoly VBA . Presuňte kurzor myši na " Vložiť " a vyberte " modul " zo zoznamu možností. Váš nový modul bude automaticky vybraná , a pravá polovica konzola bude prázdna biela stránka . Ak máte viac listov otvorené , uistite sa , že ste sa pridať modul do správnej " VBAProject . " Názov konkrétneho dokumentu budú umiestnené na pravej strane " VBAProject " nadpisom
3

Skopírujte nasledujúci kód v hornej časti prázdne stránky modulu : .
< P > Sub DeleteBlankRows ( )

Dim x As Long

s aplikáciou

. Výpočet = xlCalculationManual

. ScreenUpdating = False

End S

príkaz " Sub " vytvára makro a " Dim " príkaz vytvára premenné , ktoré budete používať neskôr . " Výpočet " a príkazy " ScreenUpdating " vypnúť ich funkcie , takže plynulo makro beží na veľkých tabuliek
4

vložte nasledujúci kód priamo pod posledným súboru : .

S ActiveSheet

Cells.Replace _

Čo : = " " , Replacement : = " " , _

look : = xlWhole , matchCase : = False

Pre x = . Cells.SpecialCells ( xlCellTypeLastCell ) . Riadok _

1. Krok -1

Ak WorksheetFunction.CountA ( . Riadky ( x ) ) = 0 Then

ActiveSheet.Rows ( x ) . Zmazať

End If

Ďalšie

End With

" Cells.Replace " príkaz , ktorý zahŕňa dva riadky priamo pod ňou , vyzerá pre všetky bunky , ktoré obsahujú len prázdne miesto , a nahradí ten priestor s ničím . Proces odstránenia nerozpozná prázdne miesto ako prázdne bunky , takže bez tohto kusu kódu , každá rada sa len prázdne miesto by mazané . " Pre " Príkaz má štart kód na poslednú bunku na liste a prácu svoju cestu späť na vrchol . "Ak je " kontroly údajov , či je riadok prázdny , a potom sa odstráni , ak je
5

Skopírujte a vložte nasledujúci kód priamo pod posledný kus kódu : .

s aplikáciou

. Výpočet = xlCalculationAutomatic

. ScreenUpdating = TRUE

End With

End Sub

Tento kód jednoducho kladie " Výpočet " a nastavenie " ScreenUpdating " späť do normálu a potom zavrie sa kód s " End Sub " . Stlačte tlačidlo " Alt " a " F11 " ukončite konzolu VBA . Všetky vaše zmeny sa automaticky uložia .
6

Kliknite na kartu " Vývojár " v hornej časti obrazovky . Kliknite na tlačidlo " makro " , aby sa zoznam vašich makier . Vyberte " DeleteBlankRows " makrá a stlačte tlačidlo " Spustiť " . Makro bude odstrániť všetky prázdne riadky z listu .

• Predchádzajúca strana: Ako cvičiť funkcie programu Excel 
• Ďalšia strana: Ako na meno stĺpca v programe Excel 2007