Hoppa till huvudinnehåll

Hur tar jag bort alla tomma kalkylblad i Excel?

Om du har en arbetsbok som har många kalkylblad finns det emellertid några tomma kalkylblad i den. Och nu vill du radera de tomma kalkylbladen för att spara eller arkivera filen. Hur kan du söka efter de tomma bladen från flera kalkylblad och radera dem automatiskt?

Ta bort alla tomma kalkylblad med VBA-kod

Ta bort alla tomma kalkylblad med Kutools för Excel

pil blå höger bubbla Ta bort alla tomma kalkylblad med VBA-kod

Det är besvärligt för dig att söka efter de tomma kalkylbladen och ta bort dem en efter en, men med följande VBA-kod kan du enkelt ta bort alla tomma kalkylblad samtidigt.

1. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i modulfönstret.

VBA: ta bort alla tomma kalkylblad

Sub DeleteBlankWorksheets () 'Uppdatera 20130830 Dim Ws som kalkylblad vid fel Återuppta nästa applikation.ScreenUpdating = Falsk applikation.DisplayAlerts = Falsk för varje Ws i applikation. Arbetsblad om Application.WorksheetFunction.CountA (Ws.UsedRange) = 0 Då Ws.Radera slut If Next Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub

3. Tryck sedan på F5 och alla tomma kalkylblad raderas samtidigt.

pil blå höger bubbla Ta bort alla tomma kalkylblad med Kutools för Excel

Om du inte känner till VBA-koden kan jag presentera ett enkelt verktyg för dig- Kutools för Excel, med dess Ta bort tomma kalkylblad funktion kan du ta bort alla tomma kalkylblad med ett klick.

Kutools för Excel innehåller mer än 300 praktiska Excel-verktyg. Gratis att prova utan begränsning på 30 dagar. Hämta nu.

När du har installerat Kutools för Excel, gör så här:

1. Klicka Företag > Verktyg för kalkylblad > Ta bort tomma kalkylblad, se skärmdump:

doc-radera-tomma-ark1

2. Och en snabbruta visas för att påminna dig om du vill ta bort alla tomma kalkylblad eller inte, se skärmdump:

doc-radera-tomma-ark2

3. Klicka sedan Jaoch de tomma kalkylarken har tagits bort. Se skärmdumpar:

doc-radera-tomma-ark3
-1
doc-radera-tomma-ark4

Klicka på om du vill veta mer om den här funktionen Ta bort tomma kalkylblad.

Relaterad artikel:

Hur tar jag bort dolda kalkylblad i Excel?

Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup  |   VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar   |  Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler   |  Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser:  12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

Beskrivning

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje 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