Podczas pracy z Microsoft Excel , filtrowanie danych pozwala nam zobaczyć tylko te informacje, które chcemy.Kiedykolwiek chcemy skoncentrować się na niektórych elementach w dużym zbiorze danych lub tabel, technika ta jest przydatna.Kiedy praca jest wykonywana, musimy z powrotem te dane w naszym arkuszu kalkulacyjnym.Chociaż Excel ma już wbudowane narzędzie do tego. Ale VBA jest najbardziej wydajnym, oszczędzającym czas i bezpiecznym sposobem na przeprowadzenie dowolnego zadania w programie Excel. W tym artykule będziemy kilka przykładów, aby usunąć filtr w Excelu VBA.

Pobierz Zeszyt ćwiczeń

Możesz pobrać zeszyt ćwiczeń i ćwiczyć z nimi.

5 prostych metod usuwania filtra w Excelu VBA

Excel ma wbudowane narzędzia i funkcje do usuwania filtrów z danych.Ale z Excel VBA możemy szybko usunąć te filtry po prostu uruchamiając VBA Aby usunąć filtry z danych użyjemy następującego zbioru danych. Zbiór ten zawiera kilka identyfikatorów produktów w kolumnie B , nazwy produktów w kolumnie C oraz kraj dostawy w kolumnie D . Ponieważ chcemy zobaczyć tylko szczegóły produktu Szampon oraz Odżywka Teraz załóżmy, że musimy wyczyścić te przefiltrowane dane. Użyjemy do tego celu jakiegoś Makra VBA w Excelu Zademonstrujmy przykłady czyszczenia tych filtrów z danych za pomocą Excel VBA .

1. zastosować VBA do usunięcia wszystkich filtrów z tabeli Excela

Z Excel VBA , użytkownicy mogą łatwo użyć kodu, który działa jak menu Excela z poziomu wstążki.Aby użyć VBA kod, aby usunąć wszystkie filtry z tabeli Excela, wykonajmy kroki w dół.

KROKI:

• Po pierwsze, przejdź do Deweloper zakładka ze wstążki.
• Po drugie, z Kod kategorii, kliknij na Visual Basic aby otworzyć Edytor Visual Basic . lub naciśnij Alt + F11 aby otworzyć Edytor Visual Basic .

• Zamiast tego możesz po prostu kliknąć prawym przyciskiem myszy na swoim arkuszu i przejść do Wyświetl kod To przeniesie cię również do Edytor Visual Basic .

• Pojawi się to w Edytor Visual Basic gdzie piszemy nasze kody do tworzenia tabeli z zakresu.
• Po trzecie, kliknij na Moduł od Wkładka pasek menu rozwijanego.

• To stworzy Moduł w swoim zeszycie.
• I, skopiuj i wklej VBA kod pokazany poniżej.

VBA Kod:

 Sub Remove_Filters1() Dim lstObj As ListObject Set lstObj = Arkusz1.ListObjects(1) lstObj.AutoFiltr.ShowAllData End Sub. 

• Następnie należy uruchomić kod klikając na RubSub lub naciskając skrót klawiaturowy F5 .

• I wreszcie, postępując zgodnie z krokami, usuniesz wszystkie filtry z tabeli Excela na swoim arkuszu.

Objaśnienie kodu VBA

 Sub Remove_Filters1() 

Sub jest częścią kodu, która służy do wykonywania pracy w kodzie, ale nie zwraca żadnej wartości. Jest również znana jako podprocedura. Tak więc nazwiemy naszą procedurę Remove_Filters1() .

 Dim lstObj As ListObject 

Deklaracja zmiennej.

 Set lstObj = Sheet1.ListObjects(1) 

VBA Set pozwala nam po prostu uniknąć konieczności wpisywania w kółko przy uruchamianiu kodu zakresu, który musimy wybrać. Ustawiamy więc odwołanie do pierwszej tabeli na arkuszu.

 lstObj.AutoFilter.ShowAllData 

Ta linia kodu usunie wszystkie filtry dla całych danych.

 End Sub 

Spowoduje to zakończenie procedury.

Read More: Jak usunąć filtr w programie Excel (5 Easy & Quick Ways)

2) Wyczyść wszystkie filtry tabeli Excela w arkuszu za pomocą VBA

Przyjrzyjmy się kolejnemu przykładowi wykorzystania Excel VBA do usunięcia wszystkich filtrów tabeli Excela w arkuszu. W tym celu wykonaj poniższe kroki.

KROKI:

• Najpierw przejdź do Opracuj r zakładka ze wstążki.
• Po drugie, kliknij na Visual Basic aby otworzyć Edytor Visual Basic .
• Inny sposób na otwarcie Edytor Visual Basic to po prostu nacisnąć Alt + F11 .
• Lub kliknij prawym przyciskiem myszy na arkuszu, a następnie wybierz Wyświetl kod .
• Następnie przejdź do Wkładka i wybrać Moduł z menu rozwijanego.
• I, to otworzy okno visual basic.
• Następnie należy skopiować i wkleić Kod VBA poniżej.

VBA Kod:

 Sub Remove_Filters2() Dim lstObj As ListObject For Each lstObj In Sheet2.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj End Sub. 

• Następnie należy nacisnąć przycisk Klawisz F5 lub kliknij na Run Sub aby uruchomić kod.

• I ten kod wyczyści wszystkie filtry tabeli Excela z twojego arkusza i da wyjście jak Metoda 1 .

Objaśnienie kodu VBA

 For Each lstObj In Sheet2.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj 

Te linie kodu zapętlają wszystkie tabele w arkuszu i usuwają wszystkie filtry dla całego arkusza.

Read More: Jak filtrować Excel Pivot Table (8 skutecznych sposobów)

3. usuń filtr z kolumny za pomocą VBA w Excelu

Rzućmy okiem na inny sposób wyczyszczenia filtra z kolumny za pomocą Excel VBA. Zobaczmy procedurę do tego celu.

KROKI:

• Aby rozpocząć, kliknij Deweloper na wstążce.
• Po drugie, uruchomić Edytor Visual Basic klikając na Visual Basic .
• Alternatywnie można uzyskać dostęp do Edytor Visual Basic poprzez naciśnięcie Alt + F11 .
• Albo, kliknij prawym przyciskiem myszy na stronie na arkuszu i wybierz Wyświetl kod z menu.
• Następnie należy wybrać Moduł z listy rozwijanej pod Wkładka .
• I pojawi się okno visual basic.
• Napisz tam kod.

VBA Kod:

 Sub Remove_Filter3() Sheet1.Range("B3:D16").AutoFilter Field:=4 End Sub 

• Na koniec naciśnij przycisk Klawisz F5 aby uruchomić kod.

• Użycie tego kodu spowoduje usunięcie filtra z kolumny w twojej tabeli Excela.

Objaśnienie kodu VBA

 Sheet1.Range("B3:D16").AutoFilter Pole:=4 

Ta linia kodu określa tylko numer pola i żadnych innych parametrów.

Read More: Excel VBA do filtrowania w tej samej kolumnie według wielu kryteriów (6 przykładów)

Podobne lektury

• Excel VBA: Jak filtrować z wieloma kryteriami w tablicy (7 sposobów)
• Kod VBA do filtrowania danych według daty w Excelu (4 przykłady)
• Jak używać filtra w chronionym arkuszu Excela (z prostymi krokami)
• Filtrowanie różnych kolumn według wielu kryteriów w Excelu VBA
• Kod VBA do filtrowania danych w Excelu (8 przykładów)

4. wyczyść wszystkie filtry w aktywnym arkuszu

Teraz spójrzcie na inny Excel VBA aby wyczyścić wszystkie filtry z aktywnego arkusza. Prześledźmy kroki w dół.

KROKI:

• Aby rozpocząć, otwórz wstążkę i wybierz opcję Deweloper opcja.
• Następnie, aby uzyskać dostęp do Edytor Visual Basic , kliknij na Visual Basic .
• Naciskając Alt + F11 spowoduje również pojawienie się Edytor Visual Basic .
• Ewentualnie, kliknij prawym przyciskiem myszy na stronie arkusza i wybierz Wyświetl kod z wyświetlonego menu.
• Teraz, z Wkładka opcja rozwijana, wybierz Moduł .
• Następnie skopiuj i wklej VBA kod, który następuje.

VBA Kod:

 Public Sub RemoveFilter() If ActiveSheet.FilterMode = True Then ActiveSheet.ShowAllData End If End Sub 

• Uruchom kod naciskając przycisk F5 klucz.

• I wreszcie, będziesz mógł usunąć filtry z danych za pomocą tego VBA kod jak Metoda-1 .

Read More: Jak filtrować według listy w innym arkuszu w programie Excel (2 metody)

5. Excel VBA, aby usunąć wszystkie filtry z skoroszytu

Poznajmy jeszcze jeden r Excel VBA sposób na usunięcie wszystkich filtrów z skoroszytu. Spójrzmy więc na kroki w dół.

KROKI:

• Aby rozpocząć, otwórz wstążkę i wybierz Deweloper z menu rozwijanego.
• Następnie wybierz Visual Basic aby otworzyć Edytor Visual Basic .
• Na stronie Edytor Visual Basic można również uzyskać dostęp poprzez naciśnięcie przycisku Alt + F11 .
• Ewentualnie można kliknij prawym przyciskiem myszy na stronie arkusza i wybierz Wyświetl kod z menu podręcznego.
• Następnie należy wybrać Moduł od Wkładka menu rozwijane.
• Następnie skopiuj i wklej następujący kod VBA.

VBA Kod:

 Sub Remove_Filters_From_Workbook() Dim shtnam As Worksheet Dim lstObj As ListObject For Each shtnam In Worksheets For Each lstObj In shtnam.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj Next shtnam End Sub 

• Na koniec uruchom kod naciskając F5 na klawiaturze i widzisz wynik w swoim arkuszu.

• Ten VBA Kod wyczyści wszystkie filtry z całego skoroszytu, jak pokazano na rysunku pierwsza Metoda .

Objaśnienie kodu VBA

 For Each shtnam In Worksheets For Each lstObj In shtnam.ListObjects lstObj.AutoFilter.ShowAllData Next lstObj Next shtnam 

Pierwsza pętla służy do zapętlenia wszystkich tabel w skoroszycie. Druga pętla służy do zapętlenia wszystkich tabel w arkuszu. Następnie linia wewnątrz pętli po prostu czyści filtr z tabeli. Po tym zamykamy pętlę dwoma ostatnimi liniami.

Read More: Skrót do filtra w Excelu (3 szybkie zastosowania z przykładami)

Wniosek

Powyższe metody pomogą Ci Usuń filtr w Excelu VBA Jeśli masz jakieś pytania, sugestie lub opinie, proszę daj nam znać w sekcji komentarzy. Możesz też rzucić okiem na nasze inne artykuły w ExcelWIKI.com blog!