Jak odstranit všechny prázdné sloupce v aplikaci Microsoft Excel

Prázdné sloupce v souboru aplikace Microsoft Excel lze odstranit několika způsoby. Proč to musíte udělat? - Jednoduché.

Viz také náš článek Jak zmrazit horní řádek v Excelu

Data, která importujete z webových stránek, může občas způsobit, že se zobrazí velké množství sloupců, i když nejsou použity. Vidíte to tak často se soubory CSV a soubory TXT.

V takovém případě nemusí být ruční odstranění sloupců vždy snadné. Jistě, pokud máte pouze dva nebo tři prázdné sloupce, je zcela v pořádku je odstranit ručně. Co když ale importovaný projekt vytvoří 57 prázdných a nespojitých sloupců? - K tomu budete potřebovat automatizovaný proces.

Používání makra VBA

Rychlé odkazy

• Používání makra VBA
  • • • Přejděte do souboru Excel
      • Držte Alt a F11 pohromadě
      • Počkejte, až se zobrazí okno Microsoft Visual Basic for Applications
      • Klikněte na Vložit
      • Vyberte modul
      • Do okna vložte následující řádky kódu
      • Stisknutím klávesy F5 kompilace a spuštění makra
      • V dialogovém okně zadejte příslušný pracovní rozsah
      • $ A $ 1 - Horní roh
      • $ J $ 12 - Spodní roh
      • Stiskněte OK
• Pomocí nástrojů Excel
  • • • Nejprve vyberte rozsah dat
      • Stiskněte klávesu F5
      • Klikněte na speciální
      • Vyberte možnost Blanks
      • Klikněte na OK (Tento výběr zajistí, že budou v cílovém rozsahu vybrány všechny prázdné buňky)
      • Přejděte na kartu Domovská stránka
      • Vyberte rozbalovací nabídku Odstranit ve skupině Nástroje buněk
      • Vyberte Odstranit buňky
      • Vyberte Shift Cells Left pro odstranění a přeskupení sloupců
      • Klikněte na OK
      • Chcete-li odebrat a přeskupit řádky, vyberte Shift cell up
• Další snadné úkoly řazení
• Konečné myšlení

První metoda zahrnuje použití makra VBA.

1. Přejděte do souboru Excel

2. Držte Alt a F11 pohromadě

3. Počkejte, až se zobrazí okno Microsoft Visual Basic for Applications

4. Klikněte na Vložit

5. Vyberte modul

   

6. Do okna vložte následující řádky kódu

Sub DeleteEmptyColumns()
'Updateby20140317
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 To 1 Step -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

1. Stisknutím klávesy F5 kompilace a spuštění makra

2. V dialogovém okně zadejte příslušný pracovní rozsah

Pracovní rozsah nebo rozsah dat je specifický interval mezi sloupci, na které chcete cílit. Formát je $ A $ 1: $ J $ 12. Písmena odpovídají sloupci a čísla odpovídají řádkům.

Pokud to přetáhnete myší nebo podržíte klávesu Shift a pomocí kláves se šipkami, zjistíte, že:

$ A $ 1 - Horní roh

$ J $ 12 - Spodní roh

Rozsah dat nelze vybrat před zahájením nahrávání makra, protože nezůstane vybráno.

Stiskněte OK

Poté by měly být vymazány všechny prázdné sloupce a všechny vyplněné sloupce by měly být vedle sebe.

Pomocí nástrojů Excel

Excel by samozřejmě nebyl takovým powerhouseem, kdyby neměl velké třídicí schopnosti. Pomocí rozbalovací nabídky Odstranit můžete odstranit celé řádky, sloupce nebo prázdné buňky.

1. Nejprve vyberte rozsah dat

2. Stiskněte klávesu F5

3. Klikněte na speciální

   

4. Vyberte možnost Blanks

5. Klikněte na OK (Tento výběr zajistí, že budou v cílovém rozsahu vybrány všechny prázdné buňky)

   

6. Přejděte na kartu Domovská stránka

7. Vyberte rozbalovací nabídku Odstranit ve skupině Nástroje buněk

8. Vyberte Odstranit buňky

   

9. Vyberte Shift Cells Left pro odstranění a přeskupení sloupců

10. Klikněte na OK

Nyní by prázdné buňky z prázdných sloupců měly zmizet a všechny ostatní řádky by se posunuly blíže k sobě.

Stejným přístupem můžete vymazat celé řádky. Místo přesunutí buněk doleva však vyberete druhou možnost.

Chcete-li odebrat a přeskupit řádky, vyberte Shift cell up

V závislosti na verzi Excelu, kterou používáte, můžete mít různá formulace. V každém případě jsou však dvě horní možnosti v nabídce Odstranit buňky vždy stejné.

Tato metoda již neodstraní všechny prázdné buňky ve výběru. Před Excelem 2013 by se tím neúmyslně odstranily i prázdné řádky, které by obecně třídily řazení.

Nyní se problém již nevyskytuje. Pokud se tedy chcete řádků zbavit, můžete tak učinit opětovným výběrem rozsahu dat a následováním předchozích kroků. Pak jednoduše vyberte, abyste posunuli nebo odstranili buňky namísto vlevo.

Další snadné úkoly řazení

Přestože se technicky pomocí panelu nástrojů Excel k odstranění prázdných sloupců a řádků zdá jednodušší, metoda makra VBA je spolehlivá, což znamená, že ji můžete použít i ve starších verzích aplikace Microsoft Excel.

Pomocí stejného modulu VBA nebo nabídky funkcí Go To můžete udělat mnohem více v Excelu. Máte určité vzorce, které již nejsou relevantní? - Můžete je také odstranit nebo podle toho uspořádat.

Pokud nechcete, aby se v průběhu prezentace zobrazovaly, můžete z projektu také odstranit nepotřebné komentáře nebo všechny komentáře. Podívejte se do VBA, pokud chcete být výkonným uživatelem aplikace Excel.

Konečné myšlení

V průběhu let se na internetu objevila celá řada doplňků. Některé z nich umožňují při třídění velkých tabulek používat ještě více zkratek. Tyto aplikace jsou však jen zřídka zdarma a nestojí za problém pro jednoduché úkoly, jako je odstranění prázdných řádků, buněk a sloupců.

Kromě toho, pokud by to bylo tak obtížné, Microsoft by nyní tento proces dále zjednodušil nebo vytvořil ještě rozsáhlejší návody pro třídění Excelu.