Hoe lege kolommen met koptekst in Excel te verwijderen?
Als je een groot werkblad hebt dat meerdere kolommen bevat, maar sommige kolommen bevatten alleen een koptekst, en nu wil je deze lege kolommen verwijderen die alleen een koptekst bevatten om de volgende schermafbeelding te laten zien. Is dit snel en eenvoudig in Excel op te lossen?
Verwijder lege kolommen met een koptekst met behulp van VBA-code
Verwijder meerdere lege kolommen in een bereik / werkblad / werkmap met Kutools voor Excel
Verwijder lege kolommen met een koptekst met behulp van VBA-code
In Excel is er geen directe methode om met deze taak om te gaan, behalve om ze een voor een handmatig te verwijderen, maar hier kan ik een code voor u invoeren, doe dit als volgt:
1. Houd de toets ingedrukt ALT + F11 toetsen, dan opent het de Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
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 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. Druk vervolgens op F5 sleutel om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren dat de lege kolommen met de koptekst worden verwijderd, zie screenshot:
4. En klik vervolgens op OK knop, worden alle lege kolommen met alleen de koptekst in het huidige werkblad in één keer verwijderd.
Note: Als er lege kolommen zijn, worden deze ook verwijderd.
Verwijder meerdere lege kolommen in een bereik / werkblad / werkmap met Kutools voor Excel
Soms hoeft u alleen de lege kolommen, de Kutools for Excel's Verwijder verborgen (zichtbare) rijen en kolommen hulpprogramma kan u helpen om deze taak gemakkelijk te voltooien.
| Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. |
Na het installeren van Kutools for Excelgaat u als volgt te werk:
1. Selecteer het kolombereik waarin de lege kolommen moeten worden verwijderd.
2. Dan klikken Kutools > Verwijder > Verwijder verborgen (zichtbare) rijen en kolommen, zie screenshot:
3. In de Verwijder verborgen (zichtbare) rijen en kolommen dialoogvenster kunt u het verwijderbereik selecteren in de vervolgkeuzelijst Zoeken in, selecteer columns van het Verwijder type sectie en kies vervolgens Lege kolommen van het Gedetailleerd type sectie, zie screenshot:
4. Dan klikken Ok knop, en alleen de lege kolommen worden in één keer verwijderd. Zie screenshot:
Tips: Met deze krachtige functie kunt u naar behoefte ook lege rijen, zichtbare kolommen of rijen, verborgen kolommen of rijen verwijderen.
Klik op Kutools nu gratis downloaden voor Excel!
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
