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
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.
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:
2. In pojavilo se bo pozivno polje, ki vas bo opozorilo, ali želite izbrisati vse prazne delovne liste ali ne, glejte sliko zaslona:
3. Nato kliknite Dain prazni delovni listi so bili uspešno izbrisani. Oglejte si posnetke zaslona:
Če želite izvedeti več o tej funkciji, kliknite Izbrišite prazne delovne liste.
Povezani članek:
Kako izbrisati skrite delovne liste v Excelu?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
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!