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
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 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:
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?
A legjobb irodai hatékonyságnövelő eszközök
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...
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!