Hogyan lehet adatokat másolni egy másik munkalapra az Excel speciális szűrőjével?
Normális esetben gyorsan alkalmazhatjuk a Speciális szűrő funkció az adatok kinyeréséhez a nyers adatokból ugyanazon a munkalapon. De néha, amikor megpróbálja másolni a szűrt eredményt egy másik munkalapra, a következő figyelmeztető üzenetet kapja. Ebben az esetben hogyan kezelheti ezt a feladatot az Excel programban?
Másolja át az adatokat egy másik munkalapra az Advanced Filter segítségével a VBA kód használatával
Másolja az adatokat egy másik munkalapra a Speciális szűrő segítségével a Speciális szűrő funkció használatával
Itt van egy egyszerű megoldás a feladat megoldásához. Kérjük, tegye a következőket:
1. A Speciális szűrő funkcióval aktiválja azt a munkalapot, ahová át szeretné másolni a szűrt eredményt.
2. Ezután kattintson dátum > Részletes, lásd a képernyőképet:
3. Az Speciális szűrő párbeszédpanelen válassza ki Másolás más helyre tól Akció szakaszra, majd kattintson a gombra gombbal kiválaszthatja azt az adattartományt, amelyet egy másik lapon szeretne szűrni a Lista tartomány, kattintson a gombra gomb a Kritériumtartomány a kritériumok másik lapról történő kiválasztásához lásd a képernyőképet
4. Ezután kattintson gomb a Másold négyzetet, hogy kiválasszon egy cellát, ahová ki szeretné adni a szűrt eredményt az aktív munkalapból, majd kattintson a gombra OK gombra, a szűrt eredmény egy másik lapra került az eredeti adatlap alapján.
Másolja át az adatokat egy másik munkalapra az Advanced Filter segítségével a VBA kód használatával
Ha jártas a VBA kódban, akkor befejezheti ezt a munkát a következő VBA kóddal.
1. Aktiválja a szűrni kívánt munkalapot, és másolja az eredményt egy másik lapra.
2. Tartsa lenyomva a ALT + F11 kulcsokat az Excelben, és megnyitja a Microsoft Visual Basic for Applications ablak.
3. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
VBA kód: Adatok másolása egy másik munkalapra az Advanced Filter segítségével:
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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy prompt doboz, amely lehetővé teszi a szűrni kívánt adattartomány kiválasztását, lásd a képernyőképet:
5. Ezután kattintson OK, és egy újabb párbeszédpanel jelenik meg, amely emlékeztet arra, hogy válassza ki a szűrni kívánt kritériumtartományt, lásd a képernyőképet:
6. Kattintson a gombra OK, a felbukkanó párbeszédpanelen válasszon egy cellát egy másik új munkalapból, ahová ki szeretné adni a szűrési eredményt, lásd a képernyőképet:
7. Végül kattintson OK gombra, a szűrt adatok egy másik megadott lapra kerültek, amire szüksége van.
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!