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

 Cum se aplică același filtru mai multor coli în Excel?

Poate fi ușor pentru noi să aplicăm funcția Filtrare pentru a filtra datele într-o foaie de lucru, dar, uneori, poate fi necesar să filtrați pe mai multe foi de lucru care au formatare comună a datelor cu aceleași criterii de filtrare. Dacă le filtrați pe rând, veți pierde mult timp, aici vă pot introduce o modalitate ușoară de a rezolva imediat.

Aplicați același filtru mai multor foi de lucru cu cod VBA


săgeată albastru dreapta balon Aplicați același filtru mai multor foi de lucru cu cod VBA

De exemplu, am patru foi de lucru, deoarece următoarea captură de ecran trebuie filtrată cu aceleași criterii ca Produsul = KTE simultan.

filtru doc ​​mai multe foi 1

Nu există o modalitate directă de a filtra date în mai multe foi în Excel, dar, următorul cod VBA vă poate ajuta să finalizați această lucrare, vă rugăm să faceți următoarele:

1. Țineți apăsat butonul ALT + F11 , apoi deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.

Cod VBA: aplicați același filtru mai multor foi de lucru:

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. Și apoi apăsați F5 cheie pentru a rula acest cod, toate produsele KTE au fost filtrate în toate foile de lucru simultan, vezi captura de ecran:

filtru doc ​​mai multe foi 2

notițe: În cadrul codului de mai sus, în acest xWs.Range ("A1"). AutoFilter 1, "= KTE" scenariu, A1 și = KTE indică coloana și criteriile pe care doriți să le filtrați pe baza, numărul 1 este numărul coloanei pe care ați filtrat, puteți să le modificați în funcție de nevoile dvs. De exemplu, dacă doriți să filtrați ordinea mai mare de 50, trebuie doar să modificați acest script astfel: xWs.Range ("B1"). AutoFilter 2, "> 50".


Filtrați datele după mai multe criterii sau alte condiții specifice, cum ar fi după lungimea textului, după majuscule și minuscule etc.

Kutools pentru Excel'S Super Filtru caracteristica este un utilitar puternic, puteți aplica această caracteristică pentru a finaliza următoarele operații:

  • Filtrează datele cu mai multe criterii; Filtrează datele după lungimea textului;
  • Filtrează datele după majuscule / minuscule; Filtrează data după an / lună / zi / săptămână / trimestru

doc-super-filtru1

Kutools pentru Excel: cu mai mult de 300 de programe de completare Excel la îndemână, încercați fără limitări în 30 de zile. Descărcați și proba gratuită acum!


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (41)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
cum aplicați această formulă de filtru: la o serie de foi? Am un registru de lucru care are date pe primele 5 foi, iar registrul de lucru are 200 de coli. Am nevoie doar de filtrul pentru a fi aplicat la foaia 6-200. Sub apply_autofilter_across_worksheets() „Updateby Extendoffice 20160623 Dim xWs As Worksheet On Error Reluați Următorul pentru fiecare xWs din foile de lucru xWs.Range("A1").AutoFilter 1, "=KTE" Next End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Sub apply_autofilter_across_worksheets() Dim J As integer On Error Resume Next Pentru J = 6 la Worksheets(worksheets.count) Thisworkbook.Sheets(J).Range("A1").Autofilter 1, "=KTE" Next End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Dragă, vreau să filtrez mai multe valori, am folosit acest xWs.Range("B1").AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR" și a funcționat, dar când am crește valorile dorite la >2 apare o eroare. această comandă folosesc xWs.Range("B1").AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR", xlOr, "=019IR", xlOr, "=311IR", xlOr , „=518ZA”, xlOr, „=223AM”, xlOr, „=592IR” mulțumesc,
Acest comentariu a fost redus la minimum de moderatorul de pe site
în timp ce filtrați un singur cuvânt în mai multe foi, nu arată datele filtrate... toate datele sunt ascunse. Vă rugăm să rezolvați acest lucru.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună,


Datele mele sunt în coloana E și când aplic acest filtru cu Range(„E1”), tot filtrează coloana A


Cum pot depana?
mulțumesc
Acest comentariu a fost redus la minimum de moderatorul de pe site
Trebuie doar să scrieți numărul coloanei în AutoFilter, în acest caz: xWs.Range("E1").AutoFilter 5,
Acest comentariu a fost redus la minimum de moderatorul de pe site
MULȚUMESC!!!!
Acest comentariu a fost redus la minimum de moderatorul de pe site
ȘTERGEȚI COLONAA A LOL
Acest comentariu a fost redus la minimum de moderatorul de pe site
Cum se execută dacă filtrul este pe o coloană diferită pe fiecare foaie?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Cum puteți folosi rezultatul filtrului automat pentru a seta filtrul pentru fiecare altă foaie în loc să utilizați =(nume specific)
Acest comentariu a fost redus la minimum de moderatorul de pe site
Pot folosi acest lucru pentru a filtra tabelele pivot în mai multe foi dacă toate tabelele pivot provin din aceeași sursă de date și sunt configurate folosind aceleași criterii?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Există vreo opțiune de a filtra după culori?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Mahesh,
Dacă doriți să filtrați datele după culoare, s-ar putea să vă ajute următoarele două articole! Vă rugăm să le vizualizați, sper că vă poate ajuta!

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
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună,


Cum funcționează acest lucru dacă coloana Produs este prezentată în locuri diferite în alte foi?


În foaia1, este A1 în foaia2 este în B1 și în foaia3 este din nou A1?

Multumesc,
Monika
Acest comentariu a fost redus la minimum de moderatorul de pe site
Există o modalitate de a schimba partea „=KTE” pentru fiecare foaie cu un filtru de conținut care se bazează pe numele foii?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Multumesc pentru cod!! Există o modalitate de a schimba „=KTE” pentru a utiliza o valoare dintr-o listă sau dintr-o listă drop-down?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, super-filtrul din întregul registru de lucru se reaplică automat ori de câte ori există o actualizare a fișierului?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Putem folosi numele de celulă precum Produs în loc de A1 în: xWs.Range("A1").AutoFilter 1, "=KTE"
Am o coloană diferită și unele nume vin în coloană diferită.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am folosit filtru în fiecare foaie. Și vreau să schimb s.no din 1 2 3 în serie în fiecare foaie după filtru.


Vă rog să-mi spuneți dacă aveți cod vba pentru el
Acest comentariu a fost redus la minimum de moderatorul de pe site
Cum se utilizează funcția „Filtrare între” pentru aceleași foi multiple?

(Exemplu: interval de timp)
Acest comentariu a fost redus la minimum de moderatorul de pe site
cum să elimini rândurile filtrate?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Dragă,

Cum se filtrează cu mai multe condiții?
De exemplu, vreau să filtrez în ordine peste 50, dar numai produse KTE.

Va multumesc anticipat.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Pedjaa,
Pentru a filtra pe mai multe foi în funcție de două condiții, aplicați următorul cod:
Sub apply_autofilter_across_worksheets()

'Actualizare de Extendoffice

Dim xWs ca fișă de lucru

La data de eroare CV următoare

Pentru fiecare xWs din foile de lucru

Cu xWs.Range("A1")

.Câmp de filtru automat:=1, Criteria1:="KTE" „Coloana A este egală cu „KTE”

.Câmp de filtrare automată:=2, Criteria1:=">500" „Coloana B mai mare de 500

Se termina cu

Pagina Următoare →

End Sub

Vă rugăm să încercați, sper că vă poate ajuta!
Acest comentariu a fost redus la minimum de moderatorul de pe site
chiar dacă înlocuiesc A1 cu G1, filtrul pune pe coloana A1
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Tan,
Doar înlocuiți A1 cu G1, în același timp, ar trebui să schimbați coloana numărul 1 în coloana numărul 7, după cum urmează:
xWs.Range("G1").AutoFilter 7, "=KTE"
Vă rugăm să încercați, mulțumesc!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Buna,
este posibil să se filtreze în funcție de Numele coloanei, mai degrabă decât de număr (deoarece datele mele sunt în coloane diferite în diferitele foi de lucru)?
Multumesc Manuela
Acest comentariu a fost redus la minimum de moderatorul de pe site
Vreau să filtrez cu aceeași condiție "KTE", dar dacă nu apare într-o foaie, nu arăta nicio dată.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Hi,
Vreau criterii de filtrare bazate pe o valoare a celulei în loc de "KTE" este posibil???
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună ziua, Hemraj, Pentru a filtra datele pe baza unei anumite valori a celulei în loc de textul fix, vă rugăm să aplicați codul de mai jos: Sub apply_autofilter_across_worksheets()
'Actualizare de Extendoffice
Dim xWs ca fișă de lucru
La data de eroare CV următoare
Pentru fiecare xWs din foile de lucru
xWs.Range(„A1”).AutoFilter 1, Sheet1.Range(„E2”)
Pagina Următoare →
End Subnotițe: Vă rugăm să schimbați Sheet1 și E2 în cadrul acestui Sheet1.Range ("E2") script-ul la propria foaie și valoarea celulei. Vă rugăm să încercați, sper că vă poate ajuta!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut Skyyang,
Vă mulțumim pentru sprijinul dumneavoastră valoros și fabulos, am încercat să folosesc aceleași formule, dar nu a funcționat pentru care ar putea fi motivul. Următorul este codul pe care îl folosesc pentru foaia mea Excel.
Sub apply_autofilter_across_worksheets()
'Actualizare de Extendoffice
Dim xWs ca fișă de lucru
La data de eroare CV următoare
Pentru fiecare xWs din foile de lucru
xWs.Range("A1").AutoFilter 1, Sheet2.Range("C4")
Pagina Următoare →
End Sub
Nu există comentarii postate aici încă
Încărcați mai
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL