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 y taflenni gwag erbyn Kutools for Excel 
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 Sub3. 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 Do i fynd ymlaen i dynnu, Na i ganslo'r VBA hwn.
4. Ar ôl clicio Do, 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.
Tynnwch y taflenni gwag erbyn Kutools for Excel
Ar gyfer rhai dwylo gwyrdd Excel, mae'r VBA yn ddull eithaf anodd ei weithredu, ond gyda Kutools for Excel'S Dileu Taflenni Gwaith Gwag swyddogaeth, gallwch chi dynnu pob dalen wag yn gyflym o lyfr gwaith gyda thri chlic llygoden!
| Kutools for Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. |
Ar ôl gosod am ddim Kutools for Excel, gwnewch fel y nodir 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:
Erthyglau Perthynas:
- Sut i gyfrif a thynnu dyblygu o restr yn Excel?
- Sut i ddileu llinyn ar ôl y nawfed cymeriad yn Excel?
- Sut i dynnu testun o fewn cromfachau / cromfachau yn Excel?
- Sut i gael gwared ar siapiau llinell yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for 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...
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!
