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
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.
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:
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:
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 de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
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!