Obsah
V tomto kurzu se dozvíte, jak odstranit prázdné sloupce v aplikaci Excel pomocí makra, vzorce a kliknutí na tlačítko.
Ačkoli to zní triviálně, odstranění prázdných sloupců v aplikaci Excel není něco, co lze provést pouhým kliknutím myší. Nelze to provést ani dvěma kliknutími. Vyhlídka na to, že budete muset procházet všechny sloupce v listu a ručně odstraňovat ty prázdné, je rozhodně něco, čemu byste se chtěli vyhnout. Naštěstí aplikace Microsoft Excel poskytuje velké množství různých funkcí a pomocí těchtofunkce kreativními způsoby zvládnete téměř každý úkol!
Rychlý způsob odstranění prázdných sloupců, které byste nikdy neměli používat
Pokud jde o odstraňování prázdných míst v aplikaci Excel (ať už jde o prázdné buňky, řádky nebo sloupce), mnoho online zdrojů se spoléhá na to, že Přejít na Speciální > Slepé položky příkaz. Nikdy to nedělejte v pracovních listech!
Tato metoda ( F5 > Speciální... > Slepé položky ) najde a vybere všechny prázdné buňky v rozsahu:
Pokud nyní kliknete pravým tlačítkem myši na vybrané buňky a vyberete možnost Odstranit > Celý sloupec , všechny sloupce, které obsahují alespoň jedna prázdná buňka Pokud jste to nechtěně udělali, stiskněte klávesy Ctrl + Z, abyste vše vrátili zpět.
Nyní, když znáte špatný způsob odstranění prázdných sloupců v aplikaci Excel, se podíváme, jak to udělat správně.
Jak odstranit prázdné sloupce v aplikaci Excel pomocí VBA
Zkušení uživatelé Excelu znají toto pravidlo: abyste neztráceli hodiny tím, že něco děláte ručně, investujte několik minut do napsání makra, které to udělá automaticky za vás.
Níže uvedené makro VBA odstraní všechny prázdné sloupce ve vybraném rozsahu. A to bezpečně - odstraní pouze zcela prázdné sloupce. Pokud sloupec obsahuje jedinou hodnotu buňky, dokonce i prázdný řetězec vrácený nějakým vzorcem, zůstane takový sloupec nedotčen.
Makro Excelu: odstranění prázdných sloupců z listu Excelu Public Sub DeleteEmptyColumns() Dim SourceRange As Range Dim EntireColumn As Range On Error Resume Next Set SourceRange = Application.InputBox( _ "Select a range:" , "Delete Empty Columns" , _ Application.Selection.Address, Type :=8) If Not (SourceRange Is Nothing ) Then Application.ScreenUpdating = False For i = SourceRange.Columns.Count To 1Krok -1 Set EntireColumn = SourceRange.Cells(1, i).EntireColumn If Application.WorksheetFunction.CountA(EntireColumn) = 0 Then EntireColumn.Delete End If Next Application.ScreenUpdating = True End If End SubJak používat makro Odstranit prázdné sloupce
Zde jsou uvedeny kroky pro přidání makra do aplikace Excel:
- Stisknutím kláves Alt + F11 otevřete editor jazyka Visual Basic.
- Na panelu nabídek klikněte na Vložte > Modul .
- Vložte výše uvedený kód do okna Kód.
- Stisknutím klávesy F5 makro spustíte.
- Když se zobrazí vyskakovací dialogové okno, přepněte na pracovní list, který vás zajímá, vyberte požadovaný rozsah a klikněte na tlačítko OK:
Pokud nechcete přidávat makro do pracovního listu, můžete jej spustit z našeho ukázkového sešitu. Zde je uveden postup:
- Stáhněte si náš ukázkový sešit Odstranění prázdných sloupců v aplikaci Excel, otevřete jej a v případě výzvy povolte obsah.
- Otevřete vlastní sešit nebo se přepněte do již otevřeného sešitu.
- V sešitě stiskněte klávesy Alt + F8 , vyberte položku DeleteEmptyColumns a klikněte na tlačítko Spustit .
- Ve vyskakovacím okně vyberte rozsah a klikněte na tlačítko OK .
V každém případě budou zlikvidovány všechny prázdné sloupce ve vybraném rozsahu:
Identifikace a odstranění prázdných sloupců v aplikaci Excel pomocí vzorce
Výše uvedené makro odstraní prázdné sloupce rychle a tiše. Pokud jste však typ člověka, který "má vše pod kontrolou" (jako já :), možná budete chtít vizuálně vidět sloupce, které budou odstraněny. V tomto příkladu nejprve identifikujeme prázdné sloupce pomocí vzorce, abyste si je mohli rychle prohlédnout, a poté všechny nebo některé z těchto sloupců odstraníme.
Poznámka: Před trvalým smazáním čehokoli, zejména pomocí neznámé techniky, vám důrazně doporučuji, abyste si vytvořili záložní kopie sešitu, pro jistotu, kdyby se něco pokazilo.
Se záložní kopií na bezpečném místě proveďte následující kroky:
Krok 1. Vložení nového řádku
V horní části tabulky přidejte nový řádek. Klikněte pravým tlačítkem myši na záhlaví prvního řádku a klikněte na možnost Vložte . Nedělejte si starosti s narušováním struktury/uspořádání dat - tento řádek můžete později odstranit.
Krok 2. Identifikace prázdných sloupců
Do nejlevější buňky nově přidaného řádku zadejte následující vzorec:
=COUNTA(A2:A1048576)=0
A poté vzorec zkopírujte do ostatních sloupců přetažením úchytu výplně.
Logika vzorce je velmi jednoduchá: COUNTA kontroluje počet prázdných buněk ve sloupci od řádku 2 do řádku 1048576, což je v Excelu 2019 - 2007 maximum řádků. Toto číslo porovnáte s nulou a jako výsledek máte ve sloupcích s prázdnými buňkami hodnotu TRUE a ve sloupcích, které obsahují alespoň jednu neprázdnou buňku, hodnotu FALSE. Díky použití relativních odkazů na buňky se vzorec správně upraví pro každý sloupec.kde je zkopírován.
V případě, že pracovní list vytváříte pro někoho jiného, možná budete chtít sloupce označit smysluplněji. Není problém, lze to snadno provést pomocí příkazu IF podobného tomuto:
=IF(COUNTA(A2:A1048576)=0, "Prázdný", "Není prázdný")
Nyní vzorec výslovně uvádí, které sloupce jsou prázdné a které ne:
Tip: V porovnání s makrem vám tato metoda poskytuje větší flexibilitu, pokud jde o to, které sloupce mají být považovány za prázdné. V tomto příkladu kontrolujeme celou tabulku včetně řádku záhlaví. To znamená, že pokud sloupec obsahuje pouze záhlaví, takový sloupec není považován za prázdný a není odstraněn. Pokud chcete kontrolovat pouze datové řádky. ignorování záhlaví sloupců , odstraníte z cílového rozsahu (A3:A1048576) řádek(y) záhlaví. Výsledkem je, že sloupec, který má záhlaví a nejsou v něm žádná další data, bude považován za prázdný a bude podléhat vymazání. Také můžete omezit rozsah na poslední použitý řádek, což by v našem případě byl A11.
Krok 3. Odstranění prázdných sloupců
Pokud máte k dispozici přiměřený počet sloupců, můžete jednoduše vybrat ty, které mají v prvním řádku nápis "Prázdný" (chcete-li vybrat více sloupců, podržte při klikání na písmena sloupců klávesu Ctrl). Poté klikněte pravým tlačítkem myši na libovolný vybraný sloupec a vyberte možnost Odstranit z kontextové nabídky:
Pokud jsou v listu desítky nebo stovky sloupců, má smysl zobrazit všechny prázdné. Za tímto účelem proveďte následující kroky:
- Vyberte horní řádek se vzorci, přejděte na položku Data karta> Třídění a filtrování a klikněte na Třídit tlačítko.
- V zobrazeném dialogovém okně s upozorněním vyberte možnost Rozšíření výběru a klikněte na tlačítko Třídit...
- Tím se otevře Třídit dialogové okno, kde kliknete na Možnosti... vyberte tlačítko Seřadit zleva doprava, a klikněte na OK .
- Nakonfigurujte pouze jednu úroveň třídění, jak je uvedeno níže, a klikněte na tlačítko OK:
- Seřadit podle: Řádek 1
- Třídit na: Hodnoty buněk
- Pořadí: A až Z
Výsledkem bude přesunutí prázdných sloupců do levé části pracovního listu:
- Vyberte všechny prázdné sloupce - klikněte na první písmeno sloupce, stiskněte klávesu Shift a poté klikněte na písmeno posledního prázdného sloupce.
- Klikněte pravým tlačítkem myši na vybrané sloupce a vyberte možnost Odstranit z rozbalovací nabídky.
Hotovo! Zbavili jste se prázdných sloupců a nyní vám nic nebrání odstranit horní řádek se vzorci.
Nejrychlejší způsob odstranění prázdných sloupců v aplikaci Excel
Na začátku tohoto návodu jsem napsal, že neexistuje žádný způsob, jak v Excelu odstranit prázdné sloupce jedním kliknutím. Ve skutečnosti to není tak docela pravda. Měl jsem říct, že neexistuje žádný vestavěný způsob. Uživatelé naší sady Ultimate Suite mohou prázdné sloupce v Excelu odstranit doslova na pár kliknutí :).
V cílovém pracovním listu přepněte na položku Nástroje Ablebits klikněte na kartu Odstranění prázdných políček a vyberte Prázdné sloupce :
Abyste se ujistili, že nešlo o náhodné kliknutí myší, požádá vás doplněk o potvrzení, že chcete z daného listu skutečně odstranit prázdné sloupce:
Klikněte na OK , a za okamžik jsou všechny prázdné sloupce pryč!
Stejně jako makro popsané výše, i tento nástroj odstraní pouze ty sloupce, které jsou naprosto prázdný . Sloupce, které mají jakoukoli jednotlivou hodnotu, včetně záhlaví, jsou zachovány.
Odstranění prázdných políček je jen jednou z desítek skvělých funkcí, které vám mohou usnadnit život uživatele aplikace Excel. Chcete-li se dozvědět více, můžete si stáhnout zkušební verzi naší sady Ultimate Suite for Excel.
Prázdné sloupce se nemažou! Proč?
Vydání : Vyzkoušeli jste všechny výše uvedené metody, ale jeden nebo více prázdných sloupců v pracovním listu se zaseklo. Proč?
S největší pravděpodobností proto, že tyto sloupce nejsou ve skutečnosti prázdné. V tabulkách aplikace Excel se může nepozorovaně skrývat mnoho různých znaků, které jsou lidskému oku neviditelné, zejména pokud jste importovali informace z externího zdroje. Může to být pouhý prázdný řetězec nebo znak mezery, nelomená mezera nebo jiný netisknutelný znak.
Chcete-li určit viníka, vyberte první buňku v problematickém sloupci a stiskněte klávesy Ctrl + šipka dolů . Například sloupec C na obrázku níže není prázdný kvůli jednomu znaku mezery v C6:
Dvakrát klikněte na buňku, abyste zjistili, co se v ní vlastně nachází, nebo jednoduše stiskněte klávesu Delete, abyste se neznámého čehosi zbavili. A pak výše uvedený postup zopakujte, abyste zjistili, zda se v daném sloupci nenachází další neviditelné věci. Možná budete chtít také vyčistit data odstraněním počátečních, koncových a nelomených mezer.
Děkuji vám za přečtení a doufám, že se příští týden uvidíme na našem blogu!
