Как да приложа същия филтър към няколко листа в Excel?
Може да ни е лесно да приложим функцията Филтър, за да филтрираме данни в работен лист, но понякога може да се наложи да филтрирате няколко работни листа, които имат общо форматиране на данни със същите критерии за филтриране. За да ги филтрирате един по един, ще загубите много време, тук мога да представя лесен начин за решаването му наведнъж.
Приложете същия филтър към множество работни листове с VBA код
Приложете същия филтър към множество работни листове с VBA код
Например, имам четири работни листа, тъй като следната екранна снимка трябва да бъде филтрирана със същите критерии като Продукт = KTE наведнъж.
Няма директен начин за филтриране на данни в няколко листа в Excel, но следният VBA код може да ви помогне да завършите тази работа, моля, направете следното:
1. Задръжте натиснат ALT + F11 ключове, след това отваря Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в Модули Window.
VBA код: Приложете същия филтър към множество работни листове:
Sub apply_autofilter_across_worksheets()
'Updateby Extendoffice
Dim xWs As Worksheet
On Error Resume Next
For Each xWs In Worksheets
xWs.Range("A1").AutoFilter 1, "=KTE"
Next
End Sub
3. И след това натиснете F5 ключ за изпълнение на този код, всички продукти на KTE са филтрирани във всички работни листове наведнъж, вижте екранната снимка:
Забележка: В горния код, в това xWs.Range("A1").AutoFilter 1, "=KTE" скрипт, A1 намлява =KTE показва колоната и критериите, въз основа на които искате да филтрирате, числото 1 е номерът на колоната, въз основа на който сте филтрирали, можете да ги промените според вашите нужди. Например, ако искате да филтрирате поръчката, по-голяма от 50, просто трябва да промените този скрипт по следния начин: xWs.Range("B1").Автоматичен филтър 2, ">50".
Филтриране на данни по множество критерии или друго специфично условие, като дължина на текста, чувствителни към главни и малки букви и т.н.
Kutools за ExcelЕ Супер филтър е мощна помощна програма, можете да приложите тази функция, за да завършите следните операции:
Kutools за Excel: с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. Изтеглете и изпробвайте безплатно сега! |
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!