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

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'r holl daflenni gwaith gwag gyda Kutools ar gyfer Excel

Tab Swyddfa Galluogi Golygu a Pori Tabbed yn y Swyddfa, a Gwneud Eich Gwaith yn Haws Orau ...
Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%
  • Ailddefnyddio Unrhyw beth: Ychwanegwch y fformwlâu, siartiau ac unrhyw beth arall a ddefnyddir fwyaf cymhleth i'ch ffefrynnau, a'u hailddefnyddio'n gyflym yn y dyfodol.
  • Mwy nag 20 o nodweddion testun: Rhif Detholiad o Llinyn Testun; Tynnu neu Dynnu Rhan o Testunau; Trosi Rhifau ac Arian Cyfred yn Eiriau Saesneg.
  • Uno Offer: Llyfrau Gwaith a Thaflenni Lluosog yn Un; Uno Celloedd Lluosog / Rhesi / Colofnau Heb Golli Data; Uno Rhesi a Swm Dyblyg.
  • Hollti Offer: Rhannwch Ddata yn Daflenni Lluosog Yn Seiliedig ar Werth; Un Llyfr Gwaith i Ffeiliau Lluosog Excel, PDF neu CSV; Un Golofn i Golofnau Lluosog.
  • Gludo Sgipio Rhesi Cudd / Hidlo; Cyfrif A Swm yn ôl Lliw Cefndir; Anfon E-byst wedi'u Personoli at Dderbynwyr Lluosog mewn Swmp.
  • Hidlo Gwych: Creu cynlluniau hidlo datblygedig a'u cymhwyso i unrhyw daflenni; Trefnu yn yn ôl wythnos, dydd, amlder a mwy; Hidlo gan feiddgar, fformwlâu, sylw ...
  • Mwy na 300 o nodweddion pwerus; Yn gweithio gyda'r Swyddfa 2007-2019 a 365; Yn cefnogi pob iaith; Defnydd hawdd yn eich menter neu sefydliad.

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'r holl daflenni gwaith gwag 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 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 Oes, 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?


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 (3)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Aelod cyhoeddus 'WorksheetFunction' ar y math 'WorkbookClass' heb ei ganfod.
Rwy'n defnyddio Interop.Excel
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ystyr geiriau: Estimado, dim 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 borre todas las hojas vacías. Que esta fallando para que haga la tarea de borrar todas las hojas en una sola corrida.

Mae'r macro:

Is-Fwscar_Hojas_Vacías_y_Eliminarlas2()

Dim Nhojas Fel Cyfanrif
Dim i Fel Cyfanrif

Ar Ail-ddechrau Gwall Nesaf
Application.ScreenUpdating = Anghywir
Application.DisplayAlerts = Gau

Nhojas = Sheets.Count

Am i = 1 I Nhojas

Os Taflen WaithFunction.CountA(Sheets(i).UsedRange) = 0 A Sheets(i).Shapes.Count = 0 Yna

Taflenni(i).Dileu

arall
' Nada
Gorffennwch Os
Nesaf i

Ar Gwall Ewch i 0
Application.ScreenUpdating = Gwir
Application.DisplayAlerts = Gwir

Is-End

Gracias, espero sus comentarios.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ni allaf siarad eich iaith ond gwelaf ddiffyg yn eich cod.
Y broblem yw >> Nhojas = Sheets.Count
Ac yna rydych chi'n dibynnu ar Nhojas ond pan fyddwch chi'n dileu dalen nid ydych chi'n lleihau Nhojas o 1

Felly ychwanegwch y llinell hon at eich cod ar ôl "Taflenni(i).Dileu" a chyn "Arall":
Nhojas = Nhojas - 1

Cyfrannu :)

Rydych chi wedi gwneud gwaith da serch hynny, ond mae angen i chi redeg eich cod yn sych pan fyddwch chi'n ceisio dadfygio'r cod.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir