Как применить один и тот же фильтр к нескольким листам в Excel?
Нам может быть легко применить функцию «Фильтр» для фильтрации данных на листе, но иногда может потребоваться фильтрация на нескольких листах, которые имеют общее форматирование данных с одинаковыми критериями фильтрации. Чтобы отфильтровать их по одному, вы потратите много времени, здесь я могу предложить простой способ решить эту проблему сразу.
Применить тот же фильтр к нескольким листам с кодом VBA
Применить тот же фильтр к нескольким листам с кодом VBA
Например, у меня есть четыре рабочих листа, так как следующий снимок экрана нужно отфильтровать сразу по тем же критериям, что и Product = KTE.
Нет прямого способа отфильтровать данные на нескольких листах в Excel, но следующий код VBA может помочь вам завершить эту работу, пожалуйста, сделайте следующее:
1. Удерживайте ALT + F11 ключи, затем он открывает Microsoft Visual Basic для приложений окно.
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"). Автофильтр 1, "= KTE" сценарий, A1 и = KTE указывает столбец и критерии, по которым вы хотите выполнить фильтрацию, число 1 - это номер столбца, на основе которого вы отфильтровали, вы можете изменить их по своему усмотрению. Например, если вы хотите отфильтровать порядок больше 50, вам просто нужно изменить этот сценарий следующим образом: xWs.Range ("B1"). Автофильтр 2, "> 50".
|
Фильтровать данные по нескольким критериям или другим конкретным условиям, например по длине текста, с учетом регистра и т. Д.
Kutools for ExcelАвтора Суперфильтр feature - это мощная утилита, вы можете применить эту функцию для выполнения следующих операций:
Kutools for Excel: с более чем 300 удобными надстройками Excel, которые можно попробовать бесплатно без ограничений в течение 30 дней. Загрузите и бесплатную пробную версию прямо сейчас! |
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
