Come copiare i dati su un altro foglio di lavoro con Filtro avanzato in Excel?
Normalmente, possiamo applicare rapidamente il file Filtro avanzato funzionalità per estrarre i dati dai dati grezzi nello stesso foglio di lavoro. Ma, a volte, quando provi a copiare il risultato filtrato in un altro foglio di lavoro, riceverai il seguente messaggio di avviso. In questo caso, come potresti gestire questa attività in Excel?
Copia i dati in un altro foglio di lavoro con Filtro avanzato utilizzando il codice VBA
Copia i dati in un altro foglio di lavoro con Filtro avanzato utilizzando la funzione Filtro avanzato
Ecco una semplice soluzione alternativa per risolvere questo lavoro, per favore fai come segue:
1. Attivare il foglio di lavoro in cui si desidera copiare il risultato filtrato utilizzando la funzione Filtro avanzato.
2. Quindi fare clic Dati > Tecnologia, vedi screenshot:
3. Nel Filtro avanzato finestra di dialogo, selezionare Copia in un'altra posizione dal Action sezione, quindi fare clic su per selezionare l'intervallo di dati che si desidera filtrare in un altro foglio accanto al file Intervallo elenco, continua a fare clic pulsante accanto al Gamma di criteri per selezionare i criteri da un altro foglio, vedi screenshot:
4. Quindi fare clic pulsante accanto al Copia a casella per selezionare una cella in cui si desidera visualizzare il risultato filtrato dal foglio attivo, quindi fare clic su OK pulsante, il risultato filtrato è stato estratto in un altro foglio in base al foglio dati originale.
Copia i dati in un altro foglio di lavoro con Filtro avanzato utilizzando il codice VBA
Se sei esperto con il codice VBA, puoi completare questo lavoro con il seguente codice VBA.
1. Attiva il foglio di lavoro che desideri filtrare e copia il risultato su un altro foglio.
2. Tieni premuto il ALT + F11 chiavi in Excel e apre il file Microsoft Visual Basic, Applications Edition finestra.
3. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.
Codice VBA: copia i dati in un altro foglio di lavoro con filtro avanzato:
Sub Advancedfiltertoanothersheet()
'Updateby Extendoffice
Dim xStr As String
Dim xAddress As String
Dim xRg As Range
Dim xCRg As Range
Dim xSRg As Range
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the filter range:", "Kutools for Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xCRg = Application.InputBox("Please select the criteria range:", "Kutools for Excel", "", , , , , 8)
If xCRg Is Nothing Then Exit Sub
Set xSRg = Application.InputBox("Please select the output range:", "Kutools for Excel", "", , , , , 8)
If xSRg Is Nothing Then Exit Sub
xRg.AdvancedFilter xlFilterCopy, xCRg, xSRg, False
xSRg.Worksheet.Activate
xSRg.Worksheet.Columns.AutoFit
End Sub
4. E poi premere F5 chiave per eseguire questo codice e viene visualizzata una finestra di messaggio per consentire di selezionare l'intervallo di dati che si desidera filtrare, vedere screenshot:
5. Quindi fare clic OKe viene visualizzata un'altra finestra di dialogo per ricordarti di selezionare l'intervallo di criteri su cui desideri filtrare, vedi screenshot:
6. Continua a fare clic OK, nella finestra di dialogo saltata fuori, seleziona una cella da un altro nuovo foglio di lavoro in cui desideri visualizzare il risultato del filtro, vedi screenshot:
7. Finalmente, clicca OK pulsante, i dati filtrati sono stati emessi in un altro foglio specificato di cui hai bisogno.
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo 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!