Как удалить фильтры со всех листов текущей книги в Excel?
При работе с книгой Excel, содержащей несколько листов, фильтры часто применяются на разных листах для эффективного анализа данных. Однако после этого может возникнуть необходимость удалить все фильтры, чтобы вернуть листы в исходное, неотфильтрованное состояние. Выполнять эту задачу вручную — переходя от листа к листу и очищая фильтры по отдельности — не только долго, но и чревато риском пропустить какой-либо лист.
Такая задача часто возникает, когда вы получаете книгу от коллег или объединяете данные из нескольких команд и хотите убедиться, что все фильтры удалены перед началом собственного анализа или подготовкой отчётов для распространения. Ручная обработка каждого листа может оказаться неэффективной — особенно в крупных книгах с десятками листов. Поэтому быстрый и надёжный способ удаления всех фильтров со всех листов вашей текущей книги поможет существенно сэкономить время и усилия, а также минимизировать риск пропустить какие-либо отфильтрованные данные.
Ниже мы предлагаем практичный метод, позволяющий выполнить эту задачу всего за несколько шагов. Для продвинутых или альтернативных подходов — например, с использованием формул или надстроек Excel — ознакомьтесь с дополнительными решениями в конце статьи.
Очистка фильтров со всех листов в Текущая книга с помощью кода VBA
Очистка фильтров со всех листов в Текущая книга с помощью кода VBA
Чтобы быстро и эффективно снять все фильтры со всех листов вашей текущей книги, воспользуйтесь сценарием VBA. Этот метод идеально подходит для пользователей, умеющих запускать макросы в Excel, и особенно эффективен в книгах с разнообразными структурированными данными.
Обязательно сохраните свою работу перед началом — выполнение кода VBA внесёт в книгу массовые изменения.
1. В книге, где необходимо очистить фильтры, одновременно нажмите Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений. Если вы впервые используете Excel, возможно, сначала придётся включить вкладку «Разработчик» через меню параметров.
2. В открывшемся окне Microsoft Visual Basic для приложений выберите Вставка > Модуль, чтобы создать новый модуль. Затем скопируйте и вставьте следующий сценарий VBA в окно модуля. См. скриншот ниже для справки:
Код VBA: Очистка фильтров со всех листов в Текущая книга
Sub Clear_fiter()
'Updated by Extendoffice 20250902
Dim xAF As AutoFilter
Dim xFs As Filters
Dim xLos As ListObjects
Dim xLo As ListObject
Dim xRg As Range
Dim xWs As Worksheet
Dim xIntC, xF1, xF2, xCount As Integer
Application.ScreenUpdating = False
On Error Resume Next
For Each xWs In Application.Worksheets
xWs.ShowAllData
Set xLos = xWs.ListObjects
xCount = xLos.Count
For xF1 = 1 To xCount
Set xLo = xLos.Item(xF1)
Set xRg = xLo.Range
xIntC = xRg.Columns.Count
For xF2 = 1 To xIntC
xLo.Range.AutoFilter Field:=xF2
Next
Next
Next
Application.ScreenUpdating = True
End Sub
3. Нажмите клавишу F5 или кнопку Выполнить, чтобы запустить код. После выполнения все фильтры — как стандартные фильтры диапазонов, так и фильтры таблиц — на всех листах вашей текущей книги будут немедленно удалены.
Обязательно сохраните книгу перед запуском макросов — действия, выполненные с помощью VBA, нельзя отменить с помощью Ctrl+Z.
См. также:
- Как очистить кэш фильтра (устаревшие элементы) в сводной таблице Excel?
- Как очищать фильтры при открытии, сохранении или закрытии книги в Excel?
- Как фильтровать данные в Excel по состоянию флажка?
- Как заполнить последовательность чисел в столбце отфильтрованного списка в Excel?
Лучшие инструменты повышения продуктивности в 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек