Note: The other languages of the website are Google-translated. Back to English

 Jak zastosować ten sam filtr do wielu arkuszy w programie Excel?

Zastosowanie funkcji Filtruj do filtrowania danych w arkuszu może być dla nas łatwe, ale czasami może być konieczne przefiltrowanie wielu arkuszy, które mają wspólne formatowanie danych z tymi samymi kryteriami filtrowania. Aby odfiltrować je jeden po drugim, stracę dużo czasu, tutaj mogę przedstawić łatwy sposób rozwiązania tego problemu od razu.

Zastosuj ten sam filtr do wielu arkuszy z kodem VBA


strzałka niebieski prawy bąbelek Zastosuj ten sam filtr do wielu arkuszy z kodem VBA

Na przykład mam cztery arkusze robocze, ponieważ poniższy zrzut ekranu musi być filtrowany według tych samych kryteriów, co produkt = KTE na raz.

doc filtruj wiele arkuszy 1

Nie ma bezpośredniego sposobu filtrowania danych w wielu arkuszach w programie Excel, ale poniższy kod VBA może pomóc w ukończeniu tej pracy, wykonaj następujące czynności:

1. Przytrzymaj ALT + F11 klucze, a następnie otwiera Microsoft Visual Basic for Applications okno.

2, Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.

Kod VBA: Zastosuj ten sam filtr do wielu arkuszy:

Sub apply_autofilter_across_worksheets()
'Updateby Extendoffice
    Dim xWs As Worksheet
    On Error Resume Next
    For Each xWs In Worksheets
        xWs.Range("A1").AutoFilter 1, "=KTE"
    Next
End Sub

3. A następnie naciśnij F5 klucz do uruchomienia tego kodu, wszystkie produkty KTE zostały odfiltrowane we wszystkich arkuszach jednocześnie, patrz zrzut ekranu:

doc filtruj wiele arkuszy 2

Uwagi: W powyższym kodzie, w tym xWs.Range („A1”). AutoFilter 1, „= KTE” scenariusz, A1 i = KTE wskazuje kolumnę i kryteria, na podstawie których chcesz filtrować, liczba 1 to numer kolumny, na podstawie której przefiltrowałeś, możesz je zmienić według potrzeb. Na przykład, jeśli chcesz filtrować kolejność większą niż 50, wystarczy zmodyfikować ten skrypt w następujący sposób: xWs.Range („B1”). AutoFilter 2, „> 50”.


Filtruj dane według wielu kryteriów lub innych określonych warunków, takich jak długość tekstu, wielkość liter itp.

Kutools dla programu Excel'S Super filtr Funkcja to potężne narzędzie, możesz zastosować tę funkcję, aby zakończyć następujące operacje:

  • Filtruj dane według wielu kryteriów; Filtruj dane według długości tekstu;
  • Filtruj dane według wielkich / małych liter; Filtruj datę według roku / miesiąca / dnia / tygodnia / kwartału

superfiltr dokumentów1

Kutools dla programu Excel: z ponad 300 poręcznymi dodatkami do programu Excel, które można wypróbować bez ograniczeń w ciągu 30 dni. Pobierz i bezpłatną wersję próbną teraz!


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.
karta kte 201905

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!
officetab dół
Sortuj komentarze według
Komentarze (41)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
jak zastosować tę formułę filtra: do szeregu arkuszy? Mam skoroszyt, który zawiera dane na pierwszych 5 arkuszach, a skoroszyt ma 200 arkuszy. Potrzebuję tylko filtra, który należy zastosować do arkusza 6-200. Sub apply_autofilter_across_worksheets() 'Aktualizuj do Extendoffice 20160623 Dim xWs As Worksheet On Error Resume Next dla każdego xWs w arkuszach xWs.Range("A1").AutoFilter 1, "=KTE" Next End Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
Sub apply_autofilter_across_worksheets() Dim J As integer W przypadku błędu Wznów Dalej For J = 6 to Worksheets(worksheets.count) Thisworkbook.Sheets(J).Range("A1").Autofilter 1, "=KTE" Next End Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
Kochanie, chcę filtrować więcej niż jedną wartość, użyłem tego xWs.Range("B1").AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR" i zadziałało, ale kiedy ja zwiększyć żądane wartości do >2 wystąpi błąd. tego polecenia używam xWs.Range("B1").AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR", xlOr, "=019IR", xlOr, "=311IR", xlOr , "=518ZA", xlOr, "=223AM", xlOr, "=592IR" dzięki,
Ten komentarz został zminimalizowany przez moderatora na stronie
podczas filtrowania pojedynczego słowa w wielu arkuszach nie pokazuje przefiltrowanych danych .... wszystkie dane są ukryte.proszę rozwiązać ten problem.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć,


Moje dane znajdują się w kolumnie E, a kiedy stosuję ten filtr z zakresem ("E1"), nadal filtruje kolumnę A


Jak mogę rozwiązywać problemy?
Podziękowania
Ten komentarz został zminimalizowany przez moderatora na stronie
Wystarczy wpisać numer kolumny w AutoFilter, w tym przypadku: xWs.Range("E1").AutoFilter 5,
Ten komentarz został zminimalizowany przez moderatora na stronie
DZIĘKUJĘ CI!!!!
Ten komentarz został zminimalizowany przez moderatora na stronie
USUŃ KOLUMNĘ A LOL
Ten komentarz został zminimalizowany przez moderatora na stronie
Jak wykonać, jeśli filtr znajduje się w innej kolumnie w każdym arkuszu?
Ten komentarz został zminimalizowany przez moderatora na stronie
Jak możesz użyć wyniku autofiltra, aby ustawić filtr dla każdego innego arkusza zamiast używać =(konkretna nazwa)
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy mogę użyć tego do filtrowania tabel przestawnych w wielu arkuszach, jeśli wszystkie tabele przestawne pochodzą z tego samego źródła danych i są skonfigurowane przy użyciu tych samych kryteriów?
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy istnieje możliwość filtrowania według kolorów?
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, Mahesz,
Jeśli chcesz filtrować dane według koloru, poniższe dwa artykuły mogą Ci pomóc! Proszę je zobaczyć, mam nadzieję, że może ci to pomóc!

https://www.extendoffice.com/documents/excel/912-excel-filter-by-cell-color.html
https://www.extendoffice.com/documents/excel/3383-excel-filter-by-multiple-colors.html
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć,


Jak to działa, jeśli kolumna Produkt jest prezentowana w różnych miejscach w innych arkuszach?


W arkuszu 1 jest A1 w arkuszu 2 jest w B1, aw arkuszu 3 to znowu jest A1 ?

Dzięki,
Monika
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy istnieje sposób na zmianę części „=KTE” dla każdego arkusza za pomocą filtra zawartości opartego na nazwie arkusza?
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję za kod!! czy istnieje sposób, aby zmienić „=KTE”, aby użyć wartości z listy lub listy rozwijanej?
Ten komentarz został zminimalizowany przez moderatora na stronie
HI, czy superfiltr w całym skoroszycie jest automatycznie stosowany ponownie po aktualizacji pliku?
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy możemy użyć nazwy komórki, takiej jak Product, zamiast A1 w : xWs.Range("A1").AutoFilter 1, "=KTE"
Mam inną kolumnę, a niektóre nazwiska znajdują się w innej kolumnie.
Ten komentarz został zminimalizowany przez moderatora na stronie
Użyłem filtra w każdym arkuszu. I chcę zmienić s.no z 1 2 3 seryjnie w każdym arkuszu po filtrze.


Daj mi znać, jeśli masz do tego kod vba
Ten komentarz został zminimalizowany przez moderatora na stronie
Jak korzystać z funkcji „Filtruj między” dla tych samych wielu arkuszy?

(Przykład: zakres czasu)
Ten komentarz został zminimalizowany przez moderatora na stronie
jak wyeliminować przefiltrowane wiersze?
Ten komentarz został zminimalizowany przez moderatora na stronie
Drogi,

Jak filtrować z wieloma warunkami?
Na przykład chcę filtrować w kolejności powyżej 50, ale tylko produkty KTE.

Dziękuję z góry.
Ten komentarz został zminimalizowany przez moderatora na stronie
Witaj Pedjaa,
Aby filtrować wiele arkuszy na podstawie dwóch warunków, zastosuj następujący kod:
Sub Apply_autofilter_across_worksheets()

„Aktualizuj do” Extendoffice

Dim xWs jako arkusz roboczy

On Error Resume Next

Dla każdego xWs w arkuszach roboczych

Z xWs.Range("A1")

.AutoFilter Field:=1, Criteria1:="KTE" 'Kolumna A równa się "KTE"

.AutoFilter Field:=2, Criteria1:=">500" 'Kolumna B większa niż 500

Kończyć z

Dalej

End Sub

Proszę spróbować, mam nadzieję, że może ci to pomóc!
Ten komentarz został zminimalizowany przez moderatora na stronie
nawet jeśli zamienię A1 na G1, to wstawia się filtr na kolumnie A1
Ten komentarz został zminimalizowany przez moderatora na stronie
Witaj, Tan,
Po prostu zamieniasz A1 na G1, w tym samym czasie powinieneś zmienić kolumnę nr 1 na kolumnę nr 7, jak poniżej kod:
xWs.Range("G1").AutoFilter 7, "=KTE"
Proszę spróbuj, dziękuję!
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć,
czy możliwe jest filtrowanie na podstawie nazwy kolumny, a nie liczby (ponieważ moje dane znajdują się w różnych kolumnach w różnych arkuszach roboczych)?
DziękujęManuela
Ten komentarz został zminimalizowany przez moderatora na stronie
Chcę filtrować z tym samym warunkiem "KTE", ale jeśli nie pojawi się w arkuszu, nie pokazuj żadnych danych.
Ten komentarz został zminimalizowany przez moderatora na stronie
Hi,
Chcę kryteria filtrowania na podstawie wartości komórki zamiast „KTE” czy to możliwe ???
Ten komentarz został zminimalizowany przez moderatora na stronie
Witaj Hemraj,Aby filtrować dane na podstawie określonej wartości komórki zamiast stałego tekstu, zastosuj poniższy kod: Sub apply_autofilter_across_worksheets()
„Aktualizuj do” Extendoffice
Dim xWs jako arkusz roboczy
On Error Resume Next
Dla każdego xWs w arkuszach roboczych
xWs.Range("A1").AutoFilter 1, Sheet1.Range("E2")
Dalej
End SubUwagi: Proszę zmienić Sheet1 i E2 w tym Arkusz1.Zakres("E2") skrypt do własnego arkusza i wartości komórki. Spróbuj, mam nadzieję, że może ci to pomóc!
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Skyyang,
Dzięki za cenne i Fantastyczne wsparcie, próbowałem użyć tych samych formuł, ale to nie zadziałało, co może być przyczyną. Poniżej znajduje się kod, którego używam do mojego arkusza Excela.
Sub Apply_autofilter_across_worksheets()
„Aktualizuj do” Extendoffice
Dim xWs jako arkusz roboczy
On Error Resume Next
Dla każdego xWs w arkuszach roboczych
xWs.Range("A1").AutoFilter 1, Sheet2.Range("C4")
Dalej
End Sub
Nie ma tu jeszcze żadnych komentarzy
Pokaż więcej
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL