Preskoči na glavno vsebino

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

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

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...

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!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Loved the code, awesome. Thanks.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations