Kako kopirati podatke na drug delovni list z naprednim filtrom v Excelu?
Običajno lahko hitro uporabimo Napredni filter funkcija za pridobivanje podatkov iz surovih podatkov na istem delovnem listu. Toda včasih, ko poskušate filtriran rezultat kopirati na drug delovni list, boste dobili naslednje opozorilno sporočilo. Kako bi se v tem primeru lahko spopadli s to nalogo v Excelu?
Kopirajte podatke na drug delovni list z naprednim filtrom s funkcijo naprednega filtra
Kopirajte podatke na drug delovni list z naprednim filtrom s pomočjo kode VBA
Kopirajte podatke na drug delovni list z naprednim filtrom s funkcijo naprednega filtra
Tukaj je preprosta rešitev, s katero boste rešili to nalogo. Naredite to:
1. S funkcijo Napredni filter aktivirajte delovni list, kamor želite kopirati filtrirani rezultat.
2. Nato kliknite datum > Napredno, glej posnetek zaslona:
3. v Napredni filter pogovorno okno, izberite Kopirajte na drugo mesto Iz Ukrep in nato kliknite , da izberete obseg podatkov, ki ga želite filtrirati na drugem listu poleg Obseg seznama, pojdi na klik poleg gumba Razpon meril če želite merila izbrati na drugem listu, si oglejte posnetek zaslona:
4. Nato kliknite poleg gumba Kopiraj v izberite celico, v katero želite iz aktivnega lista izpisati filtrirani rezultat, in kliknite OK gumb, je bil filtriran rezultat ekstrahiran v drug list na podlagi vašega prvotnega podatkovnega lista.
Kopirajte podatke na drug delovni list z naprednim filtrom s pomočjo kode VBA
Če ste vešči kode VBA, lahko to delo zaključite z naslednjo kodo VBA.
1. Aktivirajte delovni list, ki ga želite filtrirati, in rezultat kopirajte na drug list.
2. Držite tipko ALT + F11 tipke v Excelu in odpre Microsoft Visual Basic za aplikacije okno.
3. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.
Koda VBA: Kopirajte podatke na drug delovni list z naprednim filtrom:
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. In nato pritisnite F5 tipko za zagon te kode in izpiše se pozivno polje, da izberete obseg podatkov, ki ga želite filtrirati, glejte posnetek zaslona:
5. Nato kliknite OKin odpre se drugo pogovorno okno, ki vas opomni, da izberete obseg meril, na podlagi katerega želite filtrirati, glejte posnetek zaslona:
6. Pojdi na klik OK, v izpuščenem pogovornem oknu izberite celico z drugega novega delovnega lista, kjer želite prikazati rezultat filtra, glejte posnetek zaslona:
7. Končno kliknite OK , so filtrirani podatki po potrebi prikazani na drug določen list.
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!