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

 Come applicare lo stesso filtro a più fogli in Excel?

Potrebbe essere facile per noi applicare la funzione Filtro per filtrare i dati in un foglio di lavoro, ma, a volte, potrebbe essere necessario filtrare su più fogli di lavoro che hanno una formattazione comune dei dati con gli stessi criteri di filtro. Filtrarli uno per uno farà perdere un sacco di tempo, qui posso introdurre un modo semplice per risolverli in una volta.

Applica lo stesso filtro a più fogli di lavoro con codice VBA


freccia blu freccia destra Applica lo stesso filtro a più fogli di lavoro con codice VBA

Ad esempio, ho quattro fogli di lavoro poiché la seguente schermata deve essere filtrata con gli stessi criteri del Prodotto = KTE contemporaneamente.

doc filter più fogli 1

Non esiste un modo diretto per filtrare i dati in più fogli in Excel, ma il seguente codice VBA può aiutarti a completare questo lavoro, per favore fai come segue:

1. Tieni premuto il ALT + F11 chiavi, quindi apre il file Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Moduloe incolla il codice seguente nel file Modulo Finestra.

Codice VBA: applica lo stesso filtro a più fogli di lavoro:

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. E poi premere F5 chiave per eseguire questo codice, tutti i prodotti di KTE sono stati filtrati in tutti i fogli di lavoro contemporaneamente, vedi screenshot:

doc filter più fogli 2

Note:: All'interno del codice sopra, in questo xWs.Range ("A1"). Filtro automatico 1, "= KTE" sceneggiatura, A1 e = KTE indica la colonna ei criteri su cui si desidera filtrare, il numero 1 è il numero di colonna in base a cui si è filtrato, è possibile modificarli secondo le proprie necessità. Ad esempio, se vuoi filtrare l'ordine maggiore di 50, devi solo modificare questo script in questo modo: xWs.Range ("B1"). Filtro automatico 2, "> 50".


Filtra i dati in base a più criteri o altre condizioni specifiche, ad esempio per lunghezza del testo, distinzione tra maiuscole e minuscole, ecc.

Kutools for Excel'S Super filtro è una potente utility, puoi applicare questa funzione per completare le seguenti operazioni:

  • Filtra i dati con più criteri; Filtra i dati in base alla lunghezza del testo;
  • Filtra i dati in maiuscolo / minuscolo; Filtra la data per anno / mese / giorno / settimana / trimestre

doc-super-filtro1

Kutools for Excel: con più di 300 utili componenti aggiuntivi di Excel, liberi di provare senza limitazioni in 30 giorni. Scarica e prova gratuita ora!


I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office/Excel 2007-2021 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
fondo officetab
Commenti (41)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
come si applica questa formula di filtro: a una serie di fogli? ho una cartella di lavoro che contiene dati sui primi 5 fogli e la cartella di lavoro ha 200 fogli ho solo bisogno del filtro da applicare al foglio 6-200. Sub apply_autofilter_across_worksheets() 'Aggiorna entro Extendoffice 20160623 Dim xWs come foglio di lavoro in caso di errore Riprendi Avanti per ogni xWs nei fogli di lavoro xWs.Range ("A1"). Filtro automatico 1, "= KTE" Avanti End Sub
Questo commento è stato fatto dal moderatore sul sito
Sub apply_autofilter_across_worksheets() Dim J As integer In caso di errore Riprendi Avanti Per J = 6 a Worksheets(worksheets.count) Thisworkbook.Sheets(J).Range("A1").Autofilter 1, "=KTE" Next End Sub
Questo commento è stato fatto dal moderatore sul sito
Caro, voglio filtrare più di un valore, ho usato questo xWs.Range("B1").AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR" e ha funzionato ma quando ho aumentare i valori desiderati a >2 si verifica un errore. questo comando io uso xWs.Range("B1").AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR", xlOr, "=019IR", xlOr, "=311IR", xlOr , "=518ZA", xlOr, "=223AM", xlOr, "=592IR" grazie,
Questo commento è stato fatto dal moderatore sul sito
mentre si filtra una singola parola in più fogli non mostra i dati filtrati .... tutti i dati sono nascosti. Per favore, risolvi questo.
Questo commento è stato fatto dal moderatore sul sito
Ciao,


I miei dati si trovano nella colonna E e quando applico questo filtro con Intervallo ("E1"), filtra ancora la colonna A


Come posso risolvere i problemi?
Grazie
Questo commento è stato fatto dal moderatore sul sito
Devi solo scrivere il numero della colonna in AutoFilter, in questo caso: xWs.Range ("E1"). AutoFilter 5,
Questo commento è stato fatto dal moderatore sul sito
GRAZIE!!!!
Questo commento è stato fatto dal moderatore sul sito
ELIMINA LA COLONNA A LOL
Questo commento è stato fatto dal moderatore sul sito
Come si esegue se il filtro si trova su una colonna diversa su ogni foglio?
Questo commento è stato fatto dal moderatore sul sito
Come puoi usare il risultato del filtro automatico per impostare il filtro per ogni altro foglio invece di usare =(nome specifico)
Questo commento è stato fatto dal moderatore sul sito
Posso usarlo per filtrare le tabelle pivot in più fogli se tutte le tabelle pivot provengono dalla stessa origine dati e impostate utilizzando gli stessi criteri?
Questo commento è stato fatto dal moderatore sul sito
C'è qualche opzione per filtrare per colori?
Questo commento è stato fatto dal moderatore sul sito
Ciao, Mahsh,
Se vuoi filtrare i dati per colore, i seguenti due articoli possono aiutarti! Per favore guardali, spero che possa aiutarti!

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
Questo commento è stato fatto dal moderatore sul sito
Ciao,


Come funziona se la colonna Prodotto è presentata in posizioni diverse in altri fogli?


Nel foglio 1 è A1 nel foglio 2 è in B1 e nel foglio 3 è di nuovo A1 ?

Grazie,
Monika
Questo commento è stato fatto dal moderatore sul sito
C'è un modo per cambiare la parte "=KTE" per ogni foglio con un filtro di contenimento basato sul nome del foglio?
Questo commento è stato fatto dal moderatore sul sito
Grazie per il codice!! c'è un modo per modificare "= KTE" per utilizzare un valore da un elenco o da un elenco a discesa?
Questo commento è stato fatto dal moderatore sul sito
Ciao, il super filtro sull'intera cartella di lavoro si riapplica automaticamente ogni volta che viene aggiornato il file?
Questo commento è stato fatto dal moderatore sul sito
Possiamo usare il nome della cella come Prodotto invece di A1 in: xWs.Range("A1").AutoFilter 1, "=KTE"
Ho una colonna diversa e alcuni nomi arrivano in una colonna diversa.
Questo commento è stato fatto dal moderatore sul sito
Ho usato il filtro in ogni foglio. E voglio cambiare s.no da 1 2 3 in serie in ogni foglio dopo il filtro.


Per favore fatemi sapere se avete il codice vba per questo
Questo commento è stato fatto dal moderatore sul sito
Come utilizzare la funzione "Filtra tra" per gli stessi fogli multipli?

(Esempio: intervallo di tempo)
Questo commento è stato fatto dal moderatore sul sito
come eliminare le righe filtrate?
Questo commento è stato fatto dal moderatore sul sito
Caro,

Come filtrare con più condizioni?
Ad esempio, voglio filtrare in ordine superiore a 50 ma solo prodotti KTE.

Vi ringrazio in anticipo.
Questo commento è stato fatto dal moderatore sul sito
Ciao, Pedjaa,
Per filtrare più fogli in base a due condizioni, applicare il codice seguente:
Sub apply_autofilter_across_worksheets()

'Aggiorna entro Extendoffice

Dim xWs come foglio di lavoro

On Error Resume Next

Per ogni xW nei fogli di lavoro

Con xWs.Range ("A1")

.AutoFilter Field:=1, Criteria1:="KTE" 'Colonna A è uguale a "KTE"

.AutoFilter Field:=2, Criteria1:=">500" 'Colonna B maggiore di 500

Fine Con

Successiva

End Sub

Per favore, prova, spero che possa aiutarti!
Questo commento è stato fatto dal moderatore sul sito
anche se sostituisco A1 con G1, blocca il filtro sulla colonna A1
Questo commento è stato fatto dal moderatore sul sito
Ciao, Tan,
Sostituisci semplicemente A1 con G1, allo stesso tempo, dovresti cambiare la colonna numero 1 nella colonna numero 7, come sotto il codice:
xWs.Range ("G1"). Filtro automatico 7, "= KTE"
Si prega di provare, grazie!
Questo commento è stato fatto dal moderatore sul sito
Ciao,
è possibile filtrare in base al nome della colonna, anziché al numero (poiché i miei dati si trovano in colonne diverse nei diversi fogli di lavoro)?
Grazie Manuela
Questo commento è stato fatto dal moderatore sul sito
Voglio filtrare con la stessa condizione "KTE", ma se non viene visualizzato in un foglio non viene visualizzato alcun dato.
Questo commento è stato fatto dal moderatore sul sito
Ciao,
Voglio criteri di filtro basati su un valore di cella invece di "KTE" è possibile ???
Questo commento è stato fatto dal moderatore sul sito
Ciao, Hemraj, per filtrare i dati in base a un valore di cella specifico anziché al testo fisso, applica il codice seguente: Sub apply_autofilter_across_worksheets()
'Aggiorna entro Extendoffice
Dim xWs come foglio di lavoro
On Error Resume Next
Per ogni xW nei fogli di lavoro
xWs.Range("A1").Filtro automatico 1, Foglio1.Range("E2")
Successiva
End SubNote:: Si prega di cambiare il Sheet1 e E2 all'interno di questo Foglio1.Intervallo("E2") script sul tuo foglio e sul valore della cella. Per favore, prova, spero che possa aiutarti!
Questo commento è stato fatto dal moderatore sul sito
Ciao Skyyang,
Grazie per il vostro prezioso e favoloso supporto, ho provato a usare le stesse formule ma non ha funzionato per quello che potrebbe essere il motivo. Quello che segue è il codice che sto usando per il mio foglio excel.
Sub apply_autofilter_across_worksheets()
'Aggiorna entro Extendoffice
Dim xWs come foglio di lavoro
On Error Resume Next
Per ogni xW nei fogli di lavoro
xWs.Range("A1").Filtro automatico 1, Foglio2.Range("C4")
Successiva
End Sub
Non ci sono ancora commenti pubblicati qui
Carica Altre
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL