Как да копирате данни в друг работен лист с разширен филтър в Excel?
Обикновено можем бързо да приложим Разширен филтър функция за извличане на данни от необработените данни в същия работен лист. Но понякога, когато се опитате да копирате филтрирания резултат в друг работен лист, ще получите следното предупредително съобщение. В този случай как бихте могли да се справите с тази задача в Excel?
Копирайте данни в друг работен лист с разширен филтър, като използвате функцията за разширен филтър
Копирайте данни в друг работен лист с разширен филтър, като използвате VBA код
Копирайте данни в друг работен лист с разширен филтър, като използвате функцията за разширен филтър
Ето едно просто решение за решаване на тази задача, моля, направете следното:
1. Активирайте работния лист, където искате да копирате филтрирания резултат, като използвате функцията Разширен филтър.
2, След това кликнете Дата > Подробно, вижте екранна снимка:
3. В Разширен филтър изберете диалоговия прозорец Копирайте на друго място от действие и след това щракнете върху бутон, за да изберете диапазона от данни, който искате да филтрирате в друг лист до Диапазон на списъка, продължете да щракате бутон до Диапазон на критериите за да изберете критериите от друг лист, вижте екранната снимка:
4, След това кликнете бутон до Копирай в за да изберете клетка, в която искате да изведете филтрирания резултат от активния лист, и след това щракнете OK бутон, филтрираният резултат е извлечен в друг лист въз основа на вашия оригинален лист с данни.
Копирайте данни в друг работен лист с разширен филтър, като използвате VBA код
Ако сте опитни с VBA код, можете да завършите тази работа със следния VBA код.
1. Активирайте работния лист, който искате да филтрирате, и копирайте резултата в друг лист.
2. Задръжте натиснат ALT + F11 клавиши в Excel и отваря Microsoft Visual Basic за приложения прозорец.
3. Щракнете Поставете > Модулии поставете следния код в Модули Window.
VBA код: Копирайте данни в друг работен лист с разширен филтър:
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. И след това натиснете F5 клавиш, за да изпълните този код, и се появява поле за подкана, което ви позволява да изберете диапазона от данни, който искате да филтрирате, вижте екранна снимка:
5, След това кликнете OKи друг диалогов прозорец се появява, за да ви напомни да изберете диапазона от критерии, въз основа на който искате да филтрирате, вижте екранната снимка:
6. Продължете да щракате OK, в изскачащия диалогов прозорец, моля, изберете клетка от друг нов работен лист, където искате да изведете резултата от филтъра, вижте екранната снимка:
7. Най-накрая щракнете OK бутон, филтрираните данни са изведени в друг посочен лист, както ви е необходимо.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!