Ga naar hoofdinhoud

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

pijl blauw rechts bel 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.

pijl blauw rechts bel 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:

doc-verwijder-blanco-bladen1

2. En er verschijnt een promptvenster om u eraan te herinneren of u alle lege werkbladen wilt verwijderen of niet, zie screenshot:

doc-verwijder-blanco-bladen2

3. Dan klikken Ja, en de lege werkbladen zijn succesvol verwijderd. Zie screenshots:

doc-verwijder-blanco-bladen3
-1
doc-verwijder-blanco-bladen4

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

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup  |   VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk   |  Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen   |  Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets:  12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

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...

Omschrijving

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!
Comments (3)
No ratings yet. Be the first to rate!
Salvador Sánchez
Salvador Sánchez
This comment was minimized by the moderator on the site
Estimado, no se si me pueda ayudar. Tengo esta macro precisamente para eliminar hojas vacías, pero no logro hacer que funcione al correrla una sola vez, la tengo que ejecutar dos veces para que borre todas las hojas vacías. Que esta fallando para que haga la tarea de borrar todas las hojas en una sola corrida.

La macro es:

Sub Buscar_Hojas_Vacías_y_Eliminarlas2()

Dim Nhojas As Integer
Dim i As Integer

On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Nhojas = Sheets.Count

For i = 1 To Nhojas

If WorksheetFunction.CountA(Sheets(i).UsedRange) = 0 And Sheets(i).Shapes.Count = 0 Then

Sheets(i).Delete

Else
' Nada
End If
Next i

On Error GoTo 0
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

Gracias, espero sus comentarios.
Reply
0
0
SD
SD     Salvador Sánchez
This comment was minimized by the moderator on the site
I cannot speak your language but I see a flaw in your code.
The problem is >> Nhojas = Sheets.Count
And then you depend on Nhojas but when you delete a sheet you do not reduce Nhojas by 1

So just add this line to your code after "Sheets(i).Delete" and before "Else":
Nhojas = Nhojas - 1

Done :)

You have done a good job though, but you need to dry run your code when you try and debug the code.
Reply
0
0
Ems
Ems
This comment was minimized by the moderator on the site
Public member 'WorksheetFunction' on type 'WorkbookClass' not found.
i'm using Interop.Excel
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations