Jak wyczyścić filtry ze wszystkich arkuszy w aktywnym skoroszycie w programie Excel?
Przypuśćmy, że utworzyłeś wiele filtrów w różnych arkuszach w skoroszycie programu Excel, a teraz chcesz wyczyścić wszystkie te filtry jednocześnie. Zwykle musisz przechodzić do arkusza po kolei, aby sprawdzić filtr, a następnie wyczyścić go ręcznie. Czy istnieje wygodna metoda usuwania filtrów ze wszystkich arkuszy w aktywnym skoroszycie? Wypróbuj metodę opisaną w tym artykule.
Wyczyść filtry ze wszystkich arkuszy w aktywnym skoroszycie z kodem VBA
Wyczyść filtry ze wszystkich arkuszy w aktywnym skoroszycie z kodem VBA
Uruchom poniższy skrypt VBA, aby wyczyścić filtry ze wszystkich arkuszy w aktywnym skoroszycie.
1. W skoroszycie, z którego chcesz wyczyścić filtry, naciśnij przycisk inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj i wklej poniższy skrypt VBA do okna modułu. Zobacz zrzut ekranu poniżej:
Kod VBA: Wyczyść filtry ze wszystkich arkuszy w aktywnym skoroszycie
Sub Clear_fiter()()
'Updated by Extendoffice 20210625
Dim xAF As AutoFilter
Dim xFs As Filters
Dim xLos As ListObjects
Dim xLo As ListObject
Dim xRg As Range
Dim xWs As Worksheet
Dim xIntC, xF1, xF2, xCount As Integer
Application.ScreenUpdating = False
On Error Resume Next
For Each xWs In Application.Worksheets
xWs.ShowAllData
Set xLos = xWs.ListObjects
xCount = xLos.Count
For xF1 = 1 To xCount
Set xLo = xLos.Item(xF1)
Set xRg = xLo.Range
xIntC = xRg.Columns.Count
For xF2 = 1 To xIntC
xLo.Range.AutoFilter Field:=xF2
Next
Next
Next
Application.ScreenUpdating = True
End Sub
3. wciśnij F5 klucz do uruchomienia kodu. Następnie wszystkie filtry we wszystkich arkuszach w bieżącym skoroszycie są natychmiast czyszczone.
Powiązane artykuły:
- Jak wyczyścić pamięć podręczną filtrów (stare elementy) z tabeli przestawnej w programie Excel?
- Jak wyczyścić filtry podczas otwierania, zapisywania lub zamykania skoroszytu w programie Excel?
- Jak filtrować dane na podstawie pola wyboru w programie Excel?
- Jak wypełnić serię liczb w kolumnie przefiltrowanej listy w programie 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!