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

Kako izbrisati vse prazne delovne liste v Excelu?

Če imate delovni zvezek z veliko delovnimi listi, je medtem v njem nekaj praznih delovnih listov. Zdaj želite izbrisati prazne delovne liste, da datoteko shranite ali arhivirate. Kako bi lahko iskali prazne liste z več delovnih listov in jih samodejno izbrisali?

Izbrišite vse prazne delovne liste s kodo VBA

Z Kutools za Excel izbrišite vse prazne delovne liste

Kartica Office Omogočite urejanje in brskanje z zavihki v storitvi Office ter olajšajte svoje delo ...
Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%
  • Ponovno uporabi vse: Med priljubljene dodajte najbolj uporabljene ali zapletene formule, grafikone in kar koli drugega ter jih v prihodnosti hitro ponovno uporabite.
  • Več kot 20 besedilnih funkcij: Izvleček številke iz besedilnega niza; Izvleči ali odstrani del besedil; Pretvorite številke in valute v angleške besede.
  • Združi orodja: Več delovnih zvezkov in listov v eno; Združi več celic / vrstic / stolpcev brez izgube podatkov; Združi podvojene vrstice in vsoto.
  • Razdeljena orodja: Razdeli podatke na več listov na podlagi vrednosti; En delovni zvezek v več datotek Excel, PDF ali CSV; En stolpec na več stolpcev.
  • Prilepi preskoči Skrite / filtrirane vrstice; Štetje in vsota glede na Barva ozadja; V večjem obsegu pošiljajte osebna e-poštna sporočila več prejemnikom.
  • Super filter: Ustvarite napredne filtrirne sheme in uporabite za vse liste; Razvrščanje po tednih, dnevih, pogostosti in še več; filter s krepkim tiskom, formule, komentar ...
  • Več kot 300 zmogljivih funkcij; Deluje z Office 2007-2021 in 365; Podpira vse jezike; Enostavna uvedba v vašem podjetju ali organizaciji.

puščica modri desni mehurček Izbrišite vse prazne delovne liste s kodo VBA

Težavno je, da preverite prazne delovne liste in jih odstranite enega za drugim, vendar lahko z naslednjo kodo VBA enostavno izbrišete vse prazne delovne liste hkrati.

1. Držite tipko ALT + F11 in odpre tipko Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v okno modula.

VBA: izbriši vse prazne delovne liste

Sub DeleteBlankWorksheets () 'Posodobi 20130830 Dim Ws as Worksheet On Error Resume Next Application.ScreenUpdating = False Application.DisplayAlerts = False Za vsakega Ws v aplikaciji. Worksheets If Application.WorksheetFunction.CountA (Ws.UsedRange) = 0 Nato Ws.Delete End If Next Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub

3. Nato pritisnite F5 in vsi prazni delovni listi se naenkrat izbrišejo.


puščica modri desni mehurček Z Kutools za Excel izbrišite vse prazne delovne liste

Če kode VBA ne poznate, vam lahko predstavim enostavno orodje - Kutools za Excel, Z njegovim Izbrišite prazne delovne liste funkcijo, lahko z enim klikom odstranite vse prazne delovne liste.

Kutools za Excel vključuje več kot 300 priročnih orodij Excel. Brezplačno poskusite brez omejitev v 30 dneh. Get it now.

Ko namestite Kutools za Excel, naredite naslednje:

1. Kliknite Podjetje > Orodja za delovne liste > Izbrišite prazne delovne liste, glej posnetek zaslona:

doc-delete-blank-listi1

2. In pojavilo se bo pozivno polje, ki vas bo opozorilo, ali želite izbrisati vse prazne delovne liste ali ne, glejte sliko zaslona:

doc-delete-blank-listi2

3. Nato kliknite Dain prazni delovni listi so bili uspešno izbrisani. Oglejte si posnetke zaslona:

doc-delete-blank-listi3
-1
doc-delete-blank-listi4

Če želite izvedeti več o tej funkciji, kliknite Izbrišite prazne delovne liste.


Povezani članek:

Kako izbrisati skrite delovne liste v Excelu?


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (3)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Javni član 'WorksheetFunction' za tip 'WorkbookClass' ni najden.
uporabljam Interop.Excel
Ta komentar je moderator na spletnem mestu minimiziral
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.

Makro es:

Sub Buscar_Hojas_Vacías_y_Eliminarlas2()

Dim Nhojas kot celo število
Dim i kot celo število

On Error Resume Next
Application.ScreenUpdating = Napačno
Application.DisplayAlerts = False

Nhojas = Sheets.Count

Za i = 1 Nhojasu

Če je WorksheetFunction.CountA(Sheets(i).UsedRange) = 0 In Sheets(i).Shapes.Count = 0, potem

Listi(i).Izbriši

Else
'Nada
Konec Če
Naslednja i

Ob napaki Pojdi na 0
Application.ScreenUpdating = Res
Application.DisplayAlerts = True

End Sub

Gracias, espero sus commentarios.
Ta komentar je moderator na spletnem mestu minimiziral
Ne morem govoriti vašega jezika, vendar vidim napako v vaši kodi.
Težava je >> Nhojas = Sheets.Count
Potem ste odvisni od Nhojas, vendar ko izbrišete list, ne zmanjšate Nhojas za 1

Torej samo dodajte to vrstico svoji kodi za "Sheets(i).Delete" in pred "Else":
Nhojas = Nhojas - 1

Donirajte :)

Kljub temu ste opravili dobro delo, vendar morate svojo kodo zagnati na suho, ko poskušate odpraviti napake v kodi.
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL