Jak odstranit prázdné sloupce s hlavičkou v aplikaci Excel?

Pokud máte velký list, který obsahuje více sloupců, ale některé ze sloupců obsahují pouze záhlaví, a nyní chcete odstranit tyto prázdné sloupce, které mají pouze záhlaví, aby se zobrazil následující snímek obrazovky. Lze to v aplikaci Excel vyřešit rychle a snadno?

Odstraňte prázdné sloupce s hlavičkou pomocí kódu VBA

Odstraňte několik prázdných sloupců v rozsahu / listu / sešitu pomocí programu Kutools pro Excel

Odstraňte prázdné sloupce s hlavičkou pomocí kódu VBA

V aplikaci Excel neexistuje žádná přímá metoda řešení této úlohy s výjimkou ručního mazání, ale zde vám mohu představit kód, postupujte takto:

1. Podržte stisknuté tlačítko ALT + F11 klávesy, pak se otevře Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: Odstraňte prázdné sloupce se záhlaví:

Sub Macro1()
'updateby Extendoffice
    Dim xEndCol As Long
    Dim I As Long
    Dim xDel As Boolean
    On Error Resume Next
    xEndCol = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    If xEndCol = 0 Then
        MsgBox "There is no data on """ & ActiveSheet.Name & """ .", vbExclamation, "Kutools for Excel"
        Exit Sub
    End If
    Application.ScreenUpdating = False
    For I = xEndCol To 1 Step -1
        If Application.WorksheetFunction.CountA(Columns(I)) <= 1 Then
            Columns(I).Delete
            xDel = True
        End If
    Next
    If xDel Then
        MsgBox "All blank and column(s) with only a header row have now been deleted.", vbInformation, "Kutools for Excel"
    Else
        MsgBox "There are no Columns to delete as each one has more data (rows) than just a header.", vbExclamation, "Kutools for Excel"
    End If
    Application.ScreenUpdating = True
End Sub

3. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a vyskočí okno s výzvou, které vám připomene, že prázdné sloupce s hlavičkou budou odstraněny, viz screenshot:

4. A pak klikněte na tlačítko OK tlačítko, všechny prázdné sloupce s jediným záhlavím v aktuálním listu budou smazány najednou.

Pozor: Pokud jsou prázdné sloupce, budou také odstraněny.

Odstraňte několik prázdných sloupců v rozsahu / listu / sešitu pomocí programu Kutools pro Excel

Někdy stačí smazat pouze prázdné sloupce, Kutools pro ExcelJe Odstranit skryté (viditelné) řádky a sloupce nástroj vám pomůže tento úkol snadno dokončit.

Po instalaci Kutools pro Excel, postupujte následovně:

1. Vyberte rozsah sloupců, který zahrnuje prázdné sloupce, které je třeba odstranit.

2. Pak klikněte na tlačítko Kutools > Vymazat > Odstranit skryté (viditelné) řádky a sloupce, viz screenshot:

3. V Odstranit skryté (viditelné) řádky a sloupce V dialogovém okně můžete vybrat rozsah odstranění z rozevíracího seznamu Hledat, jak potřebujete, vyberte Sloupce z Smazat typ sekci a poté vyberte Prázdné sloupce z Podrobný typ sekce, viz screenshot:

4. Pak klikněte na tlačítko Ok tlačítko a najednou se smažou pouze prázdné sloupce. Viz snímek obrazovky:

Tipy: S touto výkonnou funkcí můžete podle potřeby také mazat prázdné řádky, viditelné sloupce nebo řádky, skryté sloupce nebo řádky.

Klikněte na Stažení zdarma Kutools pro Excel hned teď!