Sådan fjernes tomme ark fra en projektmappe
Antag, at du har en stor projektmappe med flere ark, men der er nogle tomme ark uden noget indhold i denne projektmappe. For at gøre projektmappen mere professionel og formel, vil du fjerne disse tomme ark fra projektmappen. I stedet for at fjerne de tomme ark et efter et, introducerer jeg metoderne til hurtigt at fjerne alle tomme ark.
Fjern tomme ark af Kutools til Excel
Fjern tomme ark med VBA
Her introducerer jeg en VBA, der hjælper dig med hurtigt at fjerne alle tomme ark fra en åbnet projektmappe.
1. Trykke Alt + F11 taster for at aktivere Microsoft Visual til grundlæggende applikationer vindue.
2. Og klik indsatte > Moduler, indsæt under VBA-koden til den nye poppede ud Moduler vindue.
VBA: Fjern tomme 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. Og tryk på F5 tasten eller Kør-knappen for at udføre VBA'en, og en dialogboks dukker op for at minde dig om, hvorvidt du skal fjerne tomme ark, klik Ja at fortsætte med at fjerne, Ingen at annullere denne VBA.
4. Efter at have klikket Ja, vises en dialogboks for at fortælle dig antallet af fjernede ark, klik OK for at lukke den, og alle de tomme ark er blevet fjernet i øjeblikket.
Fjern tomme ark af Kutools til Excel
For nogle grønne Excel-hænder er VBA en noget svær metode at udføre, men med Kutools til Excel's Slet tomme regneark funktion, kan du hurtigt fjerne alle tomme ark fra en projektmappe med tre museklik!
Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. |
Efter gratis installation Kutools til Excel, gør venligst som nedenfor:
1. Aktiver den projektmappe, du vil fjerne dens tomme ark, og klik Kutools Plus > Arbejdsark > Slet tomme regneark. Se skærmbillede:
Relative artikler:
- Hvordan tælles og fjernes dubletter fra en liste i Excel?
- Hvordan slettes streng efter det nte tegn i Excel?
- Hvordan fjernes tekst i parentes / parentes i Excel?
- Hvordan fjernes stregformer i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!