Как автоматически обновить результат расширенного фильтра в Excel?
Когда мы применим функцию расширенного фильтра, мы обнаружим, что отфильтрованный результат не изменится автоматически при изменении критериев. Для этого нам нужно еще раз применить функцию расширенного фильтра, чтобы получить новый результат. Но есть ли у вас какой-нибудь хороший и быстрый способ автоматического обновления результатов расширенного фильтра, как показано на следующем снимке экрана в Excel?
Автоматическое обновление результатов расширенного фильтра с помощью кода VBA
Автоматическое обновление результатов расширенного фильтра с помощью кода VBA
Следующий код VBA может помочь вам автоматически обновлять результат расширенного фильтра, когда вы меняете критерии по своему усмотрению, сделайте следующее:
1. Щелкните правой кнопкой мыши вкладку листа, данные которой вы хотите автоматически фильтровать, а затем выберите Просмотреть код из контекстного меню в открывшемся Microsoft Visual Basic для приложений окна, скопируйте и вставьте следующий код в пустой модуль:
Код VBA: автоматическое обновление результата расширенного фильтра:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A5:D21").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range _
("A1:C3"), Unique:=False
End Sub
Внимание: В приведенном выше коде: A5: D21 это диапазон данных, который вы хотите отфильтровать, A1: C3 - это диапазон критериев для фильтрации.
2. Затем сохраните и закройте окно кода, теперь, когда вы измените критерии в диапазоне критериев, отфильтрованный результат будет обновлен автоматически сразу.

Разблокируйте магию Excel с помощью Kutools AI
- Умное исполнение: выполнение операций с ячейками, анализ данных и создание диаграмм — и все это осуществляется с помощью простых команд.
- Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации рабочих процессов.
- VBA-кодирование: Пишите и внедряйте код VBA без особых усилий.
- Интерпретация формулы: Легкое понимание сложных формул.
- Перевод текста: преодолевайте языковые барьеры в своих таблицах.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!