Как очистить фильтры при открытии, сохранении или закрытии книги в Excel?
Предположим, у вас есть несколько рабочих листов, содержащих отфильтрованные данные в вашей книге. Чтобы очистить все фильтры, вам нужно проверить отфильтрованный список на разных листах, а затем очистить их вручную один за другим. Это раздражает! В этой статье мы покажем вам несколько способов очистки фильтров при открытии, сохранении или закрытии книги в Excel.
Очистить фильтры при открытии книги в Excel
Сбросить фильтры при сохранении книги в Excel
Очистить фильтры при закрытии / выходе из книги в Excel
Очистить фильтры при открытии книги в Excel
В этом разделе рассказывается об очистке фильтров на всех листах при открытии книги. Пожалуйста, сделайте следующее.
1. В книге вам нужно автоматически очищать все фильтры при открытии, пожалуйста, нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окно, пожалуйста, дважды щелкните Эта рабочая тетрадь слева Проекты под застройку панели, а затем скопируйте и вставьте приведенный ниже код VBA в ThisWorkbook (Код) окно. Смотрите скриншот:
Код VBA: очистить все фильтры при открытии книги
Private Sub Workbook_Open()
'Updated by Extendoffice 20221012
Dim ws As Worksheet
For Each ws In Worksheets
If ws.AutoFilterMode Then
ws.ShowAllData
End If
Next ws
End Sub
3. нажмите другой + Q ключи для выхода из Microsoft Visual Basic для приложений окно.
4. Нажмите Файл > Сохранить как. В всплывающем Сохранить как диалоговом окне укажите папку для сохранения этой книги, назовите ее как вам нужно в Имя файла , затем выберите Excel Macro-Enabled Workbook из файла Сохранить как раскрывающийся список и, наконец, щелкните Сохраните кнопку.
Отныне при открытии этой книги с поддержкой макросов все фильтры в этой книге будут очищаться автоматически.
Сбросить фильтры при сохранении книги в Excel
Вы можете очищать все фильтры из текущей книги каждый раз, когда сохраняете ее.
1. В книге вам необходимо автоматически удалить все фильтры, нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окно, пожалуйста, дважды щелкните Эта рабочая тетрадь слева Проекты под застройку панели, а затем скопируйте и вставьте приведенный ниже код VBA в ThisWorkbook (Код) окно. Смотрите скриншот:
Код VBA: очистить фильтры при сохранении книги
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
'Updated by Extendoffice 20221012
Dim ws As Worksheet
For Each ws In Worksheets
If ws.AutoFilterMode Then
ws.ShowAllData
End If
Next ws
End Sub
3. Нажмите другой + Q ключи для выхода из Microsoft Visual Basic для приложений окно.
Отныне при сохранении книги все фильтры будут очищаться автоматически.
Очистить фильтры при закрытии / выходе из книги в Excel
В последнем разделе мы покажем вам, как очистить все фильтры на листах при закрытии или выходе из книги.
1. Откройте книгу, из которой необходимо автоматически очистить все фильтры, затем нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окно, пожалуйста, дважды щелкните Эта рабочая тетрадь слева Проекты под застройку панели, а затем скопируйте и вставьте приведенный ниже код VBA в ThisWorkbook (Код) окно. Смотрите скриншот:
Код VBA: очистить все фильтры на листах при закрытии / выходе из книги
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim ws As Worksheet
For Each ws In Worksheets
If ws.AutoFilterMode Then
ws.AutoFilterMode = False
End If
Next ws
End Sub
Внимание: Если вы просто хотите очистить фильтры на текущем листе, используйте приведенный ниже код VBA.
Код VBA: очистить фильтр на активном листе при закрытии книги
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'Updated by Extendoffice 20221012
Dim ws As Worksheet
Set ws = ActiveSheet
If ws.AutoFilterMode Then
ws.ShowAllData
End If
End Sub
3. Нажмите другой + Q ключи для выхода из Microsoft Visual Basic для приложений окно.
С этого момента все фильтры будут очищаться автоматически после нажатия кнопки «Закрыть» в книге.
Статьи по теме:
- Как очистить кеш фильтра (старые элементы) из сводной таблицы в Excel?
- Как удалить фильтры со всех листов в активной книге в Excel?
- Как фильтровать данные по флажку в Excel?
- Как заполнить ряд чисел в столбце отфильтрованного списка в Excel?
Лучшие инструменты для работы в офисе
Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%
- Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма ...
- Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
- Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы... Предотвращение дублирования ячеек; Сравнить диапазоны...
- Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
- Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
- Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии...
- Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом ...
- Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
- Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!






