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 alkalmazásból

---

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.

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.

---

Távolítsa el az üres lapokat a Kutools for Excel alkalmazásból

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!

Után ingyenes telepítés Kutools for Excel, kérjük, tegye az alábbiak szerint:

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:

 

---

Relatív cikkek:

• Hogyan lehet megszámolni és eltávolítani a duplikátumokat az Excel listájáról?
• Hogyan törölhető az string az n-edik karakter után az Excelben?
• Hogyan lehet eltávolítani a zárójelben / zárójelben lévő szöveget az Excel programban?
• Hogyan lehet eltávolítani a vonalalakokat az Excelben?

---