Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako izbrisati vse liste, razen določene / trenutne v Excelu?

Če želite izbrisati vse liste v delovnem zvezku Excel, razen v določenem ali trenutnem aktivnem listu, lahko to obravnavate kot spodaj prikazane metode.

Izbrišite vse liste, razen tistih s kodo VBA

En klik, da izbrišete vse liste, razen trenutne aktivne s Kutools za Excel


Hitro izbrišite vse delovne liste, razen aktivne v trenutni delovni zvezki:

O Izbriši vse neaktivne preglednice uporabnost Kutools za Excel vam omogoča enostavno brisanje celotnega delovnega lista v trenutni delovni zvezki, razen aktivne. Prikaz slike:

Kutools za Excel vključuje več kot 300 priročno orodje Excel. Prosti brez omejitev v 60 dneh. Prenesite brezplačno preskusno različico zdaj


Izbrišite vse liste, razen tistih s kodo VBA


Z nižjo kodo VBA lahko vse liste v delovni zvezki izbrišete, razen v Excelu.

1. Pritisnite druga + F11 tipke hkrati odpreti Microsoft Visual Basic Application okno.

2. klik Vstavi > Moduli, nato pa kopirajte in prilepite pod kodo VBA v okno Modul.

VBA koda: 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 obdržati v trenutni delovni zvezki. Lahko jih spremenite glede na vaše potrebe.

2. Če želite vse izbrisati, vendar obdržati več listov, dodajte kodo In xWs.Name <> "ime vašega lista" pred Potem besedo v šesti vrstici kode. Kot naprimer:

Če je xWs.Name <> "Sheet1" in xWs.Name <> "Sheet2" In xWs.Name <> "ime vašega lista" Potem

3. Če želite samo en list shraniti in izbrisati vse iz delovnega zvezka, odstranite vse in pogoj v kodi. Na primer, če želite shraniti list 1 v trenutni delovni zvezki, morate kodo šeste kode spremeniti na: Če je xWs.Name <> "Sheet1" potem


Izbrišite vse liste, razen trenutne aktivne, s Kutools za Excel (samo za en klik)

You lahko zlahka odstranite vse liste, razen trenutnega aktivnega lista s samo enim klikom Izbriši vse neaktivne preglednice uporabnost Kutools za Excel.

Kutools za Excel : z več kot 300 priročnimi dodatki Excel, brezplačno lahko poskusite brez omejitev v 60 dneh.

1. klik Podjetje > Delovni list > Izbriši vse neaktivne preglednice. Prikaz slike:

3. Potem se pojavi pogovorno okno, če določite, da izbrišete vse liste, razen aktivne, kliknite na OK gumb, sicer kliknite Prekliči gumb.

Nato se zbrišejo vsi listi, razen trenutnega aktivnega v vašem delovnem zvezku.

Nasvet.Če želite imeti brezplačen preskus tega pripomočka, pojdite na brezplačno prenesete programsko opremo najprej in pojdite, da uporabite operacijo v skladu z zgornjimi koraki.


Dodajte besedilo sredi izbranih celic s programom Kutools for Excel

Kutools za Excel vključuje več kot 300 priročno orodje Excel. Prosti brez omejitev v 60 dneh. Prenesite brezplačen preskus zdaj!


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.