Hur man tar bort tomma ark från arbetsböcker
Antag att du har en stor arbetsbok med flera ark, men det finns några tomma ark utan något innehåll i den här arbetsboken. För att göra arbetsboken mer professionell och formell vill du ta bort dessa tomma ark från arbetsboken. Istället för att ta bort de tomma arken en efter en introducerar jag metoderna för att snabbt ta bort alla tomma ark.
Ta bort tomma ark från Kutools för Excel
Ta bort tomma ark från VBA
Här introducerar jag en VBA som hjälper dig att snabbt ta bort alla tomma ark från en öppnad arbetsbok.
1. Tryck Alt + F11 för att aktivera Microsoft Visual för grundläggande applikationer fönster.
2. Och klicka Insert > Modulerna, klistra in under VBA-koden till den nya poppade ut Modulerna fönster.
VBA: Ta bort tomma ark.
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. Och tryck F5 eller Knappen för att köra VBA, och en dialog dyker upp för att påminna dig om du ska ta bort tomma ark, klicka på Ja att fortsätta ta bort, Nej för att avbryta denna VBA.
4. Efter att ha klickat Ja, en dialogruta dyker upp för att berätta antalet borttagna ark, klicka på OK för att stänga den, och alla tomma ark har tagits bort just nu.
Ta bort tomma ark från Kutools för Excel
För vissa Excel-gröna händer är VBA en något svår metod att utföra, men med Kutools för ExcelÄr Ta bort tomma kalkylblad funktion, kan du snabbt ta bort alla tomma ark från en arbetsbok med tre musklick!
Kutools för Excel, med mer än 300 praktiska funktioner, gör dina jobb enklare. |
Efter gratis installation Kutools för Excel, gör så här:
1. Aktivera arbetsboken du vill ta bort de tomma arken och klicka på Kutools Plus > Arbetsblad > Ta bort tomma kalkylblad. Se skärmdump:
Relativa artiklar:
- Hur räknar man och tar bort dubbletter från en lista i Excel?
- Hur tar jag bort sträng efter n: a tecken i Excel?
- Hur tar jag bort text inom parentes / parentes i Excel?
- Hur tar jag bort linjeformar i Excel?
Bästa kontorsproduktivitetsverktyg
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...
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!