Skip i'r prif gynnwys

Sut i ddileu'r holl daflenni gwaith gwag yn Excel?

Os oes gennych lyfr gwaith sydd â llawer o daflenni gwaith, yn y cyfamser, mae rhai taflenni gwaith gwag ynddo. Ac yn awr rydych chi am ddileu'r taflenni gwaith gwag i gadw neu archifo'r ffeil. Sut allech chi chwilio am y taflenni gwag o daflenni gwaith lluosog a'u dileu yn awtomatig?

Dileu'r holl daflenni gwaith gwag gyda chod VBA

Dileu pob taflen waith wag gyda Kutools ar gyfer Excel

swigen dde glas saeth Dileu'r holl daflenni gwaith gwag gyda chod VBA

Mae'n drafferthus i chi wirio am y taflenni gwaith gwag a'u tynnu fesul un, ond gyda'r cod VBA canlynol, gallwch chi ddileu'r holl daflenni gwaith gwag yn hawdd ar unwaith.

1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn ffenestr y Modiwl.

VBA: dilëwch yr holl daflenni gwaith gwag

Is-DeleteBlankWorksheets () 'Diweddariad 20130830 Dim Ws Fel Taflen Waith Ar Wall Ail-ddechrau Cais Nesaf.ScreenUpdating = Cais Ffug.DisplayAlerts = Anghywir Ar Gyfer Pob Ws Yn y Cais.Worksheets Os yw Application.WorksheetFunction.CountA (Ws.UsedRange) = 0 Yna WvesUs.D Os yw'r Cais Nesaf.ScreenUpdating = Gwir Application.DisplayAlerts = Is-ddiwedd Gwir

3. Yna pwyswch F5 allwedd, a dilëir yr holl daflenni gwaith gwag ar unwaith.

swigen dde glas saeth Dileu pob taflen waith wag gyda Kutools ar gyfer Excel

Os nad ydych yn gyfarwydd â'r cod VBA, gallaf gyflwyno teclyn hawdd i chi- Kutools ar gyfer Excel, Gyda'i Dileu Taflenni Gwaith Gwag swyddogaeth, gallwch chi gael gwared ar yr holl daflenni gwaith gwag gydag un clic.

Kutools ar gyfer Excel yn cynnwys mwy na 300 o offer Excel defnyddiol. Am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Get it Now.

Pan fyddwch wedi gosod Kutools ar gyfer Excel, gwnewch fel y camau canlynol:

1. Cliciwch Menter > Offer Taflen Waith > Dileu Taflenni Gwaith Gwag, gweler y screenshot:

doc-delete-blank-sheet1

2. A bydd blwch prydlon yn ymddangos i'ch atgoffa a ydych chi am ddileu'r holl daflenni gwaith gwag ai peidio, gweler y screenshot:

doc-delete-blank-sheet2

3. Yna cliciwch Ydy, ac mae'r taflenni gwaith gwag wedi'u dileu yn llwyddiannus. Gweler sgrinluniau:

doc-delete-blank-sheet3
-1
doc-delete-blank-sheet4

Os ydych chi eisiau gwybod mwy am y nodwedd hon, cliciwch Dileu Taflenni Gwaith Gwag.

Erthygl gysylltiedig:

Sut i ddileu taflenni gwaith cudd yn Excel?

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog  |   VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr   |  Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd   |  Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau:  12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad

Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
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