Note: The other languages of the website are Google-translated. Back to English
English English

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ší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
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 omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (8)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Zjistil jsem, že je mnohem jednodušší přejít na řádek po posledním řádku dat, zadat "Shift-Ctrl-End" pro zvýraznění všech prázdných řádků, které následovaly (mnohem rychleji), kliknout pravým tlačítkem a zadat "smazat všechny řádky/sloupce". Systém tímto způsobem neztrácel tolik času hledáním a tak byl během mrknutí oka čistý a soubory o velikosti 20 MB byly shozeny na velikost 20 kb.
Tento komentář byl moderátorem webu minimalizován
výše uvedené podrobnosti jsou velmi užitečné pro mé osobní použití. Děkuji za váš návod. M.KARTHIKEYAN :-)
Tento komentář byl moderátorem webu minimalizován
Velmi užitečná stránka. Děkuji. :-) Moje výzva je, že mám sloupce se záhlavím, ale v tomto sloupci nejsou žádná data. Je k dispozici pouze záhlaví. Jak by se daly smazat sloupce, kde nejsou žádná data, ale je tam hlavička? :Ó
Tento komentář byl moderátorem webu minimalizován
Ahoj, to, co jsi zmínil, je velmi užitečné. Chci z vaší strany malou pomoc. Denně si stahuji nějaké soubory a pomocí pivotu připravuji reporty. Je to pro mě každodenní úkol a rutinní proces. Jak to mohu udělat bez použití pivotu. Příklad: Pokud jsem včera připravil zprávy v souboru Excel "A". Další den v souboru Excel "A" nahradím nová data souboru Excel "B". Tím by se automaticky vytvořil přehled? Je to možné?
Tento komentář byl moderátorem webu minimalizován
Ahoj, může mi někdo poradit, jak mohu smazat prázdné buňky v řádku nebo sloupci...poznamenat si celý prázdný sloupec nebo řádky... pouze prázdnou buňku, kterou potřebuji odstranit ve sloupci
Tento komentář byl moderátorem webu minimalizován
Ahoj,


zkuste implementovat níže uvedený kód
Tento komentář byl moderátorem webu minimalizován
Díky za velmi užitečnou stránku se základní možností excelu :)
Tento komentář byl moderátorem webu minimalizován
Smazalo to všechna moje jména ve sloupci křestní jméno! Auuggh!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění