Přejít k hlavnímu obsahu

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:

=COUNTA(A2:A1048576)=0

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řazeno 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 do 1 kroku -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í

Projekt 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.

Tipy:Použít toto Odstranit skryté (viditelné) řádky a sloupce funkce, za prvé, měli byste si stáhnout Kutools pro Excela poté tuto funkci rychle a snadno aplikujte.

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ů:

  • Odstranit řádky na základě barvy pozadí v aplikaci Excel
  • Jak můžete smazat celé řádky podle barvy pozadí? V tomto příkladu musím odstranit všechny řádky, které buňky vyplnily modrou barvou pozadí, jak ukazuje následující snímek obrazovky. V tomto článku získáte několik kódů k dosažení tohoto úkolu v aplikaci Excel.

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

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
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...

Popis


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 (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
It deleted all my names in my first name column! Auuggh!
This comment was minimized by the moderator on the site
Thanks its very helpful page with basic excel option :)
This comment was minimized by the moderator on the site
Hi, can anyone guide how i can delete blank cells in a row or column...note whole blank column or rows... only blank cell i need to delete in a column
This comment was minimized by the moderator on the site
Hello,


try to implement below code
This comment was minimized by the moderator on the site
Hi, the thing which you are mentioned is so helpfull. I want a small help from your side. Daily am download the some files and using pivot prepared the reports. It is daily task for me and routine process. How can i do it with out using pivot. Ex: If i prepared the reports on yesterday in "A" Excel file. Next day in "A" Excel file just i replace the new "B" Excel file data. By this automatically report would be create? Is it possible?
This comment was minimized by the moderator on the site
Very helpful page. Thank you. :-) My challenge is that I have columns with headers, but no data in that column. Only the header is present. How would one go about deleting columns where there is no data, but the header is there? :o
This comment was minimized by the moderator on the site
the above details are very helpful for my personal use. Thanks for your guidance. M.KARTHIKEYAN :-)
This comment was minimized by the moderator on the site
I found it much simpler to go to the line after my last line of data, enter "Shift-Ctrl-End" to highlight all blank lines that followed(much faster), right click and enter "delete all rows/columns". The system didn't waste so much time searching this way and so it was clean in the blink of an eye and files that were 20 MB were dropped to a size of 20 kb.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations