Gå til hovedindhold

Hvordan kopieres data til et andet regneark med Advanced Filter i Excel?

Normalt kan vi hurtigt anvende Avanceret filter funktion til at udtrække data fra rådataene i det samme regneark. Men nogle gange, når du prøver at kopiere det filtrerede resultat til et andet regneark, får du følgende advarselsmeddelelse. I dette tilfælde, hvordan kunne du håndtere denne opgave i Excel?

Kopier data til et andet regneark med Avanceret filter ved hjælp af funktionen Avanceret filter

Kopier data til et andet regneark med Advanced Filter ved hjælp af VBA-kode


Kopier data til et andet regneark med Avanceret filter ved hjælp af funktionen Avanceret filter

Her er en simpel løsning til dig for at løse dette job. Gør som følger:

1. Aktiver regnearket, hvor du vil kopiere det filtrerede resultat ved hjælp af funktionen Avanceret filter.

2. Klik derefter på data > Avanceret, se skærmbillede:

3. I Avanceret filter dialogboksen, vælg Kopier til en anden placering fra Handling sektion, og klik derefter på for at vælge det dataområde, som du vil filtrere i et andet ark ved siden af Listeområde, fortsæt med at klikke knappen ved siden af Kriterier for at vælge kriterierne fra et andet ark, se skærmbillede:

4. Klik derefter på knappen ved siden af Kopier til for at vælge en celle, hvor du vil sende det filtrerede resultat fra det aktive ark, og klik derefter på OK knap, er det filtrerede resultat ekstraheret til et andet ark baseret på dit originale datablad.


Kopier data til et andet regneark med Advanced Filter ved hjælp af VBA-kode

Hvis du er dygtig med VBA-kode, kan du afslutte dette job med følgende VBA-kode.

1. Aktiver regnearket, som du vil filtrere, og kopier resultatet til et andet ark.

2. Hold nede ALT + F11 nøgler i Excel, og det åbner Microsoft Visual Basic til applikationer vindue.

3. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.

VBA-kode: Kopier data til et andet regneark med Advanced Filter:


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. Og tryk derefter på F5 tasten for at køre denne kode, og en promptboks vises, så du kan vælge det dataområde, du vil filtrere, se skærmbillede:

5. Klik derefter på OK, og en anden dialogboks vises for at minde dig om at vælge det kriterieområde, du vil filtrere baseret på, se skærmbillede:

6. Fortsæt med at klikke OK, i den åbnede dialogboks, vælg venligst en celle fra et andet nyt regneark, hvor du vil udskrive filterresultatet, se skærmbillede:

7. Endelig skal du klikke på OK knappen, er de filtrerede data blevet udsendt til et andet specificeret ark, som du har brug for.

Bedste kontorproduktivitetsværktøjer

Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøj (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøj (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøj (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøj (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

kte-fane 201905


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
No funciona, sigue el mismo mensaje de error....
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations