Tässä artikkelissa opimme poistamaan rivit, kun koko rivillä ei ole tietoja.
Seuraavassa on katsaus tietoihimme:
Tämän opetusohjelman taustalla on idea, jos valitulta alueelta A1: E10 löytyy tyhjä rivi, vba -koodin pitäisi poistaa tämä rivi.
Meidän on noudatettava seuraavia vaiheita:
- Napsauta Kehittäjä -välilehteä
- Valitse koodiryhmästä Visual Basic
- Kirjoita seuraava koodi nykyiseen laskentataulukkomoduuliin
Sub DeleteEntireRow ()
Dim niin kauan
'Laskenta ja näytön päivitys on poistettu käytöstä makron nopeuttamiseksi
Sovelluksen kanssa
.Calculation = xlCalculationManual
.ScreenUpdating = Väärä
I = Valinta Rivit Laske 1 vaiheeseen -1
Jos WorksheetFunction.CountA (Selection.Rows (i)) = 0 Sitten
Valinta.Rivit (i) .Koko rivi.Poista
Loppu Jos
Seuraavaksi minä
.Calculation = xlCalculationAutomatic
.ScreenUpdating = Totta
Lopeta
End Sub
- Poistetaan ensin tiedot manuaalisesti peräkkäin testataksemme koodimme.
- Koodin kopioinnin jälkeen; valitse alue A1: E10 ja poista rivi manuaalisesti
- Suorita nyt makro ALT + F8 -näppäimellä ja valitse DeleteEntireRow
- Tyhjä rivi on poistettu ja kaikki alla olevat rivit on siirretty ylöspäin.
Tällä tavalla voimme poistaa rivejä vba: n avulla Microsoft Excelissä.
Lataa-poista rivit VBA: ssa