Kako izbrisati vse liste razen določenega / trenutnega v Excelu?
Za brisanje vseh listov v Excelovem delovnem zvezku, razen določenega enega ali trenutnega aktivnega lista, lahko to storite na spodnji način.
Izbrišite vse liste, razen določenega, s kodo VBA
Z enim klikom izbrišite vse liste, razen trenutno aktivnega, s programom Kutools za Excel
Izbrišite vse liste, razen določenega, s kodo VBA
S spodnjo kodo VBA lahko v delovnem zvezku izbrišete ves list, razen določenega v Excelu.
1. Pritisnite druga + F11 tipke hkrati, da odprete Aplikacija Microsoft Visual Basic okno.
2. klik Vstavi > Moduli, nato kopirajte in prilepite spodnjo kodo VBA v okno modula.
Koda VBA: izbrišite vse liste, razen določenih
Sub DeleteSheets1()
Dim xWs As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> "Sheet1" And xWs.Name <> "Sheet2" Then
xWs.Delete
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Opombe:
1. "Sheet1"In"Sheet2"So listi, ki jih želite shraniti v trenutni delovni zvezek. Lahko jih spremenite glede na vaše potrebe.
2. Če želite izbrisati vse liste, vendar obdržati več listov, dodajte kodo In xWs.Name <> "ime vašega lista" pred Potem beseda v šesti vrstici kode. Kot naprimer:
Če xWs.Name <> "Sheet1" In xWs.Name <> "Sheet2" In xWs.Name <> "ime vašega lista" Potem
3. Če želite obdržati en list in vse izbrisati iz delovnega zvezka, odstranite vse in stanje v kodi. Če želite na primer voditi list1 v trenutnem delovnem zvezku, morate kodo šeste vrstice spremeniti v: Če xWs.Name <> "Sheet1" Potem
Izbrišite vse liste, razen trenutno aktivnega, s programom Kutools for Excel (samo en klik)
YZ enim klikom lahko enostavno odstranite vse liste razen trenutnega aktivnega lista Izbriši vse neaktivne liste uporabnost Kutools za Excel.
Pred vložitvijo vloge Kutools za ExcelProsim najprej ga prenesite in namestite.
1. klik Kutools Plus > Delovni list > Izbriši vse neaktivne liste.
3. Potem se prikaže pogovorno okno, če želite odstraniti vse liste razen aktivnega, kliknite OK v nasprotnem primeru kliknite Prekliči gumb.
Nato se izbrišejo vsi listi, razen trenutno aktivnega v vašem delovnem zvezku.
Če želite imeti brezplačno (30-dnevno) preskusno različico tega pripomočka, kliknite, če ga želite prenestiin nato nadaljujte z uporabo postopka v skladu z zgornjimi koraki.
V sredino izbranih celic dodajte besedilo s programom Kutools za Excel
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!