Gå til hovedindhold

Hvordan slettes alle de tomme regneark i Excel?

Forfatter: Xiaoyang Sidst ændret: 2013-10-25

Hvis du har en projektmappe, der har mange regneark, er der i mellemtiden nogle tomme regneark i den. Og nu vil du slette de tomme regneark for at gemme eller arkivere filen. Hvordan kunne du søge på de tomme ark fra flere regneark og slette dem automatisk?

Slet alle tomme regneark med VBA-kode

Slet alle tomme regneark med Kutools til Excel

pil blå højre boble Slet alle tomme regneark med VBA-kode

Det er besværligt for dig at kontrollere de tomme regneark og fjerne dem en efter en, men med den følgende VBA-kode kan du nemt slette alle tomme regneark på én gang.

1. Hold nede ALT + F11 tasterne, og det åbner Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i modulvinduet.

VBA: slet alle tomme regneark

Sub DeleteBlankWorksheets () 'Opdatering 20130830 Dim Ws som regneark ved fejl Genoptag næste applikation.ScreenUpdating = Falsk applikation.DisplayAlerts = Falsk for hver Ws i applikation. Arbejdsark Hvis Application.WorksheetFunction.CountA (Ws.UsedRange) = 0 Derefter Ws.Slet Slut slut If Next Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub

3. Tryk derefter på F5 nøgle, og alle de tomme regneark slettes på én gang.

pil blå højre boble Slet alle tomme regneark med Kutools til Excel

Hvis du ikke er bekendt med VBA-koden, kan jeg introducere dig et let værktøj- Kutools til Excel, Med Slet tomme regneark funktion, kan du fjerne alle tomme regneark med et enkelt klik.

Kutools til Excel indeholder mere end 300 praktiske Excel-værktøjer. Gratis at prøve uden begrænsning på 30 dage. Få det nu.

Når du har installeret Kutools til Excel, skal du gøre følgende:

1. Klik Enterprise > Arbejdsarkværktøjer > Slet tomme regneark, se skærmbillede:

doc-slet-blanke ark1

2. Og der vises en hurtigboks for at minde dig om, hvorvidt du vil slette alle tomme regneark eller ej, se skærmbillede:

doc-slet-blanke ark2

3. Klik derefter på Ja, og de tomme regneark er blevet slettet. Se skærmbilleder:

doc-slet-blanke ark3
-1
doc-slet-blanke ark4

Hvis du vil vide mere om denne funktion, skal du klikke Slet tomme regneark.

Relateret artikel:

Hvordan slettes skjulte regneark i Excel?

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier  |   Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar   |  Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler   |  Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt:  12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

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

Beskrivelse

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!
Comments (3)
No ratings yet. Be the first to rate!
Salvador Sánchez
Salvador Sánchez
This comment was minimized by the moderator on the site
Estimado, no se si me pueda ayudar. Tengo esta macro precisamente para eliminar hojas vacías, pero no logro hacer que funcione al correrla una sola vez, la tengo que ejecutar dos veces para que borre todas las hojas vacías. Que esta fallando para que haga la tarea de borrar todas las hojas en una sola corrida.

La macro es:

Sub Buscar_Hojas_Vacías_y_Eliminarlas2()

Dim Nhojas As Integer
Dim i As Integer

On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Nhojas = Sheets.Count

For i = 1 To Nhojas

If WorksheetFunction.CountA(Sheets(i).UsedRange) = 0 And Sheets(i).Shapes.Count = 0 Then

Sheets(i).Delete

Else
' Nada
End If
Next i

On Error GoTo 0
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

Gracias, espero sus comentarios.
Reply
0
0
SD
SD     Salvador Sánchez
This comment was minimized by the moderator on the site
I cannot speak your language but I see a flaw in your code.
The problem is >> Nhojas = Sheets.Count
And then you depend on Nhojas but when you delete a sheet you do not reduce Nhojas by 1

So just add this line to your code after "Sheets(i).Delete" and before "Else":
Nhojas = Nhojas - 1

Done :)

You have done a good job though, but you need to dry run your code when you try and debug the code.
Reply
0
0
Ems
Ems
This comment was minimized by the moderator on the site
Public member 'WorksheetFunction' on type 'WorkbookClass' not found.
i'm using Interop.Excel
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations