Skip i'r prif gynnwys

Sut i dynnu dalennau gwag o lyfr gwaith

Gan dybio bod gennych lyfr gwaith mawr gyda thaflenni lluosog, ond mae rhai taflenni gwag heb unrhyw gynnwys yn y llyfr gwaith hwn. Er mwyn gwneud y llyfr gwaith yn fwy proffesiynol a ffurfiol, rydych chi am dynnu'r taflenni gwag hyn o'r llyfr gwaith. Yn lle tynnu'r cynfasau gwag fesul un, rwy'n cyflwyno'r dulliau i gael gwared ar yr holl daflenni gwag yn gyflym.

Tynnwch daflenni gwag gan VBA

Tynnwch ddalennau gwag gan Kutools ar gyfer Excel syniad da3


swigen dde glas saeth Tynnwch daflenni gwag gan VBA

Yma, rwy'n cyflwyno VBA i'ch helpu chi i gael gwared ar yr holl daflenni gwag yn gyflym o lyfr gwaith agored.

1. Gwasgwch Alt + F11 allweddi i alluogi Microsoft Visual ar gyfer Cymwysiadau Sylfaenol ffenestr.

2. A chlicio Mewnosod > Modiwlau, pastiwch islaw cod VBA i'r popped newydd Modiwlau ffenestr.

VBA: Tynnwch daflenni gwag.

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. A gwasgwch F5 botwm allweddol neu Run i weithredu'r VBA, ac mae deialog yn ymddangos i'ch atgoffa p'un ai i dynnu dalennau gwag ai peidio, cliciwch Ydy i fynd ymlaen i dynnu, Na i ganslo'r VBA hwn.

doc tynnu dalennau gwag 1

4. Ar ôl clicio Ydy, mae deialog yn galw allan i ddweud wrthych nifer y taflenni sydd wedi'u tynnu, cliciwch OK i'w gau, ac mae'r holl gynfasau gwag wedi'u tynnu ar hyn o bryd.

doc tynnu dalennau gwag 2


swigen dde glas saeth Tynnwch ddalennau gwag gan Kutools ar gyfer Excel

Ar gyfer rhai dwylo gwyrdd Excel, mae'r VBA yn ddull eithaf anodd ei weithredu, ond gyda Kutools ar gyfer Excel'S Dileu Taflenni Gwaith Gwag swyddogaeth, gallwch chi dynnu pob dalen wag yn gyflym o lyfr gwaith gyda thri chlic llygoden!

Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. 

Ar ôl gosod am ddim Kutools ar gyfer Excel, gwnewch fel isod:

1. Galluogi'r llyfr gwaith rydych chi am gael gwared ar ei daflenni gwag, a chlicio Kutools Byd Gwaith > Taflen Waith > Dileu Taflenni Gwaith Gwag. Gweler y screenshot:

doc tynnu dalennau gwag 3

 


Erthyglau Perthynas:


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 Gorau12 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 (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations