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?