Hvordan slette alle tomme regneark i Excel?

It er plagsom for deg å se etter de tomme regneark og fjerne dem én etter én, men med følgende VBA-kode, kan du enkelt slette alle tomme regneark samtidig.
1. Hold nede ALT + F11-tastene, og det åpner Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode i modulen vinduet
VBA. Slette alle tomme regneark
Sub DeleteBlankWorksheets () 'Update 20130830Dim Ws Som WorksheetOn Error Resume NextApplication.ScreenUpdating = FalseApplication.DisplayAlerts = FalseFor Hver Ws programmet. regneark Hvis Application.WorksheetFunction.CountA (Ws.UsedRange) = 0 Then Ws.Delete End IfNextApplication.ScreenUpdating = TrueApplication.DisplayAlerts = TrueEnd Sub3. Deretter trykker du F5-tasten, og alle de tomme regneark slettes samtidig.

Slett alle tomme regneark med Kutools for Excel
Hvis du ikke er kjent med VBA-kode, kan jeg introdusere deg en enkel verktøy- Kutools for Excel, med sin slette tomme Regneark funksjonen, kan du fjerne alle tomme regneark med ett klikk.
Kutools for Excel omfatter mer enn 120 praktiske Excel-verktøy. Gratis å prøve uten begrensning i 30 dager. . Få den nå
Når du har installert Kutools for Excel, kan du gjøre som følgende:
1. Klikk Enterprise > Regneark Verktøy > Slett tomme regneark, se skjermbilde:
to. Og en rask boks vil vises for å minne deg om du vil slette alle tomme regneark eller ikke, se skjermbilde:
tre. Deretter klikker du Ja, og de tomme regneark har blitt slettet. Se skjermbilder.
Hvis du ønsker å vite mer om denne funksjonen, kan du klikke Slett Blanke Regneark