Přejít k hlavnímu obsahu

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?

doc smazat prázdné sloupce s hlavičkou 1

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


šipka modrá pravá bublina 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:

doc smazat prázdné sloupce s hlavičkou 2

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.

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


šipka modrá pravá bublina 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.

Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů. 

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:

doc smazat prázdné sloupce s hlavičkou 4

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

doc smazat prázdné sloupce s hlavičkou 5

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ď!

Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

karta kte 201905


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
Comments (10)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
All I keep getting is "There are no Columns to delete as each one has more data (rows) than just a header." Yet I know for a fact I have about 700 columns with a header and no data. I have a spreadsheet with over 900 columns and only 200ish have data below the header. Another macro worked but I had to delete the header row. So I know this macro is not working correctly. What's up?
This comment was minimized by the moderator on the site
Hello, Paul
The VBA code works well if there is only one header row in the worksheet, if there are two or more header rows, it will pop out the prompt message you said.
So you need to check out if there are hidden heading rows in your data.
Thank you!
This comment was minimized by the moderator on the site
Hello, I have the same issue, I know by fact that I have a lot of columns that have only headers but the same Error "There are no Columns to delete as each one has more data (rows) than just a header." and I have checked there are no hidden rows in the data.
Can anyone help me ?
This comment was minimized by the moderator on the site
Hi, Simoch
In this case, you can upload your Excel file attachment here, so that we can help to check the problem if you don't mind.
Thank you!
This comment was minimized by the moderator on the site
Dear skyyang no need, It worked perfecty now !! thank you so much for that VBA code !
Rated 5 out of 5
This comment was minimized by the moderator on the site
Amazing! You are correct. There must have been something hidden. Everything is working great now. Thank you so much for the quick reply.
This comment was minimized by the moderator on the site
Can this be saved in one spreadsheet and run on other files?
This comment was minimized by the moderator on the site
Works perfectly. Greatly appreciated
This comment was minimized by the moderator on the site
OMG, this is genius!!! thank you
This comment was minimized by the moderator on the site
Hi, Thanks for the nice code above. Is it free to use?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations