Jak odstranit prázdné sloupce s hlavičkou v aplikaci Excel?
Pokud máte velký list, který obsahuje více sloupců, ale některé ze sloupců obsahují pouze záhlaví, a nyní chcete odstranit tyto prázdné sloupce, které mají pouze záhlaví, aby se zobrazil následující snímek obrazovky. Lze to v aplikaci Excel vyřešit rychle a snadno?
Odstraňte prázdné sloupce s hlavičkou pomocí kódu VBA
Odstraňte několik prázdných sloupců v rozsahu / listu / sešitu pomocí programu Kutools pro Excel
Odstraňte prázdné sloupce s hlavičkou pomocí kódu VBA
V aplikaci Excel neexistuje žádná přímá metoda řešení této úlohy s výjimkou ručního mazání, ale zde vám mohu představit kód, postupujte takto:
1. Podržte stisknuté tlačítko ALT + F11 klávesy, pak se otevře Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do Modul Okno.
Kód VBA: Odstraňte prázdné sloupce se záhlaví:
Sub Macro1()
'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 and column(s) with only a header row have now 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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a vyskočí okno s výzvou, které vám připomene, že prázdné sloupce s hlavičkou budou odstraněny, viz screenshot:
4. A pak klikněte na tlačítko OK tlačítko, všechny prázdné sloupce s jediným záhlavím v aktuálním listu budou smazány najednou.
Poznámka: Pokud jsou prázdné sloupce, budou také odstraněny.
Odstraňte několik prázdných sloupců v rozsahu / listu / sešitu pomocí programu Kutools pro Excel
Někdy stačí smazat pouze prázdné sloupce, Kutools pro ExcelJe Odstranit skryté (viditelné) řádky a sloupce nástroj vám pomůže tento úkol snadno dokončit.
| Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů. |
Po instalaci Kutools pro Excel, postupujte následovně:
1. Vyberte rozsah sloupců, který zahrnuje prázdné sloupce, které je třeba odstranit.
2. Pak klikněte na tlačítko Kutools > Vymazat > Odstranit skryté (viditelné) řádky a sloupce, viz screenshot:
3. V Odstranit skryté (viditelné) řádky a sloupce V dialogovém okně můžete vybrat rozsah odstranění z rozevíracího seznamu Hledat, jak potřebujete, vyberte Sloupce z Smazat typ sekci a poté vyberte Prázdné sloupce z Podrobný typ sekce, viz screenshot:
4. Pak klikněte na tlačítko Ok tlačítko a najednou se smažou pouze prázdné sloupce. Viz snímek obrazovky:
Tipy: S touto výkonnou funkcí můžete podle potřeby také mazat prázdné řádky, viditelné sloupce nebo řádky, skryté sloupce nebo řádky.
Klikněte na Stažení zdarma Kutools pro Excel hned teď!
Nejlepší nástroje pro produktivitu v kanceláři
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...
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!
