Jak usunąć wszystkie arkusze z wyjątkiem określonego / bieżącego w programie Excel?

Aby usunąć wszystkie arkusze ze skoroszytu programu Excel, z wyjątkiem określonego lub bieżącego aktywnego arkusza, możesz sobie z tym poradzić, jak pokazano poniżej.

Usuń wszystkie arkusze z wyjątkiem określonego z kodem VBA
Jedno kliknięcie, aby usunąć wszystkie arkusze z wyjątkiem bieżącego aktywnego z Kutools for Excel

Usuń wszystkie arkusze z wyjątkiem określonego z kodem VBA

Z poniższym kodem VBA możesz usunąć wszystkie arkusze ze skoroszytu z wyjątkiem określonego w programie Excel.

1. naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Aplikacja Microsoft Visual Basic okno.

2. kliknij wstawka > Moduł, a następnie skopiuj i wklej poniższy kod VBA do okna modułu.

Kod VBA: Usuń wszystkie arkusze z wyjątkiem określonych

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

Uwagi:

1. "Sheet1"I"Sheet2”To arkusze, które chcesz zachować w bieżącym skoroszycie. Możesz je zmieniać w zależności od potrzeb.

2. Jeśli chcesz usunąć wszystkie arkusze, ale zachować więcej, dodaj kod Oraz xWs.Name <> "nazwa twojego arkusza" przed Następnie słowo w szóstym wierszu kodu. Jak na przykład:

Jeśli xWs.Name <> "Sheet1" i xWs.Name <> "Sheet2" I xWs.Name <> "nazwa twojego arkusza" Następnie

3. Jeśli chcesz zachować tylko jeden arkusz i usunąć wszystkie ze skoroszytu, usuń wszystkie I inne… warunek w kodzie. Na przykład, aby zachować arkusz Sheet1 w bieżącym skoroszycie, musisz zmienić kod szóstej linii na: Jeśli xWs.Name <> "Sheet1" Then

Usuń wszystkie arkusze z wyjątkiem bieżącego aktywnego z Kutools for Excel (tylko jedno kliknięcie)

YMożesz łatwo usunąć wszystkie arkusze z wyjątkiem bieżącego aktywnego arkusza za pomocą jednego kliknięcia Usuń wszystkie nieaktywne arkusze użyteczność Kutools dla programu Excel.

1. kliknij Kutools Plus > Ćwiczenie > Usuń wszystkie nieaktywne arkusze. 

3. Następnie pojawi się okno dialogowe, jeśli zdecydujesz się usunąć wszystkie arkusze z wyjątkiem aktywnego, kliknij OK W przeciwnym razie kliknij przycisk Anuluj przycisk.

Następnie wszystkie arkusze są usuwane z wyjątkiem bieżącego aktywnego w skoroszycie.

Dodaj tekst w środku wybranych komórek za pomocą Kutools for Excel

---

Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

• Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
• Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
• Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
• Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
• Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
• Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
• Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
• Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
• Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.

Czytaj więcej... Darmowe pobieranie... Zakup... 

---

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

• Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
• Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
• Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!

Czytaj więcej... Darmowe pobieranie... Zakup...