V tomto článku se naučíme, jak odstranit prázdné sloupce prostřednictvím VBA v aplikaci Microsoft Excel. Odstraníme sloupce, které jsou zcela prázdné, to znamená, že pokud v celém sloupci nejsou žádná data, tato data.
Vezměme si příklad a rozumíme:
Máme data v rozsahu A1: I21, ve kterém sloupec A obsahuje název, sloupec B je prázdný, sloupec C obsahuje adresu ulice, sloupec D město, sloupec E je prázdný, sloupec F obsahuje region, sloupec G je prázdný, sloupec H obsahuje zemi jméno a sloupec I obsahuje telefonní číslo.
Chceme z dat odstranit prázdné sloupce, postupujte podle níže uvedených kroků a kódu:
- Otevřete stránku VBE a stiskněte klávesu Alt+F11
- Vložte modul a napište kód
- Napište níže 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 díl smyčky
Vysvětlení kódu:
Nejprve jsme definovali všechny proměnné. Poté rozsah prázdných sloupců, poté jsme použili „Do do smyčky“ k odstranění prázdných sloupců. A nyní jsme definovali prázdný sloupec a příkaz odstranit.
Chcete -li spustit kód, stiskněte klávesu F5 na klávesnici,
- Všechny prázdné sloupce budou odstraněny.
Tímto způsobem můžeme odstranit prázdné sloupce prostřednictvím VBA v aplikaci Microsoft Excel.
Pokud se vám naše blogy líbily, sdílejte je se svými přáteli na Facebooku. A také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit, doplnit nebo inovovat naši práci a zlepšit ji pro vás. Napište nám na e -mail