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.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
