Jak rychle odstranit více prázdných sloupců v aplikaci Excel?

Někdy při importu dat do aplikace Microsoft Excel z nějakého zdroje, jako je webová stránka, CSV, text atd., Může být s ním mnoho prázdných sloupců. Musí být časově náročné mazat každý prázdný sloupec jeden po druhém. Někteří z nás proto hledají snadné způsoby, jak tento problém vyřešit. Tento článek shrnuje některé složité tipy, které vám pomohou rychle odstranit několik prázdných sloupců.

Odstraňte několik prázdných sloupců v listu se vzorcem

Odstraňte několik prázdných sloupců v listu pomocí kódu VBA

Odstranit více prázdných sloupců z výběru / aktivního listu nebo celého sešitu s užitečnou funkcí

Odstraňte několik prázdných sloupců s hlavičkou pomocí kódu VBA

Odstraňte několik prázdných sloupců v listu se vzorcem

V aplikaci Excel můžete použít vzorec k identifikaci, zda jsou sloupce prázdné nebo ne, a poté použít Typ funkce seřadit všechny prázdné sloupce dohromady a poté je odstranit najednou. Udělejte prosím toto:

1. Přidejte nový řádek do horní části rozsahu dat, viz screenshot:

2. Poté zadejte do buňky A1 následující vzorec a poté přetažením úchytky výplně na pravou stranu použijte tento vzorec na jiné buňky, pokud je sloupec prázdný, zobrazí se PRAVDA, jinak se zobrazí FALSE, viz screenshot:

3. Poté vyberte rozsah dat včetně řádku pomocníka a poté klikněte Data > Typ, viz screenshot:

4. Ve vyskočené Typ , klepněte na tlačítko OK možnosti v následujícím Možnosti řazení , vyberte Třídit zleva doprava možnost, viz screenshoty:

5, klikněte OK tlačítko pro návrat Typ a vyberte Řádek 1 z Seřadit podle rozevírací seznam a vyberte Hodnoty buněk od Seřadit zapnuto oddíl, zvolte Největší až nejmenší z Objednávka sekce, viz screenshot:

6. Poté byly všechny prázdné sloupce seřazeny vlevo od vašich dat a nyní stačí vybrat všechny sloupce a poté kliknout pravým tlačítkem, vybrat Vymazat Chcete-li odstranit tyto prázdné sloupce najednou, viz screenshot:

Odstraňte několik prázdných sloupců v listu pomocí kódu VBA

Pokud byste chtěli použít makro VBA, jde to mnohem jednodušší. Následující kód VBA vám může pomoci, udělejte prosím toto:

1. Podržte Další + F11 klíče v aplikaci Excel a otevře Microsoft Visual Basic pro aplikace okno.

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

Kód VBA: Odstranit více prázdných sloupců ve výběru:

Sub DeleteEmptyColumns()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = InputRng.Columns.Count To 1 Step -1
    Set rng = InputRng.Cells(1, i).EntireColumn
    If Application.WorksheetFunction.CountA(rng) = 0 Then
        rng.Delete
    End If
Next
Application.ScreenUpdating = True
End Sub

3. zmáčkni F5 Chcete-li spustit toto makro, vyberte v rozbalovacím dialogovém okně požadovaný pracovní rozsah. Viz snímek obrazovky:

4. klikněte OK, pak se odstraní všechny prázdné sloupce ve výběru. Viz snímek obrazovky:

Odstranit více prázdných sloupců z výběru / aktivního listu nebo celého sešitu s užitečnou funkcí

Jedno Odstranit skryté (viditelné) řádky a sloupce užitečnost Kutools pro Excel vám pomůže rychle odstranit několik prázdných řádků nebo sloupců najednou.

Po instalaci Kutools pro Excel, udělejte prosím toto:

1, klikněte Kutools > Vymazat > Odstranit skryté (viditelné) řádky a sloupce, viz screenshot:

2. V Odstranit skryté (viditelné) řádky a sloupce V dialogovém okně zadejte rozsah, ze kterého chcete operaci použít Podívejte se do rozbalovací seznam. (Pokud se rozhodnete Ve zvoleném rozsahu, musíte nejprve vybrat rozsah, který chcete použít.) A poté zkontrolujte Sloupce pod Smazat typ. A vyberte Prázdné sloupce od Podrobný typ. Viz snímek obrazovky:

3. Pak klikněte na tlačítko OK. A prázdné sloupce byly odstraněny z vybraného rozsahu. Viz snímek obrazovky:

Odstraňte několik prázdných sloupců s hlavičkou pomocí kódu VBA

Někdy můžete chtít odstranit všechny prázdné sloupce, které obsahují pouze záhlaví v listu, následující kód VBA vám může udělat laskavost, proveďte následující kroky:

1. Podržte Další + F11 klíče v aplikaci Excel a otevře Microsoft Visual Basic pro aplikace okno.

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

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

Sub deleteblankcolwithheader()
'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 column(s) with only a header row have 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. Poté stisknutím klávesy F5 spusťte tento kód a zobrazí se okno s výzvou, které vám připomene, že prázdné sloupce s hlavičkou budou odstraněny, viz screenshot:

4. A poté klikněte na tlačítko OK, všechny prázdné sloupce s pouze záhlavím v aktuálním listu budou smazány najednou. Zobrazit snímky obrazovky:

Více relativních článků: