Šajā rakstā mēs uzzināsim, kā izdzēst tukšās kolonnas, izmantojot Microsoft Excel VBA. Mēs izdzēsīsim slejas, kas ir pilnīgi tukšas, tas nozīmē, ka, ja visā kolonnā nav datu.
Ņemsim piemēru un sapratīsim:
Mums ir dati diapazonā A1: I21, kurā A slejā ir nosaukums, B sleja ir tukša, C slejā ir adrese, D sleja Pilsēta, E sleja ir tukša, F sleja satur reģionu, G sleja ir tukša, H sleja satur valsti nosaukums, un I slejā ir tālruņa numurs.
Mēs vēlamies no datiem izdzēst tukšās kolonnas, izpildiet tālāk norādītās darbības un kodu:
- Atveriet VBE lapu, lai nospiestu taustiņu Alt+F11
- Ievietojiet moduli, lai rakstītu kodu
- Uzrakstiet zemāk minēto kodu:
Sub Delete_Columns () Dim C kā vesels skaitlis C = ActiveSheet.Cells.SpecialCells (xlLastCell). Kolonna Vai līdz C = 0 If WorksheetFunction.CountA (Columns (C)) = 0 then Column (C). Dzēst beigas, ja C = C - 1 cilpas beigu apakšdaļa
Koda skaidrojums:
Vispirms mēs esam definējuši visus mainīgos. Tad tukšo kolonnu diapazons, pēc tam tukšo kolonnu dzēšanai esam izmantojuši “Darīt līdz cilpai”. Un tagad mēs esam definējuši tukšo kolonnu un dzēšanas komandu.
Lai palaistu kodu, nospiediet tastatūras taustiņu F5,
- Visas tukšās kolonnas tiks izdzēstas.
Tādā veidā mēs varam izdzēst tukšās kolonnas caur VBA programmā Microsoft Excel.
Ja jums patika mūsu emuāri, kopīgojiet to ar saviem draugiem Facebook. Un arī jūs varat sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot, papildināt vai ieviest jauninājumus mūsu darbā un uzlabot to jūsu labā. Rakstiet mums e -pasta vietnē