Obsah
Tento článek vám ukáže, jak můžete v aplikaci Excel odstranit prázdné sloupce třemi efektivními a snadnými způsoby.
Stáhnout pracovní sešit
Cvičebnici si můžete stáhnout zde.
Odstranit prázdné sloupce v aplikaci Excel.xlsm3 jednoduché způsoby odstranění prázdných sloupců v aplikaci Excel
Zde se dozvíte 3 způsoby, jak odstranit prázdné sloupce v aplikaci Excel pomocí nástrojů pro úpravy aplikace Excel, pomocí vzorce a pomocí kódu VBA.
1. Pomocí nástrojů pro úpravy aplikace Excel
Krok 1: Vyberte datovou sadu.
Krok 2: Přejít na Home -> Najít & amp; Vybrat -> Přejít na Speciální .
Krok 3: Z Přejít na Speciální vyskakovací okno, vyberte Slepé položky a poté klikněte na tlačítko OK .
Krok 4: Budou vybrány pouze prázdné buňky z vašeho souboru dat. Klikněte pravým tlačítkem myši a z vyskakovacího seznamu možností vyberte možnost Odstranit .
Krok 5: Dále z vyskakovacího okna Odstranit box, vybrat Posun buněk doleva z možností. Klikněte na DOBŘE.
Tím se ze souboru dat odstraní všechny prázdné sloupce.
Přečtěte si více: Jak odstranit nepoužívané sloupce v aplikaci Excel
2. Pomocí vzorce
Můžete využít COUNTA() vzorec pro odstranění prázdných sloupců v aplikaci Excel. Co je to COUNTA() vzorec nejprve identifikuje prázdné a neprázdné sloupce v souboru dat v aplikaci Excel a poté můžete prázdné sloupce snadno vybrat a odstranit.
Jedná se o další účinný způsob, jak odstranit prázdné sloupce v aplikaci Excel, zejména pokud máte k dispozici velké množství prázdných sloupců. Pojďme se naučit, jak na to.
Krok 1: Vložte prázdný řádek přímo nad datovou sadu kliknutím pravým tlačítkem myši na záhlaví prvního řádku a výběrem možnosti Vložte z vyskakovacího seznamu možností. Tím se vloží nový řádek nad celou datovou sadu.
Krok 2: Do nejlevější buňky pracovního listu napište následující vzorec,
=COUNTA(A2:A1048576)=0
Zde,
A2 představuje první buňku souboru dat,
A1048576 představuje maximum řádků v aplikaci Excel (2007-2019).
Krok 3: Tisk Vstupte na . Zobrazí se Pravda pokud je sloupec prázdný, nebo False pokud je v celém sloupci alespoň jedna neprázdná buňka.
Krok 4: Vzorec aplikujte na ostatní sloupce přetažením tlačítka Plnicí rukojeť .
Krok 5: Nyní přejděte na Home -> Třídit a filtrovat -> Vlastní třídění .
Krok 6: Z vyskakovacího okna Třídit klikněte na Možnosti Pak vyberte tlačítko Třídit zleva doprava z Možnosti třídění vyskakovací okno a klikněte na OK .
Krok 7: Klikněte na rozevírací seznam vedle Seřadit podle štítek a v něm vyberte možnost Řada 1 .
Krok 8: Klikněte na rozevírací seznam pod Třídit na a vyberte možnost Hodnoty buněk odtud.
Krok 9: Klikněte na rozevírací seznam pod Objednávka a vyberte možnost Od největšího k nejmenšímu . klikněte OK .
Posune všechny prázdné sloupce na levou stranu pracovního listu.
Krok 10: Odtud stačí vybrat celou datovou sadu prázdných prázdných sloupců, kliknout pravým tlačítkem myši a vybrat možnost Odstranit .
Krok 11: Z vyskakovacího okna Odstranit vyberte pole Celý sloupec z možností. Klikněte na OK .
Tím se ze souboru dat odstraní všechny prázdné sloupce.
Podobné čtení:
- Jak odstranit více sloupců v aplikaci Excel
- Odstranění duplicitních sloupců v aplikaci Excel (6 způsobů)
- Jak odstranit další sloupce v aplikaci Excel (7 metod)
- Odstranění sloupců v aplikaci Excel bez ovlivnění vzorce (dva způsoby)
3. Pomocí kódu VBA
Pokud jste zkušenými uživateli aplikace Excel, pak je tato metoda určena především pro vás. Implementace kódu VBA je nejbezpečnějším způsobem, jak odstranit prázdné sloupce v aplikaci Excel. Odstraní pouze zcela prázdné sloupce. Pokud některý sloupec obsahuje jedinou hodnotu buňky, dokonce i jakákoli buňka vrátí prázdný řetězec, přesto bude celý tento sloupec zcela nedotčen.
Níže je uveden automatizovaný způsob odstranění prázdných sloupců v aplikaci Excel.
Krok 1: Tisk Alt + F11 na klávesnici nebo přejděte na kartu Vývojář -> Visual Basic a otevřete editor jazyka Visual Basic.
Krok 2: Na panelu nabídek klikněte na Vložte -> Modul .
Krok 3: Zkopírujte následující kód a vložte jej do okna kódu.
Public Sub DeleteBlankColumns() Dim SrcRange As Range Dim EntrColumn As Range On Error Resume Next Set SrcRange = Application.InputBox( _ "Select a range:", "Delete Blank Columns", _ Application.Selection.Address, Type:=8) If Not (SrcRange Is Nothing) Then Application.ScreenUpdating = False For i = SrcRange.Columns.Count To 1 Step -1 Set EntrColumn = SrcRange.Cells(1, i).EntrColumn IfApplication.WorksheetFunction.CountA(EntrColumn) = 0 Then EntrColumn.Delete End If Next Application.ScreenUpdating = True End If End Sub Krok 4: Tisk F5 na klávesnici nebo na panelu nabídek vyberte možnost Spustit -> Spustit Sub/UserForm . Můžete také kliknout na malý Ikona přehrávání na panelu podnabídek spustíte makro.
Krok 5: Ve vyskakovacím dialogovém okně se přepněte na list, který vás zajímá, vyberte požadovaný rozsah a klikněte na tlačítko OK .
Tím odstraníte všechny prázdné sloupce z datové základny.
Závěr
V tomto článku jsme se zabývali třemi snadnými způsoby, jak odstranit prázdné sloupce v aplikaci Excel. Ukázali jsme si, jak použít nástroje pro úpravy aplikace Excel k odstranění prázdných sloupců, ukázali jsme si, jak použít vzorce k odstranění prázdných sloupců, a také jsme implementovali kód VBA k odstranění prázdných sloupců v aplikaci Excel.
