Как применить один и тот же фильтр сразу к нескольким листам в Excel?
Применить функцию фильтрации к данным на одном листе довольно просто, однако иногда может понадобиться отфильтровать данные сразу на нескольких листах, имеющих общее форматирование и одинаковые Условия фильтрации. Последовательная фильтрация каждого листа вручную займёт много времени. В таком случае я могу предложить простой способ решить эту задачу за один раз.
Применение одного и того же фильтра к нескольким листам с помощью кода VBA
Применение одного и того же фильтра к нескольким листам с помощью кода VBA
Например, у меня есть четыре листа, как показано на следующем снимке экрана, которые нужно одновременно отфильтровать по одному и тому же условию: Продукт = KTE.
В Excel нет встроенного способа фильтровать данные одновременно на нескольких листах, но приведённый ниже код VBA решит эту задачу. Выполните следующие действия:
1. Удерживая нажатой клавишу ALT + F11, откройте окно Microsoft Visual Basic for Applications.
2. Нажмите Вставка > Модуль и вставьте следующий код в окно Модуля.
Код 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").AutoFilter 2, «>50».
Фильтрация данных по нескольким критериям или другим конкретным условиям, например по длине текста, с учётом регистра и т.д. Kutools для Excel’s Супер фильтр— это мощный инструмент, с помощью которого можно выполнить следующие операции:
Kutools для Excel: более чем 300 удобных надстроек для Excel, которые можно бесплатно протестировать без ограничений в течение 30 дней.Скачайте и начните бесплатный пробный период прямо сейчас! |
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек