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 oraz 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.
Przed złożeniem wniosku Kutools dla programu ExcelProszę pobierz i zainstaluj najpierw.
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.
Jeśli chcesz mieć bezpłatną wersję próbną (30 dni) tego narzędzia, kliknij, aby go pobrać, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.
Dodaj tekst w środku wybranych komórek za pomocą Kutools for Excel
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
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!