Hoe verwijder je alle lege werkbladen in Excel?
Als je een werkboek hebt met veel werkbladen, en er zijn ook enkele lege werkbladen aanwezig. En nu wil je de lege werkbladen verwijderen om het bestand op te slaan of te archiveren. Hoe kun je de lege bladen zoeken tussen meerdere werkbladen en ze automatisch verwijderen?
Alle lege werkbladen verwijderen met VBA-code
Alle lege werkbladen verwijderen met Kutools voor Excel
Alle lege werkbladen verwijderen met VBA-code
Het is lastig om de lege werkbladen te controleren en ze één voor één te verwijderen, maar met de volgende VBA-code kun je eenvoudig alle lege werkbladen tegelijk verwijderen.
1. Houd de toetsen ALT + F11 ingedrukt, en het venster Microsoft Visual Basic for Applications wordt geopend.
2. Klik op Invoegen > Module, en plak de volgende code in het Module-venster.
VBA: alle lege werkbladen verwijderen
Sub DeleteBlankWorksheets()
'Update 20130830
Dim Ws As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each Ws In Application.Worksheets
If Application.WorksheetFunction.CountA(Ws.UsedRange) = 0 Then
Ws.Delete
End If
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
3. Druk vervolgens op de F5-toets, en alle lege werkbladen worden tegelijk verwijderd.
Alle lege werkbladen verwijderen met Kutools voor Excel
Als je niet bekend bent met de VBA-code, kan ik je een eenvoudig hulpmiddel introduceren - Kutools voor Excel. Met de functie Verwijder lege bladen kun je alle lege werkbladen met één klik verwijderen.
Kutools voor Excel bevat meer dan 300 handige Excel-hulpmiddelen. Gratis uitproberen zonder beperking gedurende 30 dagen. Download het nu.
Nadat je Kutools voor Excel hebt geïnstalleerd, doe dan het volgende:
1. Klik op Kutools Plus > Werkblad > Verwijder lege bladen, zie screenshot:
2. Er verschijnt een waarschuwingsvenster dat vraagt of je alle lege werkbladen wilt verwijderen, zie screenshot:
3. Klik vervolgens op Ja, en de lege werkbladen zijn succesvol verwijderd. Zie screenshots:
 |
 |
 |
Als je meer wilt weten over deze functie, klik dan op Verwijder lege bladen.
Gerelateerd artikel:
Hoe verwijder je verborgen werkbladen in Excel?
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