Excel для Microsoft 365 Excel 2021 Excel 2019 Excel 2016 Excel 2013 Еще…Меньше
Если определенные данные на нем не находятся, возможно, они скрыты фильтром. Например, если на вашем компьютере есть столбец с датами, в этом столбце может быть фильтр, ограничивающий значения определенными месяцами.
Существует несколько вариантов:
-
Очистка фильтра из определенного столбца
-
Очистка всех фильтров
-
Удаление всех фильтров
Очистка фильтра из столбца
Нажмите кнопку Фильтр рядом с заголовком столбца и выберите очистить фильтр <«Имя столбца»>.
Например, на рисунке ниже показан пример очистки фильтра из столбца «Страна».
Примечание: Удалить фильтры из отдельных столбцов нельзя. Фильтры можно отключать для всего диапазона. Если вы не хотите, чтобы кто-то фильтрует определенный столбец, вы можете скрыть его.
Очистка всех фильтров на
На вкладке Данные нажмите кнопку Очистить.
Как узнать, что к данным был применен фильтр?
Если фильтрация применима к таблице на бумаге, в заголовке столбца вы увидите указанные ниже кнопки.
Кнопка |
Описание |
---|---|
Фильтр доступен и не использовался для сортировки данных в столбце. |
|
Фильтр используется для фильтрации или сортировки данных в столбце. |
На следующем сайте фильтр доступен для столбца «Товар», но еще не использовался. Для сортировки данных использовался фильтр в столбце «Страна».
Удалите все фильтры на листе
Если вы хотите полностью удалить фильтры, перейдите на вкладку Данные и нажмите кнопку Фильтр или используйте клавиши ALT+D+F+F.
Дополнительные сведения
Вы всегда можете задать вопрос специалисту Excel Tech Community или попросить помощи в сообществе Answers community.
См. также
Фильтрация данных с помощью автофильтра
Фильтрация диапазона данных
Сортировка данных на
Нужна дополнительная помощь?
Предположим, вы создали несколько фильтров на разных листах в книге Excel и теперь хотите очистить все эти фильтры сразу. Обычно вам нужно переходить к листу один за другим, чтобы проверить фильтр, а затем очистить его вручную. Есть ли удобный способ очистить фильтры со всех листов в активной книге? Пожалуйста, попробуйте метод, описанный в этой статье.
Очистить фильтры со всех листов в активной книге с кодом VBA
Очистить фильтры со всех листов в активной книге с кодом VBA
Запустите приведенный ниже сценарий VBA, чтобы очистить фильтры со всех листов в активной книге.
1. В книге, из которой нужно очистить фильтры, нажмите кнопку другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте и вставьте приведенный ниже сценарий VBA в окно модуля. См. Снимок экрана ниже:
Код VBA: очистить фильтры со всех листов в активной книге
Sub Clear_fiter()()
'Updated by Extendoffice 20210625
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 ключ для запуска кода. Затем все фильтры на всех листах в текущей книге немедленно очищаются.
Статьи по теме:
- Как очистить кеш фильтра (старые элементы) из сводной таблицы в 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% и сокращает количество щелчков мышью на сотни каждый день!
Комментарии (11)
Оценок пока нет. Оцените первым!
D07 Пользователь Сообщений: 60 |
Добрый день. — ActiveSheet.ShowAllData Я так понимаю, что нужно добавить что то, чтобы при нажатии на кнопку при отсутствии фильтров, он просто вхолостую щелкал и все. Но я в этом ни бум-бум. Помогите пожалуйста. |
SAS888 Пользователь Сообщений: 757 |
#2 01.03.2018 06:36:09 Если требуется «Отобразить все» не зависимо от того, применен автофильтр или нет, то можно так:
Если же требуется вообще удалить автофильтр с листа, то так:
Чем шире угол зрения, тем он тупее. |
||||
D07 Пользователь Сообщений: 60 |
«Если требуется «Отобразить все» не зависимо от того, применен автофильтр или нет, то можно так:» Да, Вы меня правильно поняли. Вставил в макрос — не работает . Выдает ту же ошибку в той же строке |
D07 Пользователь Сообщений: 60 |
Прошу прощения — это я балбес. Нужно было разнести по разным строкам |
DopplerEffect Пользователь Сообщений: 527 |
#5 01.03.2018 07:45:56
Этот код должен работать, сам проверял в работе, а выложите пример файла. |
||
ZVI Пользователь Сообщений: 4328 |
#6 01.03.2018 07:53:18
Или так: If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData |
||
D07 Пользователь Сообщений: 60 |
#7 01.03.2018 11:26:33
Все работает, я просто невнимательно сделал первый раз. |
||
adamm Пользователь Сообщений: 830 |
#8 04.11.2019 09:51:03 Всем привет!
, но после снятия всех фильтров в заголовках остаются кнопки, вроде как фильтр не снят, но на само деле снят, как можно исправить Прикрепленные файлы
|
||
skais675 Пользователь Сообщений: 2177 |
#9 04.11.2019 10:07:26
Мой канал |
||
adamm Пользователь Сообщений: 830 |
#10 04.11.2019 10:29:01 skais675, спасибо, я нашёл вот такой код, http://qaru.site/questions/228230/removing-filters-for-each-table-in-a-workbook-vba/1202718#1202718 :
Ваш код, то же работает, но в чём разница? |
||
Jack Famous Пользователь Сообщений: 10846 OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome |
#11 04.11.2019 10:43:16 Хорошая справка по работе с фильтрами
очень плохая идея Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄ |
||
skais675 Пользователь Сообщений: 2177 |
#12 04.11.2019 10:55:17 В дополнении темы — полное удаление фильтров
Мой канал |
||
adamm Пользователь Сообщений: 830 |
#13 04.11.2019 11:03:05
Ситуация так требует, данные таблицы являются промежуточным звеном, выгружаются они из PQ, а к ним привязаны формулы |
||
RAN Пользователь Сообщений: 7091 |
#14 04.11.2019 13:24:26 Вам нужно удалить фильтры, или сбросить?
|
||
geniux Пользователь Сообщений: 5 |
я пользуюсь таким кодом, если нужно сбросить фильтры на одном листе или несколько (нужно добавить кнопку) Private Sub CommandButton1_Click() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets End Sub |
Юрий М Модератор Сообщений: 60570 Контакты см. в профиле |
#16 05.11.2019 00:03:51 geniux, Вы видели, как код выглядит у других? |
Очистка и удаление фильтра
Смотрите также кнопку повесил, всёЛМВ ктрл А, ктрл + ‘(апостроф) Список формулыУдерживайте Shift + шрифта следующий листCtrl + N: Добрый день!Новый фильтр будет применен,на вкладке. фильтрацию сразу поProduct командуПримечание: здорово.: А зачем макросом? З, ктрл П
Клетки с комментариямиCtrl +; (с Стрелка Выделить внизCtrl + ShiftCtrl + Page Новый файлУ меня возник а в таблицеГлавнаяВ заголовках каждого столбца
нескольким столбцам, а
-
, но онУдалить фильтр с
-
Мы стараемся как можно
-
Вот макрос по
Удаление фильтра из столбца
Есть же стандартнаяАлексей житник Alt + Ctrl запятой) Вставка датыКопирование и перемещение + P Выберите Up Перейти на
Ctrl + O опрос. Можно ли останутся только ноутбуки. появятся кнопки со также удалять фильтры.
еще не используется.. оперативнее обеспечивать вас значению ячейки: команда/инструмент [Очистить].: Вот сюда загляните + 1 формат в текущей ячейки текста размер предыдущий лист
Удаление всех фильтров на листе
Открыть файл с клавиатуры (комбинации и планшеты, которыеФильтры в Excel могут стрелкой.
Как узнать, что к данным был применен фильтр?
Если Ваша таблица содержит Для сортировки данныхНапример, на рисунке ниже актуальными справочными материаламиSub Sort()
Снимает все фильтры.
большая подборка горячих ячейки числовойCtrl + ShiftCtrl + X |
|
Ctrl + ShiftCtrl + HomeCtrl + S |
клавиш) открыть список были отданы на суммироваться. Это означает,Нажмите на такую кнопку большой объем данных, используется фильтр в показан пример снятия на вашем языке.’ Call theНо если надо
Удалите все фильтры на листе
клавиш для MicrosoftAlt + Ctrl +; Установите время Вырезать + 4 Формат Перейти к первой Сохранить файл фильтра в таблице проверку в августе. что Вы можете в столбце, который
См. также
могут возникнуть затруднения столбце «
фильтра из столбца
Эта страница переведена
support.office.com
Фильтр в Excel – основные сведения
built-in filter option макросом — тогда Excel kaknastroit.com/windows/116-goryachie-klavishi-bystrogo-dostupa-v-excel.html + 2 формат в текущей ячейкиCtrl + C как валюта ячейке области данныхCtrl + F6 в экселе?После применения фильтра рано применить несколько фильтров необходимо отфильтровать. В при поиске нужнойстрана « автоматически, поэтому ее to filter onSub МакросСнятьФильтры()Stealthy
ячейки времяCtrl + Стрелка КопироватьCtrl + ShiftCtrl + End Перемещение между открытымиZ или поздно возникнет к одной таблице, нашем случае мы
Применение фильтра в Excel
информации. Фильтры используются».страна текст может содержать ACellActiveSheet.ShowAllData: Добрый день!
- Alt + Ctrl влево Первое значениеCtrl + V
+ # формат, Перейти к последней книги: Alt+стрелка вниз… Как необходимость снять или чтобы сузить результаты применим фильтр к для того, чтобыЕсли вы хотите полностью». неточности и грамматическиеApplication.CommandBars(«Cell»).FindControl(ID:=12232, Recursive:=True).ExecuteEnd Sub
- Подскажите какой должен + 3 формат слева Вставить как общие (для
- ячейке области данныхCtrl + F4 вариант…
- удалить его, чтобы фильтрации. В прошлом столбцу В, чтобы сузить количество данных, удалить фильтры, перейдитеПримечание: ошибки. Для насEnd Sub
- Baronello
- быть макрос чтобы ячейки датаCtrl + СтрелкаРазное устранения каких-либо форматирования)
- Форматирование текста в Закрыть файлkav2017 отфильтровать содержимое другим примере мы уже увидеть только нужные отображаемых на листе на вкладку Вы не можете удалить важно, чтобы этаЕсли ID:=12232 поменять: Перерыл гугл, этот
- снять все фильтраAlt + Ctrl вправо Первое значениеCtrl + FCtrl + Shift РабочемF12 Сохранить как
: А кто знает образом. отфильтровали таблицу, отобразив типы оборудования. Excel, позволяя видетьданные
Применение нескольких фильтров в Excel
фильтры из отдельных статья была вам на ID представленные сайт, смотрел ютуб, умной таблицы Ексель + 4 формат справа Найти текст + 5 ФорматCtrl + BCtrl + P какой командой клавиатурыНажмите на кнопку со только ноутбуки иПоявится меню фильтра. только нужную информацию.и нажмите кнопку
- столбцов. Фильтры могут полезна. Просим вас ниже то будет испробовал кучу комбинаций, 2007. ячейки денежныйCtrl + СтрелкаCtrl + H
- в процентах
- Полужирный шрифт для печати можно выбрать (отмечать стрелкой в столбце, планшеты. Теперь нашаСнимите флажокВ следующем примере мыФильтр быть включены для уделить пару секунд сортировать по цвету.
- макросов и ничегоЯ записал сCtrl + Shift вниз Первое значение Заменить текст диалоговогоCtrl + Shift
Снятие фильтра в Excel
Ctrl + ICtrl + A галочкой) значения в с которого необходимо задача сузить данныеВыделить все
- применим фильтр кили используйте сочетание всего диапазона или и сообщить, помогла12233 — по не подошло. В помощью рекордера:
- + A Автоматический
- снизуF11 Создать диаграмму + 1 формате, Italic шрифт Выделить все выпадающем фильтре? снять фильтр. В
- еще больше и, чтобы быстро снять журналу учета эксплуатации клавиш
выключены. Если вы ли она вам, цвету ячейки списках хоткеев толькоPrivate Sub CommandButton1_Click() фильтрCtrl + Стрелка
автоматически на новом
office-guru.ru
Открыть список фильтра комбинацией клавиш
что и числоCtrl + U
Ctrl + Пробелvikttur нашем примере мы показать только ноутбуки выделение со всех оборудования, чтобы отобразить
ALT + D + не хотите, чтобы с помощью кнопок
12234 — по выпадающий список соActiveSheet.ListObjects(«Таблица1»).Range.AutoFilter Field:=2, Criteria1:=Ctrl + Insert вверх Первое значение листе
Редактирование / удаление Подчеркнутый шрифт Выбор колонки: Вопрос не по
удалим фильтр со и планшеты, отданные пунктов. только ноутбуки и f + f кто-то отфильтровать определенный внизу страницы. Для цвету шрифта всеми контрагентами на _
planetaexcel.ru
Основные горячие клавиши Excel, кто знает?
+ F4 Закрыть сверхуShift + F2
текстаCtrl + 5Shift + Пробел теме. Создайте отдельную столбца D.
на проверку вУстановите флажки для тех
планшеты, доступные для.
столбец, его можно удобства также приводим
Надеюсь кому-нибудь поможет, alt+вниз, толку от
»Столбец 1″ Управление помощникомCtrl + Shift
Изменить ячейку комментарийDelete Удалить один
Зачеркнутый шрифт
Выбор строки тему
Появится меню фильтра. августе.
типов оборудования, которые проверки.
Фильтрация данных с помощью скрыть.
ссылку на оригинал столько времени искал,
этого естественно никакого.End Sub
Вставка текста автоматически + 8 Выбор
Оставшиеся клавиши в символ вправо
Ctrl + Shift
Ctrl + ZThe_Prist
Выберите пунктНажмите на кнопку со необходимо оставить в
Выделите любую ячейку в автофильтра
На вкладке (на английском языке).
создал тему иМне нужно, чтобыPrivate Sub CommandButton2_Click()
Alt + знак данных региона Excel
Backspace Удалить символ + F сменить Отменить последнее действие
: Да ладно, Вить.Удалить фильтр из столбца… стрелкой в столбце,
таблице, затем нажмите таблице, например, ячейку
Фильтрация диапазона данныхДанные
Если на листе не нашел. :)
я нажал наActiveSheet.ListObjects(«Таблица1»).Range.AutoFilter Field:=2, Criteria1:=
равенства автосумма диапазонаCtrl + F2
Ctrl + Shift слева шрифт
Ctrl + Y Вопросы-то свзяаны поВ нашем примере
который необходимо отфильтровать.OK A2.
Сортировка данных на листенажмите кнопку удается найти определенные
Baronello ячейку, нажал на _
ячеек
Заметка + V Скажет
F2 изменения активнойCtrl + Shift Повторить последнее действие
сути. Пробелом можно мы удалим фильтр В данном случае
. В нашем примереЧтобы фильтрация в ExcelФильтрация данных в Excel
Очистить данные, возможно, он: Тогда другой вопрос, макроклавишу на клавиатуре
»Столбец 2″Ctrl +; (сF7 Проверка правописания
версию Excel ячейки + P Изменение
Равно (=) Старт изменять состоянием флажка.
из столбца мы применим дополнительный
мы выберем работала корректно, лист
позволяет отобразить среди.
скрыт фильтром. Например, после этого макроса
и мне отсортировало
End Sub запятой) Установите дату
Alt + ShiftCtrl + Page
Пробел удаление и размера шрифта
формулы Alt+стрелка вниз, стрелкой
Отдано на проверку фильтр к столбцу
Ноутбуки должен содержать строку
большого объема информацииЕсли фильтрация применяется к
если у вас не работает кнопка
по значению столбецPrivate Sub CommandButton3_Click()
Ctrl + Shift + G Доклад
Down для перехода изменения активной ячейки
Ctrl + Shift
Alt + F4 добрались до списка,
. D, чтобы просмотреть
и заголовка, которая используется только ту, что
таблице на листе, есть столбец дат
отменить, но работает выделенной ячейки. Помогите
ActiveSheet.ListObjects(«Таблица1»).Range.AutoFilter Field:=2, Criteria1:= +; Установите время Gridline Статуса
к следующему листуЯчейки + 7 Применить
Выйти опять стрелкой выбралиФильтр будет удален, а
информацию по дате.Планшеты для задания имени
Вам в данный в заголовке столбца на листе, этот
кнтр+шифт+в которая отменяет пожалуйста. D:
_Ctrl + Shift
Alt + ShiftCtrl + PageCtrl + A
наброски границГорячие клавиши навигации нужный элемент -
скрытые ранее данныеПоявится меню фильтра., чтобы видеть только
каждого столбца. В момент необходима. Например, отображается одно из
столбец может содержать сортировку.Baronello
»Столбец 3″ + (плюс) Добавление + C Скажем
Up Переместить До Выделить все таблицыCtrl + Shift
Tab Перейти к нажали пробел.
вновь отобразятся на
Установите или снимите флажки эти типы оборудования. следующем примере данные
имея перед собой этих кнопок: фильтр, ограничивающий значения
1) Можно ли: Вот, нашел такойEnd Sub
колонок / рядов Колонка Название листа
Shift + Пробел + Подчеркивание Удалить
следующей ячейке строкиЧем вы пользуетесь для листе Excel.
с пунктов вТаблица с данными будет на листе организованы
многотысячный список товаровОписание конкретными месяцами.
сделать так чтобы макрос, но онНо, если столбцов
Shift + F11Alt + ShiftCtrl + G
Выделение полной строки все границыShift + Tab
ускорения работы вЧтобы удалить все фильтры зависимости от данных,
отфильтрована, временно скрыв
в виде столбцов крупного гипермаркета, ВыФильтр доступен, и он
Существует несколько вариантов: не гасла кнопка
фильтрует по цвету. таблицы много, то
Вставить новый лист + R Скажем Перейти к ячейке
Ctrl + ПробелAlt + Enter
Перейти к предыдущей Екселе? Напишите пожалуйста. в таблице Excel, которые необходимо отфильтровать, все содержимое, не с заголовками в можете выделить из еще не использовалсяОчистка фильтра по определенному
отменить? Подставляю другой ID он достаточно долгоArman papikyan строке название
VBA. Снять все фильтры таблицы одним нажатием
команда Выберите весь столбец
свернуть текст в ячейке строкиДавно уже все щелкните команду затем нажмите
соответствующее критерию. В строке 1: ID
него только шампуни
для сортировки данных столбцу
2) Можно ли
и тоже самое.
выполняется. Есть альтернатива?
: все основные клавишиAlt + Shift
Shift + Backspace
Удерживайте Shift +
ячейке
Page Up Вверх забыла, а теперь
Фильтр
OK
нашем примере только #, Тип, Описание или крема, а в столбце.
Очистка всех фильтров сделать так чтобы
q_qnerv
и в фотошопе
+ V Скажем Свернуть выбор активной Стрелка Выделить влевоФорматирование ячейки
на один экран
работаю с нимна вкладке
. Мы снимем выделение
ноутбуки и планшеты
оборудования и т.д.
planetaexcel.ru
Горячая клавиша на фильтр по значению.
остальное временно скрыть.Фильтр используется для фильтрацииУдаление всех фильтров после отмены выделенияBaronello: ShowAllData и в экзеле видимом диапазоне Координаты ячейкиУдерживайте Shift +Ctrl + 1
Page Down Down и вспонимаю наугадДанные со всех пунктов, остались видимыми.Откройте вкладку В этом уроке или сортировки данных
Нажмите кнопку он показывал конец,: Видимо я неStealthy и в вордеShift + TabAlt + Равно
Стрелка Выделить вправо Формат ячеек одном экране :). кроме
Фильтрацию можно также применить,Данные
мы научимся применять
в столбце.Фильтр а не середину сохранил всё. Подставление
: То, что надо!
одни и те
Tab обратно AutoSumУдерживайте Shift +Ctrl + Shift
Ctrl + PageАнастасия фамилия
Автор: Антон Андроновавгуста
выбрав команду, затем нажмите команду фильтры к спискамНа следующем листе фильтр
рядом с заголовком или начало страницы? ID работает. НаСпасибо! же… делет, интер,Ctrl + ShiftРавно Знак Режим
Стрелка Выделить вверх + F Выбор Down Перейти на: Генеральные
H5455.Сортировка и фильтрФильтр в Excel, задавать доступен для столбца
planetaexcel.ru
столбца и выберите
На чтение 4 мин. Просмотров 14.2k.
Итог: узнайте, как очистить все фильтры и фильтры в одном столбце с помощью макросов VBA. Включает примеры кода для регулярных диапазонов и таблиц Excel.
Уровень мастерства: Средний
Содержание
- Скачать файл
- Очистить все фильтры из диапазона
- Ошибка метода ShowAllData
- Очистить все фильтры из таблицы Excel
- Очистить все фильтры во всех таблицах на листе
- Очистить фильтры в одной колонке
- Фильтры и типы данных
Скачать файл
Файл Excel, содержащий код, можно скачать ниже. Этот файл содержит код для фильтрации различных типов данных и типов фильтров. Пожалуйста, ознакомьтесь с моей статьей Фильтрация сводной таблицы или среза по самой последней дате или периоду для более подробной информации.
VBA AutoFilters Guide.xlsm (100.5 KB)
Очистить все фильтры из диапазона
Мы используем метод ShowAllData, чтобы очистить все фильтры,
примененные к диапазону.
Это аналогично нажатию кнопки «Очистить» на вкладке «Данные»
на ленте (сочетание клавиш: Alt, A, C)
К рабочему листу может быть применен только один диапазон
фильтров, поэтому мы на самом деле очищаем фильтры на листе.
Sub Clear_All_Filters_Range() ' Для очистки всех фильтров используйте метод ShowAllData ' для листа. Добавьте обработку ошибок, чтобы обойти ошибку, если ' фильтры не применяются. Не работает для таблиц. On Error Resume Next Sheet1.ShowAllData On Error GoTo 0 End Sub
Ошибка метода ShowAllData
Если к любому столбцу не применены фильтры, метод ShowAllData вызовет ошибку. Это ошибка времени выполнения ‘1004 с описанием:
Method ‘ShowAllData’ of object ‘_Worksheet’ failed.
Следующая строка On Error Resume Next будет игнорировать эту
ошибку. При ошибке GoTo 0 сбрасывается, поэтому ошибки возникают в любых
строках кода ниже.
Примечание. Когда метод ShowAllData упоминается как элемент листа, он НЕ очищает фильтры, которые применяются к таблицам Excel (ListObjects), если в таблице не выбрана ячейка. Поэтому лучше всего использовать приведенный ниже код для таблиц.
Чтобы очистить все фильтры таблицы Excel (ListObject), мы
также используем метод ShowAllData. В этом случае ShowAllData является членом
свойства AutoFilter объекта ListObject.
Sub Clear_All_Filters_Table() Dim lo As ListObject ' Установить ссылку на первую таблицу на листе Set lo = Sheet1.ListObjects(1) ' Очистить все фильтры для всей таблицы lo.AutoFilter.ShowAllData End Sub
Очистить все фильтры во всех таблицах на листе
Приведенный выше код удаляет фильтры только для одной
таблицы. Мы можем просмотреть таблицы на листе, чтобы удалить все фильтры из
каждой таблицы.
Sub Clear_All_Table_Filters_On_Sheet() Dim lo As ListObject ' Перебрать все таблицы на листе For Each lo In Sheet1.ListObjects ' Очистить все фильтры для всей таблицы lo.AutoFilter.ShowAllData Next lo End Sub
Очистить фильтры в одной колонке
Чтобы очистить фильтры для одного столбца, мы используем
метод AutoFilter. Мы ссылаемся только на параметр Field и устанавливаем
значение для номера столбца, который мы хотим очистить.
Sub Clear_Column_Filter_Range() ' Чтобы очистить фильтр от одного столбца, укажите ' Только номер поля и никаких других параметров Sheet1.Range("B3:G1000").AutoFilter Field:=4 End Sub
Поле — это номер столбца диапазона, к которому применяются
фильтры, а не номер столбца рабочего листа.
Тот же метод используется для очистки фильтров, примененных
к столбцу в таблице. В этом случае метод AutoFilter является членом объекта
Range объекта ListObject.
Sub Clear_Column_Filter_Table() Dim lo As ListObject ' Установить ссылку на первую таблицу на листе Set lo = Sheet1.ListObjects(1) ' Очистить фильтр в столбце одной таблицы, ' указав только параметр поля lo.Range.AutoFilter Field:=4 End Sub
Фильтры и типы данных
Параметры
раскрывающегося меню фильтра изменяются в зависимости от типа данных в столбце.
У нас есть разные фильтры для текста, чисел, дат и цветов. Это создает МНОГО
различных комбинаций операторов и критериев для каждого типа фильтра.
Я создал отдельные статьи для каждого из этих типов фильтров. Статьи содержат пояснения и примеры кода VBA.
- Как фильтровать числа с помощью VBA
- Как отфильтровать пустые и непустые ячейки
- Как фильтровать текст с помощью VBA
- Как отфильтровать даты по VBA
- Как отфильтровать цвета и значки с помощью VBA
Файл в разделе загрузок выше содержит все эти примеры кода в одном месте. Вы можете добавить его в свою личную книгу макросов и использовать макросы в своих проектах.
Пожалуйста, оставьте
комментарий ниже с любыми вопросами или предложениями. Спасибо!