Ugrás a tartalomra

Hogyan lehet eltávolítani az üres lapokat a munkafüzetekből

Tegyük fel, hogy van egy nagy munkafüzete, több lapdal, de van néhány üres lap, tartalom nélkül ebben a munkafüzetben. A munkafüzet szakszerűbbé és formálisabbá tételéhez ezeket az üres lapokat el kell távolítania a munkafüzetből. Ahelyett, hogy egyesével eltávolítanám az üres lapokat, bevezetem az összes üres lap gyors eltávolításának módszereit.

Távolítsa el az üres lapokat a VBA segítségével

Távolítsa el az üres lapokat a Kutools for Excel segítségével jó ötlet3


nyíl kék jobb buborék Távolítsa el az üres lapokat a VBA segítségével

Itt bemutatok egy VBA-t, amely segít az összes üres lap gyors eltávolításában a megnyitott munkafüzetből.

1. nyomja meg Alt + F11 gombokat az engedélyezéshez Microsoft Visual az alapvető alkalmazásokhoz ablak.

2. És kattintson betétlap > Modulok, illessze be a VBA kód alá az új megjelenőbe Modulok ablak.

VBA: Távolítsa el az üres lapokat.

Sub DeletEmptySheets()
'UpdatebyKutoolsforExcel20151130
    Dim xWs As Worksheet
    Dim xAlert As Boolean
    Dim xCount As Long
    xAlert = Application.DisplayAlerts
    Application.DisplayAlerts = False
    If MsgBox("Are you sure to remove all empty sheets?", vbYesNo, "Kutools for Excel") = vbNo Then Exit Sub
    For Each xWs In ActiveWorkbook.Worksheets
        If (Application.CountA(xWs.Cells) = 0) And _
           (xWs.Shapes.Count = 0) Then
            xWs.Delete
            xCount = xCount + 1
        End If
    Next
    MsgBox "You have removed " & xCount & " empty sheet(s)", , "Kutools for Excel"
    Application.DisplayAlerts = xAlert
End Sub

3. És nyomja meg F5 gombot vagy a Futtatás gombot a VBA végrehajtásához, és megjelenik egy párbeszédpanel, amely emlékezteti Önt arra, hogy törölje-e az üres lapokat, kattintson a gombra Igen folytatni, Nem hogy törölje ezt a VBA-t.

doc az üres lapok eltávolítása 1

4. Kattintás után Igen, megjelenik egy párbeszédpanel, amely megadja az eltávolított lapok számát, kattintson a gombra OK hogy bezárja, és az összes üres lapot ebben a pillanatban eltávolították.

doc az üres lapok eltávolítása 2


nyíl kék jobb buborék Távolítsa el az üres lapokat a Kutools for Excel segítségével

Néhány Excel zöld kéz esetén a VBA végrehajtása kissé nehéz módszer, de Kutools az Excel számára'S Üres munkalapok törlése funkcióval három egérkattintással gyorsan eltávolíthatja az összes üres lapot a munkafüzetből!

Kutools az Excel számára, Több mint 300 a praktikus funkciók megkönnyítik a munkáját. 

Után ingyenes telepítés Kutools for Excel, kérjük, tegye a következőket:

1. Engedélyezze a munkafüzetet, amelyről el szeretné távolítani az üres lapokat, majd kattintson a gombra Kutools Plus > Munkalap > Üres munkalapok törlése. Lásd a képernyőképet:

doc az üres lapok eltávolítása 3

 


Relatív cikkek:


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

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

kte lap 201905


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 (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations