V tomto článku sa dozvieme, ako odstrániť prázdne stĺpce prostredníctvom jazyka VBA v programe Microsoft Excel. Vymažeme stĺpce, ktoré sú úplne prázdne, to znamená, že ak v celom stĺpci nie sú údaje, tieto údaje.
Zoberme si príklad a porozumieme:
Máme údaje v rozsahu A1: I21, v ktorom stĺpec A obsahuje názov, stĺpec B je prázdny, stĺpček C obsahuje adresu ulice, stĺpček D mesto, stĺpec E je prázdny, stĺpec F obsahuje región, stĺpec G je prázdny, stĺpec H obsahuje krajinu meno a stĺpec I obsahuje telefónne číslo.
Chceme z údajov odstrániť prázdne stĺpce, postupujte podľa nižšie uvedených krokov a kódu:
- Otvorte stránku VBE a stlačte kláves Alt+F11
- Vložte modul a napíšte kód
- Napíšte nižšie uvedený kód:
Sub Delete_Columns () Dim C As Integer C = ActiveSheet.Cells.SpecialCells (xlLastCell) .Column Do until C = 0 If WorksheetFunction.CountA (Columns (C)) = 0 Then Columns (C) .Delete End If C = C - 1 podradený koniec slučky
Vysvetlenie kódu:
Najprv sme definovali všetky premenné. Potom rozsah prázdnych stĺpcov, potom sme na vymazanie prázdnych stĺpcov použili „Vykonať slučku“. A teraz sme definovali prázdny stĺpec a príkaz odstrániť.
Kód spustíte stlačením klávesu F5 na klávesnici,
- Všetky prázdne stĺpce budú odstránené.
Týmto spôsobom môžeme odstrániť prázdne stĺpce prostredníctvom VBA v programe Microsoft Excel.
Ak sa vám páčili naše blogy, zdieľajte ich so svojimi priateľmi na Facebooku. A tiež nás môžete sledovať na Twitteri a Facebooku.
Radi by sme vás počuli, dajte nám vedieť, ako môžeme zlepšiť, doplniť alebo inovovať našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku