Hoe verwijder je lege kolommen met een koptekst in Excel?
Als je een groot werkblad hebt dat meerdere kolommen bevat, maar sommige van deze kolommen bevatten alleen een koptekst, en nu wil je deze lege kolommen die alleen een koptekst bevatten verwijderen om het volgende schermafbeelding te krijgen. Kan dit snel en gemakkelijk worden opgelost in Excel?
Verwijder lege kolommen met een koptekst door VBA-code te gebruiken
Verwijder meerdere lege kolommen in een bereik / werkblad / werkboek met Kutools voor Excel
Verwijder lege kolommen met een koptekst door VBA-code te gebruiken
In Excel is er geen directe methode om deze taak uit te voeren, behalve de kolommen één voor één handmatig verwijderen, maar hier kan ik je een code introduceren, doe als volgt:
1. Houd de toetsen ALT + F11 ingedrukt, dan opent het venster Microsoft Visual Basic for Applications.
2. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.
VBA-code: Verwijder lege kolommen met een koptekst:
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 columns with only headers are 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. Druk vervolgens op de F5-toets om deze code uit te voeren, en er verschijnt een pop-up waarschuwingsvenster om je eraan te herinneren dat de lege kolommen met koptekst zullen worden verwijderd.
4. Klik op OK, alle lege kolommen met alleen kopteksten in het huidige werkblad worden in één keer verwijderd.
Opmerking: Als er lege kolommen zijn, worden deze ook verwijderd.
Verwijder meerdere lege kolommen in een bereik / werkblad / werkboek met Kutools voor Excel
Soms hoef je alleen de lege kolommen te verwijderen, de functie Verwijder Verborgen (Zichtbare) Rijen & Kolommen van Kutools voor Excel kan je helpen om deze taak eenvoudig af te ronden.
Nadat je Kutools voor Excel hebt geïnstalleerd, doe dan als volgt:
1. Selecteer het kolombereik dat de lege kolommen bevat die moeten worden verwijderd.
2. Klik vervolgens op Kutools > Verwijderen > Verwijder Verborgen (Zichtbare) Rijen & Kolommen, zie onderstaande schermafbeelding:
3. In het dialoogvenster Verwijder Verborgen (Zichtbare) Rijen & Kolommen, kun je het verwijderingsbereik selecteren uit de Zoeken in keuzelijst zoals je nodig hebt, selecteer Kolommen uit de sectie Verwijderingstype, en kies vervolgens Lege kolommen uit de sectie Gedetailleerd type, zie onderstaande schermafbeelding:
4. Klik vervolgens op de knop OK, en alleen de lege kolommen worden in één keer verwijderd. Zie onderstaande schermafbeelding:
Tips: Met deze krachtige functie kun je ook lege rijen, zichtbare kolommen of rijen, verborgen kolommen of rijen verwijderen naar behoefte.
Kutools voor Excel - Boost Excel met meer dan 300 essentiële tools. Geniet van permanent gratis AI-functies! Nu verkrijgen
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen