Ugrás a tartalomra

Hogyan lehet törölni az összes üres munkalapot az Excelben?

Szerző: Xiaoyang Utolsó módosítás: 2013-10-25

Ha van egy munkafüzete, amely sok munkalapot tartalmaz, addig van benne néhány üres munkalap. És most törölni szeretné az üres munkalapokat a fájl mentéséhez vagy archiválásához. Hogyan kereshetné meg az üres lapokat több munkalapról, és törölheti őket automatikusan?

Töröljön minden üres VBA kóddal ellátott munkalapot

Törölje az összes üres munkalapot a Kutools for Excel segítségével

nyíl kék jobb buborék Töröljön minden üres VBA kóddal ellátott munkalapot

Az Ön számára nehézséget okoz az üres munkalapok ellenőrzése és egyesével történő eltávolítása, de a következő VBA-kóddal egyszerűen törölheti az összes üres munkalapot.

1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablakba.

VBA: törölje az összes üres munkalapot

Sub DeleteBlankWorksheets () '20130830-as frissítés W Ws munkalapként hibaként folytatja a következő alkalmazás folytatását. ScreenUpdating = Hamis alkalmazás. DispleAlerts = Hamis minden egyes alkalmazáshoz tartozó W.Worksheets If Application.WorksheetFunction.CountA (Ws.UsedRange) = 0 Ezután Ws.Delete vége Ha a Next Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub

3. Ezután nyomja meg a gombot F5 gombot, és az összes üres munkalap egyszerre törlődik.

nyíl kék jobb buborék Törölje az összes üres munkalapot a Kutools for Excel segítségével

Ha nem ismeri a VBA kódot, bemutathatok egy egyszerű eszközt - Kutools az Excel számára, Annak Üres munkalapok törlése funkcióval egyetlen kattintással eltávolíthatja az összes üres munkalapot.

Kutools az Excel számára több mint 300 praktikus Excel eszközt tartalmaz. 30 nap alatt szabadon kipróbálható korlátozás nélkül. Szerezd meg most.

A Kutools for Excel telepítése után kövesse az alábbi lépéseket:

1. Kattints Vállalkozás > Munkalap eszközök > Üres munkalapok törlése, lásd a képernyőképet:

doc-delete-blank-sheet1

2. És megjelenik egy felszólító mező, amely emlékeztet arra, hogy törölni szeretné-e az összes üres munkalapot, vagy sem, lásd a képernyőképet:

doc-delete-blank-sheet2

3. Ezután kattintson Igen, és az üres munkalapokat sikeresen törölte. Képernyőképek megtekintése:

doc-delete-blank-sheet3
-1
doc-delete-blank-sheet4

Ha többet szeretne tudni erről a funkcióról, kattintson a gombra Üres munkalapok törlése.

Kapcsolódó cikk:

Hogyan lehet törölni a rejtett munkalapokat az Excelben?

A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup  |   Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár   |  Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása   |  E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet:  12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás

Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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