Jak odstranit všechny listy kromě zadaného / aktuálního v aplikaci Excel?

Chcete-li odstranit všechny listy v sešitu aplikace Excel kromě zadaného jednoho nebo aktuálního aktivního listu, můžete s tím vypořádat níže uvedené metody.

Odstraňte všechny listy kromě zadaného pomocí kódu VBA
Jedním kliknutím odstraníte všechny listy kromě aktuálního aktivního s Kutools pro Excel

Odstraňte všechny listy kromě zadaného pomocí kódu VBA

S níže uvedeným kódem VBA můžete odstranit celý list v sešitu kromě konkrétního v aplikaci Excel.

1. lis Další + F11 současně otevřete Aplikace Microsoft Visual Basic okno.

2. cvaknutí Vložit > Modul, poté zkopírujte a vložte pod kód VBA do okna modulu.

Kód VBA: Odstraňte všechny listy kromě zadaných

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

Poznámky:

1. "Sheet1"A"Sheet2„Jsou listy, které chcete zachovat v aktuálním sešitu. Můžete je změnit podle svých potřeb.

2. Chcete-li odstranit všechny, ale ponechat více listů, přidejte kód A xWs.Name <> "název vašeho listu" před Pak slovo v šestém řádku kódu. Jako:

Pokud xWs.Name <> "List1" A xWs.Name <> "List2" A xWs.Name <> "název vašeho listu" Pak

3. Pokud si chcete ponechat pouze jeden list a ze sešitu odstranit všechny, odeberte všechny A podmínka v kódu. Například pro zachování listu1 v aktuálním sešitu musíte změnit kód šestého řádku na: Pokud xWs.Name <> "List1", pak

Odstraňte všechny listy kromě aktuálního aktivního pomocí Kutools pro Excel (pouze jedno kliknutí)

YJediným kliknutím můžete snadno odstranit všechny listy kromě aktuálního aktivního listu Odstranit všechny neaktivní listy užitečnost Kutools pro Excel.

1. cvaknutí Kutools Plus > Pracovní list > Odstranit všechny neaktivní listy. 

3. Poté se zobrazí dialogové okno. Pokud se rozhodnete odstranit všechny listy kromě aktivního, klikněte na OK tlačítko, jinak klikněte na Zrušit .

Poté jsou odstraněny všechny listy kromě aktuálního aktivního v sešitu.

Přidejte text uprostřed vybraných buněk pomocí Kutools pro Excel