Note: The other languages of the website are Google-translated. Back to English

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 daflenni 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 Oes i fynd ymlaen i dynnu, Na i ganslo'r VBA hwn.

doc tynnu dalennau gwag 1

4. Ar ôl clicio Oes, 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 daflenni 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 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:

doc tynnu dalennau gwag 3

 


Erthyglau Perthynas:



Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (0)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir