Hoe verwijder ik alle lege werkbladen in Excel?
Als u een werkmap heeft met veel werkbladen, staan er ondertussen enkele lege werkbladen in. En nu wilt u de lege werkbladen verwijderen om het bestand op te slaan of te archiveren. Hoe kon je zoeken naar de blanco bladen van meerdere werkbladen en ze automatisch verwijderen?
Verwijder alle lege werkbladen met VBA-code
Verwijder alle lege werkbladen met Kutools voor Excel
Verwijder alle lege werkbladen met VBA-code
Het is lastig voor u om de lege werkbladen te controleren en ze een voor een te verwijderen, maar met de volgende VBA-code kunt u eenvoudig alle lege werkbladen tegelijk verwijderen.
1. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het modulevenster.
VBA: verwijder alle lege werkbladen
Sub DeleteBlankWorksheets () 'Update 20130830 Dim Ws As Worksheet On Error Hervat Volgende Application.ScreenUpdating = False Application.DisplayAlerts = False voor elk Ws in Application.Worksheets If Application.WorksheetFunction.CountA (Ws.UsedRange) = 0 Vervolgens Ws.Delete End If Next Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub
3. Druk vervolgens op F5 key, en alle lege werkbladen worden in één keer verwijderd.
Verwijder alle lege werkbladen met Kutools voor Excel
Als u niet bekend bent met de VBA-code, kan ik u een eenvoudige tool voorstellen: Kutools for Excel, Met Verwijder lege werkbladen functie, kunt u alle lege werkbladen met één klik verwijderen.
Kutools for Excel bevat meer dan 300 handige Excel-tools. Gratis te proberen zonder beperking binnen 30 dagen. Get it Now.
Als u Kutools voor Excel hebt geïnstalleerd, gaat u als volgt te werk:
1. Klikken Enterprise > Werkbladhulpmiddelen > Verwijder lege werkbladen, zie screenshot:
2. En er verschijnt een promptvenster om u eraan te herinneren of u alle lege werkbladen wilt verwijderen of niet, zie screenshot:
3. Dan klikken Ja, en de lege werkbladen zijn succesvol verwijderd. Zie screenshots:
Wilt u meer weten over deze functie, klik dan op Verwijder lege werkbladen.
Gerelateerd artikel:
Hoe verwijder ik verborgen werkbladen in 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!