Jak kopírovat data do jiného listu s pokročilým filtrem v aplikaci Excel?

Normálně můžeme rychle použít Pokročilý filtr funkce pro extrakci dat ze surových dat ve stejném listu. Ale někdy, když se pokusíte zkopírovat filtrovaný výsledek do jiného listu, zobrazí se následující varovná zpráva. Jak byste v tomto případě mohli s tímto úkolem pracovat v aplikaci Excel?

Zkopírujte data do jiného listu pomocí rozšířeného filtru pomocí funkce rozšířeného filtru

Zkopírujte data do jiného listu pomocí rozšířeného filtru pomocí kódu VBA

Zkopírujte data do jiného listu pomocí rozšířeného filtru pomocí funkce rozšířeného filtru

Zde je jednoduché řešení pro vyřešení této úlohy, udělejte prosím toto:

1. Aktivujte list, kam chcete zkopírovat filtrovaný výsledek, pomocí funkce Rozšířený filtr.

2. Pak klikněte na tlačítko Data > pokročilý, viz screenshot:

3. V Pokročilý filtr dialogové okno vyberte Kopírovat na jiné místo z Akce části a potom klikněte na Tlačítko pro výběr rozsahu dat, který chcete filtrovat na jiném listu vedle Rozsah seznamu, pokračujte kliknutím tlačítko vedle Rozsah kritérií pro výběr kritérií z jiného listu, viz screenshot:

4. Pak klikněte na tlačítko tlačítko vedle Kopírovat do Do pole vyberte buňku, do které chcete odeslat filtrovaný výsledek z aktivního listu, a klepněte na OK tlačítko, filtrovaný výsledek byl extrahován do jiného listu na základě původního datového listu.

Zkopírujte data do jiného listu pomocí rozšířeného filtru pomocí kódu VBA

Pokud máte zkušenosti s kódem VBA, můžete tuto práci dokončit pomocí následujícího kódu VBA.

1. Aktivujte list, který chcete filtrovat, a zkopírujte výsledek do jiného listu.

2. Podržte ALT + F11 klíče v aplikaci Excel a otevře Microsoft Visual Basic pro aplikace okno.

3, klikněte Vložit > Modula vložte následující kód do Modul Okno.

Kód VBA: Kopírování dat do jiného listu pomocí rozšířeného filtru:

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. A pak stiskněte F5 klíč ke spuštění tohoto kódu a zobrazí se okno s výzvou, které vám umožní vybrat rozsah dat, který chcete filtrovat, viz screenshot:

5. Pak klikněte na tlačítko OK, a vyskočí další dialogové okno, které vám připomene, abyste vybrali rozsah kritérií, podle kterého chcete filtrovat, viz screenshot:

6. Pokračujte kliknutím OKV rozbalovacím dialogovém okně vyberte buňku z jiného nového listu, kam chcete výsledek filtru odeslat, viz screenshot:

7. Konečně klikněte na tlačítko OK tlačítko, filtrovaná data byla podle potřeby odeslána na jiný určený list.