Selles artiklis õpime, kuidas tühje veerge Microsoft Excelis VBA kaudu kustutada. Kustutame veerud, mis on täiesti tühjad, see tähendab, et kui kogu veerus pole andmeid, siis need andmed.
Võtame näite ja mõistame:
Meil on andmeid vahemikus A1: I21, kus veerg A sisaldab nime, veerg B on tühi, veerg C sisaldab tänava aadressi, veerg D linn, veerg E on tühi, veerg F sisaldab piirkonda, veerg G on tühi, veerg H sisaldab riiki nimi ja I veerg sisaldab telefoninumbrit.
Soovime tühjad veerud andmetest kustutada, järgige allpool toodud samme ja koodi:
- Avage VBE leht, et vajutada klahve Alt+F11
- Sisestage koodi kirjutamiseks moodul
- Kirjutage allpool nimetatud kood:
Alam Delete_Columns () Dim C täisarvuna C = ActiveSheet.Cells.SpecialCells (xlLastCell). Veerg Tehke kuni C = 0 If WorksheetFunction.CountA (Columns (C)) = 0 then Veerud (C). Kustuta lõpp, kui C = C - 1 Loop End Sub
Koodi selgitus:
Esiteks määratlesime kõik muutujad. Seejärel tühjade veergude vahemik, seejärel oleme tühjade veergude kustutamiseks kasutanud nuppu „Tee kuni silmuseni”. Ja nüüd oleme määratlenud tühja veeru ja käsu kustutada.
Koodi käivitamiseks vajutage klaviatuuri klahvi F5,
- Kõik tühjad veerud kustutatakse.
Sel viisil saame tühjad veerud Microsoft Excelis VBA kaudu kustutada.
Kui teile meeldisid meie ajaveebid, jagage seda oma sõpradega Facebookis. Samuti saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd täiustada, täiendada või uuendada ning muuta see teie jaoks paremaks. Kirjuta meile meilisaidile