Salt la conținutul principal

Cum să ștergeți toate foile de lucru goale din Excel?

Între timp, dacă aveți un registru de lucru care conține o mulțime de foi de lucru, există câteva foi de lucru goale. Și acum doriți să ștergeți foile de lucru goale pentru a salva sau arhiva fișierul. Cum ați putea căuta foile goale din mai multe foi de lucru și le puteți șterge automat?

Ștergeți toate foile de lucru goale cu cod VBA

Ștergeți toate foile de lucru goale cu Kutools pentru Excel

săgeată albastru dreapta balon Ștergeți toate foile de lucru goale cu cod VBA

Vă este dificil să verificați foile de lucru goale și să le eliminați una câte una, dar cu următorul cod VBA, puteți șterge cu ușurință toate foile de lucru goale simultan.

1. Țineți apăsat butonul ALT + F11 tastele și deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în fereastra Module.

VBA: ștergeți toate foile de lucru goale

Sub DeleteBlankWorksheets () 'Actualizare 20130830 Dim Ws Ca foaie de lucru la eroare Reluați următoarea Application.ScreenUpdating = Aplicație falsă.DisplayAlerts = Fals pentru fiecare W din aplicație. Dacă Next Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub

3. Apoi apăsați F5 și toate foile de lucru goale sunt șterse simultan.

săgeată albastru dreapta balon Ștergeți toate foile de lucru goale cu Kutools pentru Excel

Dacă nu sunteți familiarizați cu codul VBA, vă pot prezenta un instrument ușor - Kutools pentru Excel, Cu său Ștergeți foile de lucru goale funcție, puteți elimina toate foile de lucru goale cu un singur clic.

Kutools pentru Excel include mai mult de 300 de instrumente Excel la îndemână. Încercare gratuită fără limitări în 30 de zile. Ia-l acum.

Când ați instalat Kutools pentru Excel, urmați pașii următori:

1. Clic Afacere > Instrumente pentru foaia de lucru > Ștergeți foile de lucru goale, vezi captura de ecran:

doc-sterge-foile-albe1

2. Și o casetă de prompt va apărea pentru a vă reaminti dacă doriți să ștergeți sau nu toate foile de lucru goale, consultați captura de ecran:

doc-sterge-foile-albe2

3. Apoi apasa Da, iar foile de lucru goale au fost șterse cu succes. Vedeți capturi de ecran:

doc-sterge-foile-albe3
-1
doc-sterge-foile-albe4

Dacă doriți să aflați mai multe despre această caracteristică, faceți clic pe Ștergeți foile de lucru goale.

Articol asociat:

Cum se șterg foile de lucru ascunse în Excel?

Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii  |   VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar   |  Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule   |  Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente:  12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

Descriere

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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