Excel как снять все фильтры в книге

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-дневная гарантия возврата денег.

вкладка kte 201905


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

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

офисный дно

Комментарии (11)


Оценок пока нет. Оцените первым!

 

D07

Пользователь

Сообщений: 60
Регистрация: 06.06.2014

Добрый день.
Вопрос копеечный для тех, кто понимает. В архиве даже была такая тема, но там нет ответа на мой вопрос.
Через рекордер макросов записал простейший макрос на снятие фильтров через кнопку Данные-Очистить.
Завел макрос на кнопку. Макрос работает, если включены фильтры. Нет вопросов. А вот если нажать кнопку, когда фильтров нет — он выдает ошибку вот в этой (и единственной :) ) строке макроса

— ActiveSheet.ShowAllData

Я так понимаю, что нужно добавить что то, чтобы при нажатии на кнопку при отсутствии фильтров, он просто вхолостую щелкал и все. Но я в этом ни бум-бум. Помогите пожалуйста.

 

SAS888

Пользователь

Сообщений: 757
Регистрация: 01.01.1970

#2

01.03.2018 06:36:09

Если требуется «Отобразить все» не зависимо от того, применен автофильтр или нет, то можно так:

Код
On Error Resume Next: ActiveSheet.ShowAllData: On Error GoTo 0

Если же требуется вообще удалить автофильтр с листа, то так:

Код
ActiveSheet.AutoFilterMode = False

Чем шире угол зрения, тем он тупее.

 

D07

Пользователь

Сообщений: 60
Регистрация: 06.06.2014

«Если требуется «Отобразить все» не зависимо от того, применен автофильтр или нет, то можно так:»

Да, Вы меня правильно поняли. Вставил в макрос — не работает :(. Выдает ту же ошибку в той же строке

 

D07

Пользователь

Сообщений: 60
Регистрация: 06.06.2014

Прошу прощения — это я балбес. Нужно было разнести по разным строкам :)
Спасибо, заработало!

 

DopplerEffect

Пользователь

Сообщений: 527
Регистрация: 14.08.2017

#5

01.03.2018 07:45:56

Код
ActiveSheet.AutoFilterMode = False

Этот код должен работать, сам проверял в работе, а выложите пример файла.  

 

ZVI

Пользователь

Сообщений: 4328
Регистрация: 23.12.2012

#6

01.03.2018 07:53:18

Цитата
SAS888 написал: On Error Resume Next: ActiveSheet.ShowAllData: On Error GoTo 0

Или так: If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
Но если строки скрыты вручную или фильтром т.н. «умной» таблицы, то нужно уже так: Cells.Rows.Hidden = False

 

D07

Пользователь

Сообщений: 60
Регистрация: 06.06.2014

#7

01.03.2018 11:26:33

Цитата
DopplerEffect написал:
Этот код должен работать, сам проверял в работе, а выложите пример файла.  

Все работает, я просто невнимательно сделал первый раз.

 

adamm

Пользователь

Сообщений: 830
Регистрация: 29.12.2015

#8

04.11.2019 09:51:03

Всем привет!
Столкнулся почти с аналогичной задачей, так, что не стал создавать отдельную тему, суть следующая есть несколько умных таблиц размещённых на одном листе, нужно снять все фильтры со всех разом, данный код работает:

Код
Cells.Rows.Hidden = False

, но после снятия всех фильтров в заголовках остаются кнопки, вроде как фильтр не снят, но на само деле снят, как можно исправить

Прикрепленные файлы

  • Пример.xlsm (14.69 КБ)

 

skais675

Пользователь

Сообщений: 2177
Регистрация: 03.06.2014

#9

04.11.2019 10:07:26

Код
Sub Button1_Click()
     With ActiveSheet
        For Each lo In .ListObjects
            lo.AutoFilter.ShowAllData
        Next
     End With
End Sub

Мой канал

 

adamm

Пользователь

Сообщений: 830
Регистрация: 29.12.2015

#10

04.11.2019 10:29:01

skais675, спасибо, я нашёл вот такой код,

http://qaru.site/questions/228230/removing-filters-for-each-table-in-a-workbook-vba/1202718#1202718

:

Код
Sub ResetFilters()
    Dim ws                    As Worksheet
    Dim wb                    As Workbook
    Dim listObj               As ListObject

    For Each ws In ActiveWorkbook.Worksheets
        For Each listObj In ws.ListObjects
            If listObj.ShowHeaders Then
                listObj.AutoFilter.ShowAllData
                listObj.Sort.SortFields.Clear
            End If
        Next listObj
    Next ws
End Sub

Ваш код, то же работает, но в чём разница?

 

Jack Famous

Пользователь

Сообщений: 10846
Регистрация: 07.11.2014

OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome

#11

04.11.2019 10:43:16

Хорошая справка по работе с фильтрами

Цитата
adamm: несколько умных таблиц размещённых на одном листе

очень плохая идея

Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄

 

skais675

Пользователь

Сообщений: 2177
Регистрация: 03.06.2014

#12

04.11.2019 10:55:17

В дополнении темы — полное удаление фильтров

Код
Sub RemoveFilters()
    For Each lo In ActiveSheet.ListObjects
        If lo.ShowAutoFilter Then lo.ShowAutoFilter = False
    Next lo
End Sub

Мой канал

 

adamm

Пользователь

Сообщений: 830
Регистрация: 29.12.2015

#13

04.11.2019 11:03:05

Цитата
Jack Famous написал:
очень плохая идея

Ситуация так требует, данные таблицы являются промежуточным звеном, выгружаются они из PQ, а к ним привязаны формулы
Хотя вопрос не в этом, решение есть спасибо skais675,

 

RAN

Пользователь

Сообщений: 7091
Регистрация: 21.12.2012

#14

04.11.2019 13:24:26

Вам нужно удалить фильтры, или сбросить?
Если сбросить, то

Код
Sub RemoveFilters()
    For Each lo In ActiveSheet.ListObjects
        lo.ShowAutoFilter = False
        lo.ShowAutoFilter = True
    Next lo
End Sub
 

geniux

Пользователь

Сообщений: 5
Регистрация: 17.10.2019

я пользуюсь таким кодом, если нужно сбросить фильтры на одном листе или несколько (нужно добавить кнопку)

Private Sub CommandButton1_Click()

  Dim ws As Worksheet

       For Each ws In ThisWorkbook.Worksheets
   On Error Resume Next
   If ws.AutoFilterMode Then
       ws.AutoFilterMode = False
   End If
   Next ws

   End Sub

 

Юрий М

Модератор

Сообщений: 60570
Регистрация: 14.09.2012

Контакты см. в профиле

#16

05.11.2019 00:03:51

geniux, Вы видели, как код выглядит у других?

Очистка и удаление фильтра

​Смотрите также​​ кнопку повесил, всё​ЛМВ​ ктрл А, ктрл​ + ‘(апостроф) Список​ формулы​Удерживайте Shift +​ шрифта​ следующий лист​Ctrl + N​: Добрый день!​Новый фильтр будет применен,​на вкладке​.​ фильтрацию сразу по​Product​ команду​Примечание:​ здорово.​: А зачем макросом?​ З, ктрл П​

​ Клетки с комментариями​Ctrl +; (с​ Стрелка Выделить вниз​Ctrl + Shift​Ctrl + Page​ Новый файл​У меня возник​ а в таблице​Главная​В заголовках каждого столбца​

​ нескольким столбцам, а​

  • ​, но он​Удалить фильтр с​

  • ​ Мы стараемся как можно​

  • ​Вот макрос по​

Удаление фильтра из столбца

​ Есть же стандартная​​Алексей житник​ Значок примененного фильтра​Alt + Ctrl​ запятой) Вставка даты​Копирование и перемещение​​ + P Выберите​​ Up Перейти на​

​Ctrl + O​ опрос. Можно ли​ останутся только ноутбуки​.​​ появятся кнопки со​​ также удалять фильтры.​

Кнопка

​ еще не используется.​​.​ оперативнее обеспечивать вас​ значению ячейки:​ команда/инструмент [Очистить].​: Вот сюда загляните​ + 1 формат​ в текущей ячейки​ текста​ размер​ предыдущий лист​

Удаление всех фильтров на листе

​ Открыть файл​​ с клавиатуры (комбинации​​ и планшеты, которые​​Фильтры в Excel могут​​ стрелкой.​

Кнопка

Как узнать, что к данным был применен фильтр?

​Если Ваша таблица содержит​ Для сортировки данных​Например, на рисунке ниже​ актуальными справочными материалами​Sub Sort()​

​Снимает все фильтры.​

Стрелка раскрывающегося списка фильтра

​ большая подборка горячих​ ячейки числовой​Ctrl + Shift​Ctrl + X​

Значок примененного фильтра

​Ctrl + Shift​Ctrl + Home​Ctrl + S​

​ клавиш) открыть список​ были отданы на​​ суммироваться. Это означает,​​Нажмите на такую кнопку​ большой объем данных,​ используется фильтр в​ показан пример снятия​ на вашем языке.​​’ Call the​​Но если надо​

Примененные фильтры

Удалите все фильтры на листе

​ клавиш для Microsoft​Alt + 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 on​Sub МакросСнятьФильтры()​Stealthy​

​ ячейки время​Ctrl + Стрелка​ Копировать​Ctrl + Shift​Ctrl + End​ Перемещение между открытыми​Z​ или поздно возникнет​ к одной таблице,​ нашем случае мы​

Применение фильтра в Excel

​ информации. Фильтры используются​».​страна​ текст может содержать​ ACell​ActiveSheet.ShowAllData​: Добрый день!​

  1. ​Alt + Ctrl​ влево Первое значение​Ctrl + V​

​ + # формат,​ Перейти к последней​ книги​: Alt+стрелка вниз… Как​ необходимость снять или​ чтобы сузить результаты​ применим фильтр к​ для того, чтобы​Если вы хотите полностью​».​ неточности и грамматические​Application.CommandBars(«Cell»).FindControl(ID:=12232, Recursive:=True).Execute​End Sub​

  1. Фильтр в Excel
  2. ​Подскажите какой должен​​ + 3 формат​​ слева​​ Вставить​​ как общие (для​Фильтр в Excel
  3. ​ ячейке области данных​Ctrl + F4​ вариант…​
  4. ​ удалить его, чтобы​ фильтрации. В прошлом​ столбцу В, чтобы​ сузить количество данных,​ удалить фильтры, перейдите​Примечание:​ ошибки. Для нас​End Sub​Фильтр в Excel
  5. ​Baronello​
  6. ​ быть макрос чтобы​​ ячейки дата​​Ctrl + Стрелка​Разное​ устранения каких-либо форматирования)​Фильтр в Excel
  7. ​Форматирование текста в​ Закрыть файл​kav2017​ отфильтровать содержимое другим​​ примере мы уже​​ увидеть только нужные​ отображаемых на листе​​ на вкладку​​ Вы не можете удалить​​ важно, чтобы эта​​Если ID:=12232 поменять​: Перерыл гугл, этот​Фильтр в Excel
  8. ​ снять все фильтра​Alt + Ctrl​ вправо Первое значение​Ctrl + F​Ctrl + Shift​ Рабочем​F12 Сохранить как​Фильтр в Excel

​: А кто знает​ образом.​​ отфильтровали таблицу, отобразив​​ типы оборудования.​​ Excel, позволяя видеть​​данные​

Фильтр в Excel

Применение нескольких фильтров в Excel

​ фильтры из отдельных​ статья была вам​ на ID представленные​ сайт, смотрел ютуб,​ умной таблицы Ексель​ + 4 формат​ справа​ Найти текст​ + 5 Формат​Ctrl + B​Ctrl + P​ какой командой клавиатуры​Нажмите на кнопку со​ только ноутбуки и​Появится меню фильтра.​ только нужную информацию.​и нажмите кнопку​

  1. ​ столбцов. Фильтры могут​ полезна. Просим вас​ ниже то будет​ испробовал кучу комбинаций,​ 2007.​ ячейки денежный​Ctrl + Стрелка​Ctrl + H​Фильтр в Excel
  2. ​ в процентах​
  3. ​ Полужирный шрифт​ для печати​ можно выбрать (отмечать​ стрелкой в столбце,​ планшеты. Теперь наша​​Снимите флажок​​В следующем примере мы​Фильтр​ быть включены для​​ уделить пару секунд​​ сортировать по цвету.​Фильтр в Excel
  4. ​ макросов и ничего​Я записал с​Ctrl + Shift​ вниз Первое значение​ Заменить текст диалогового​Ctrl + Shift​Фильтр в Excel

Снятие фильтра в Excel

​Ctrl + I​Ctrl + A​ галочкой) значения в​ с которого необходимо​ задача сузить данные​Выделить все​

  1. ​ применим фильтр к​или используйте сочетание​ всего диапазона или​ и сообщить, помогла​12233 — по​ не подошло. В​ помощью рекордера:​Фильтр в Excel
  2. ​ + A Автоматический​
  3. ​ снизу​​F11 Создать диаграмму​​ + 1 формате,​ Italic шрифт​ Выделить все​​ выпадающем фильтре?​​ снять фильтр. В​Фильтр в Excel
  4. ​ еще больше и​, чтобы быстро снять​ журналу учета эксплуатации​ клавиш​Фильтр в Excel

​ выключены. Если вы​ ли она вам,​ цвету ячейки​​ списках хоткеев только​​Private Sub CommandButton1_Click()​​ фильтр​​Ctrl + Стрелка​

Фильтр в Excel

​ автоматически на новом​

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 + 5​Shift + Пробел​ теме. Создайте отдельную​ столбца D.​

​ на проверку в​​Установите флажки для тех​
​ планшеты, доступные для​.​
​ столбец, его можно​ удобства также приводим​
​Надеюсь кому-нибудь поможет,​ alt+вниз, толку от​
​»Столбец 1″​ Управление помощником​Ctrl + Shift​
​ Изменить ячейку комментарий​Delete Удалить один​
​ Зачеркнутый шрифт​
​ Выбор строки​ тему​
​Появится меню фильтра.​ августе.​
​ типов оборудования, которые​ проверки.​
​Фильтрация данных с помощью​ скрыть.​
​ ссылку на оригинал​ столько времени искал,​
​ этого естественно никакого.​End Sub​
​Вставка текста автоматически​ + 8 Выбор​
​Оставшиеся клавиши в​ символ вправо​
​Ctrl + Shift​
​Ctrl + Z​The_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 + Shift​Ctrl + 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 + Shift​Ctrl + Page​Ctrl + A​
​ наброски границ​Горячие клавиши навигации​ нужный элемент -​
​ скрытые ранее данные​Появится меню фильтра.​, чтобы видеть только​
​ каждого столбца. В​ момент необходима. Например,​ отображается одно из​
​ столбец может содержать​ сортировку.​Baronello​
​»Столбец 3″​ + (плюс) Добавление​ + C Скажем​
​ Up Переместить До​ Выделить все таблицы​Ctrl + Shift​
​Tab Перейти к​ нажали пробел.​
​ вновь отобразятся на​
​Установите или снимите флажки​ эти типы оборудования.​ следующем примере данные​
​ имея перед собой​ этих кнопок:​ фильтр, ограничивающий значения​
​1) Можно ли​: Вот, нашел такой​End Sub​
​ колонок / рядов​ Колонка Название​ листа​
​Shift + Пробел​ + Подчеркивание Удалить​
​ следующей ячейке строки​Чем вы пользуетесь для​ листе Excel.​
​ с пунктов в​Таблица с данными будет​ на листе организованы​
​ многотысячный список товаров​Описание​ конкретными месяцами.​
​ сделать так чтобы​ макрос, но он​Но, если столбцов​
​Shift + F11​Alt + Shift​Ctrl + G​
​ Выделение полной строки​ все границы​Shift + Tab​
​ ускорения работы в​Чтобы удалить все фильтры​ зависимости от данных,​
​ отфильтрована, временно скрыв​
​ в виде столбцов​ крупного гипермаркета, Вы​Фильтр доступен, и он​
​Существует несколько вариантов:​ не гасла кнопка​
​ фильтрует по цвету.​ таблицы много, то​
​ Вставить новый лист​ + R Скажем​ Перейти к ячейке​
​Ctrl + Пробел​Alt + Enter​

​ Перейти к предыдущей​​ Екселе? Напишите пожалуйста.​ в таблице Excel,​ которые необходимо отфильтровать,​ все содержимое, не​ с заголовками в​ можете выделить из​ еще не использовался​Очистка фильтра по определенному​

​ отменить?​​ Подставляю другой ID​ он достаточно долго​Arman papikyan​ строке название​

VBA. Снять все фильтры таблицы одним нажатием

​ команда​​ Выберите весь столбец​

​ свернуть текст в​ ячейке строки​Давно уже все​ щелкните команду​ затем нажмите​
​ соответствующее критерию. В​ строке 1: ID​

​ него только шампуни​
​ для сортировки данных​ столбцу​
​2) Можно ли​
​ и тоже самое.​

​ выполняется. Есть альтернатива?​
​: все основные клавиши​Alt + Shift​
​Shift + Backspace​
​Удерживайте Shift +​

​ ячейке​
​Page Up Вверх​ забыла, а теперь​
​Фильтр​
​OK​

​ нашем примере только​ #, Тип, Описание​ или крема, а​ в столбце.​

​Очистка всех фильтров​​ сделать так чтобы​

​ q_q​​nerv​
​ и в фотошопе​

​ + V Скажем​​ Свернуть выбор активной​ Стрелка Выделить влево​Форматирование ячейки​
​ на один экран​
​ работаю с ним​на вкладке​

​. Мы снимем выделение​
​ ноутбуки и планшеты​
​ оборудования и т.д.​

planetaexcel.ru

Горячая клавиша на фильтр по значению.

​ остальное временно скрыть.​​Фильтр используется для фильтрации​Удаление всех фильтров​ после отмены выделения​Baronello​: ShowAllData​ и в экзеле​ видимом диапазоне Координаты​ ячейки​Удерживайте Shift +​Ctrl + 1​
​Page Down Down​ и вспонимаю наугад​Данные​ со всех пунктов,​ остались видимыми.​Откройте вкладку​ В этом уроке​ или сортировки данных​

​Нажмите кнопку​​ он показывал конец,​: Видимо я не​Stealthy​ и в ворде​Shift + Tab​Alt + Равно​

​ Стрелка Выделить вправо​​ Формат ячеек​ одном экране​ :)​.​ кроме​
​Фильтрацию можно также применить,​Данные​
​ мы научимся применять​
​ в столбце.​Фильтр​ а не середину​ сохранил всё. Подставление​
​: То, что надо!​
​ одни и те​

​ Tab обратно​ AutoSum​Удерживайте Shift +​Ctrl + Shift​
​Ctrl + Page​Анастасия фамилия​
​Автор: Антон Андронов​августа​
​ выбрав команду​, затем нажмите команду​ фильтры к спискам​На следующем листе фильтр​

​рядом с заголовком​​ или начало страницы?​ ID работает. На​Спасибо!​ же… делет, интер,​Ctrl + Shift​Равно Знак Режим​
​ Стрелка Выделить вверх​ + F Выбор​ Down Перейти на​: Генеральные​
​H5455​.​Сортировка и фильтр​Фильтр​ в Excel, задавать​ доступен для столбца​

planetaexcel.ru

​ столбца и выберите​

На чтение 4 мин. Просмотров 14.2k.

Итог: узнайте, как очистить все фильтры и фильтры в одном столбце с помощью макросов VBA. Включает примеры кода для регулярных диапазонов и таблиц Excel.

Уровень мастерства: Средний

VBA Code to Clear Filters in Excel

Содержание

  1. Скачать файл
  2. Очистить все фильтры из диапазона
  3. Ошибка метода ShowAllData
  4. Очистить все фильтры из таблицы Excel
  5. Очистить все фильтры во всех таблицах на листе
  6. Очистить фильтры в одной колонке
  7. Фильтры и типы данных

Скачать файл

Файл Excel, содержащий код, можно скачать ниже. Этот файл содержит код для фильтрации различных типов данных и типов фильтров. Пожалуйста, ознакомьтесь с моей статьей Фильтрация сводной таблицы или среза по самой последней дате или периоду для более подробной информации.

VBA AutoFilters Guide.xlsm (100.5 KB)

Очистить все фильтры из диапазона

Мы используем метод ShowAllData, чтобы очистить все фильтры,
примененные к диапазону.

Это аналогично нажатию кнопки «Очистить» на вкладке «Данные»
на ленте (сочетание клавиш: Alt, A, C)

Clear All Filters on Sheet or Table with ShowAllData Method in VBA

К рабочему листу может быть применен только один диапазон
фильтров, поэтому мы на самом деле очищаем фильтры на листе.

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.

VBA Clear Filters Error 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 и устанавливаем
значение для номера столбца, который мы хотим очистить.

Clear Filter on Single Column VBA AutoFilter Method Field Only

Sub Clear_Column_Filter_Range()
  
  ' Чтобы очистить фильтр от одного столбца, укажите
  ' Только номер поля и никаких других параметров
  Sheet1.Range("B3:G1000").AutoFilter Field:=4

End Sub

Поле — это номер столбца диапазона, к которому применяются
фильтры, а не номер столбца рабочего листа.

Field Parameter Value is Column Number of the Range or Table

Тот же метод используется для очистки фильтров, примененных
к столбцу в таблице. В этом случае метод 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

Файл в разделе загрузок выше содержит все эти примеры кода в одном месте. Вы можете добавить его в свою личную книгу макросов и использовать макросы в своих проектах.

Пожалуйста, оставьте
комментарий ниже с любыми вопросами или предложениями. Спасибо!

Like this post? Please share to your friends:
  • Excel как снять блокировку ячейки
  • Excel как снять апостроф перед числом
  • Excel как смотреть одновременно два файла
  • Excel как сместить ячейку вниз
  • Excel как сместить ячейки вниз