Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako kopirati podatke na drugo delovno ploščo z naprednim filtrom v programu Excel?

Običajno lahko hitro uporabimo Napredni filter funkcijo za pridobivanje podatkov iz neobdelanih podatkov na istem delovnem listu. Toda včasih, ko poskusite kopirati filtriran rezultat na drug delovni list, boste prejeli naslednje opozorilno sporočilo. V tem primeru, kako bi lahko rešili to nalogo v Excelu?

Kopirajte podatke na drug delovni list z naprednim filtrom z uporabo funkcije Advanced Filter

Kopirajte podatke na drugo delovno ploščo z naprednim filtrom z uporabo kode VBA


Kopirajte podatke na drug delovni list z naprednim filtrom z uporabo funkcije Advanced Filter


Tukaj je preprosto rešitev, s katero lahko rešite to opravilo, storite tako:

1. Aktivirajte delovni list, kjer želite kopirati filtriran rezultat z uporabo funkcije Advanced Filter.

2. Nato kliknite datum > Napredno, si oglejte sliko 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 v drugem listu poleg Razpon seznama, pojdite na klic gumb poleg Razpon meril Če želite izbrati merila iz drugega lista, si oglejte sliko zaslona:

4. Nato kliknite gumb poleg Kopiraj v polje, da izberete celico, v kateri želite oddati filtriran rezultat iz aktivnega lista, nato kliknite OK gumb, je bil filtriran rezultat ekstrahiran v drugi list, ki temelji na prvotnem podatkovnem listu.


Kopirajte podatke na drugo delovno ploščo z naprednim filtrom z uporabo kode VBA

Če ste usposobljeni s kodo VBA, lahko to opravilo zaključite s kodo VBA.

1. Aktivirajte delovni list, ki ga želite filtrirati, in kopirajte rezultat na drug list.

2. Drži dol ALT + F11 ključi v Excelu in odpre Microsoft Visual Basic za aplikacije okno.

3. Kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Moduli Okno.

VBA koda: 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 ključ za zagon te kode in izpisano je hitro okno, ki vam omogoča, da izberete obseg podatkov, ki ga želite filtrirati. Oglejte si posnetek zaslona:

5. Nato kliknite OKin še eno pogovorno okno, ki vas opomni, da izberete obseg meril, na podlagi katerega želite filtrirati, in si oglejte posnetek zaslona:

6. Pojdite s klikom OK, v pogovornem oknu, ki je izpuščeno, izberite celico iz drugega novega delovnega lista, kamor želite izpisati rezultat filtriranja, si oglejte posnetek zaslona:

7. Končno kliknite OK gumb, filtrirani podatki so bili potisnjeni v drug določen list, kot jih potrebujete.


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.