Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как применить тот же фильтр к нескольким листам В Excel?

Нам может быть легко применить функцию Filter для фильтрации данных на листе, но иногда вам может понадобиться фильтровать несколько листов, которые имеют общее форматирование данных с одинаковыми критериями фильтрации. Чтобы отфильтровать их один за другим, уйдет много времени, здесь я могу ввести простой способ решить проблему сразу.

Применить тот же фильтр к нескольким листам с кодом VBA


Отфильтруйте данные по нескольким критериям или другим конкретным условиям, например по длине текста, по регистру и т. Д.

Kutools for ExcelАвтора Суперфильтр функция - мощная утилита, вы можете применить эту функцию для завершения следующих операций:

  • Фильтровать данные с несколькими критериями; Отфильтровать данные по длине текста;
  • Фильтровать данные в верхнем / нижнем регистре; Дата фильтрации по году / месяцу / день / неделя / квартал

док-супер-filter1

Kutools for Excel: с более чем 200 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни. Скачать и бесплатно пробную версию!


arrow синий правый пузырь Применить тот же фильтр к нескольким листам с кодом VBA


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

doc фильтрует несколько листов 1

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

1, Удерживайте ALT + F11 , то он открывает Microsoft Visual Basic для приложений окна.

2. Щелчок Вставить > модуль, и вставьте следующий код в модуль Окно.

Код VBA: применить тот же фильтр к нескольким листам:

Sub apply_autofilter_across_worksheets()
'Updateby Extendoffice 20160623
    Dim xWs As Worksheet
    On Error Resume Next
    For Each xWs In Worksheets
        xWs.Range("A1").AutoFilter 1, "=KTE"
    Next
End Sub

3, Затем нажмите F5 ключ для запуска этого кода, все продукты KTE были отфильтрованы во всех листах сразу, см. снимок экрана:

doc фильтрует несколько листов 2

Внимание: Внутри кода выше, в этом xWs.Range ("A1"). AutoFilter 1, "= KTE" сценарий, A1 TEC = указывает столбец и критерии, которые вы хотите отфильтровать на основе, номер 1 - это номер столбца, на который вы отфильтровали, вы можете изменить их на свои нужды. Например, если вы хотите отфильтровать порядок больше 50, вам просто нужно изменить этот скрипт следующим образом: xWs.Range ("B1"). AutoFilter 2, "> 50".


Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905

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

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    berenice · 4 months ago
    how to eliminate filtered rows?
  • To post as a guest, your comment is unpublished.
    Sibi · 10 months ago
    How to use "Filter Between" Function, for the same multiple sheets?

    (Example: Time range)
  • To post as a guest, your comment is unpublished.
    Suyash · 10 months ago
    Can we use cell name like Product instead of A1 in : xWs.Range("A1").AutoFilter 1, "=KTE"
    I have different column and some names comes in different column.
    • To post as a guest, your comment is unpublished.
      Suyash · 10 months ago
      I have used filter in every sheet. And I want to change s.no from 1 2 3 serially in every sheet after filter.


      Please let me know if you have vba code for it
  • To post as a guest, your comment is unpublished.
    jarred · 1 years ago
    HI, does the super filter across the entire workbook automatically reapply whenever theres an update of the file?
  • To post as a guest, your comment is unpublished.
    Sebastian · 1 years ago
    Thank you for the code!! is there a way to change the "=KTE" to use a value from a List or Drop down list?
  • To post as a guest, your comment is unpublished.
    Matthew · 1 years ago
    Is there a way to change the "=KTE" part for each sheet with a contain filter that is based on the sheet's name?
  • To post as a guest, your comment is unpublished.
    Monika · 1 years ago
    Hi,


    How this works if Product column is presented in different places in other sheets ?


    In sheet1, it is A1 in sheet2 it is in B1 and in sheet3 it is A1 again ?

    Thanks,
    Monika
  • To post as a guest, your comment is unpublished.
    Mahesh · 1 years ago
    Is there any option to filter by colors?
  • To post as a guest, your comment is unpublished.
    Justin · 1 years ago
    Can I use this to filter pivot tables in multiple sheets if all the pivots tables are from same data source and set up using same criteria?
  • To post as a guest, your comment is unpublished.
    donovan · 1 years ago
    How can you use the result of the auto-filter to set the filter for each other sheet instead of using =(specific name)
  • To post as a guest, your comment is unpublished.
    Donovan Hubbart · 1 years ago
    How do execute if the filter is on a different column on each sheet?
  • To post as a guest, your comment is unpublished.
    Grace · 1 years ago
    Hi,


    My data is in Column E and when I apply this filter with Range("E1") it still filters column A


    How can I troubleshoot?
    Thanks
    • To post as a guest, your comment is unpublished.
      VBA · 1 years ago
      You just have to write the Column number in AutoFilter, in this case: xWs.Range("E1").AutoFilter 5,
  • To post as a guest, your comment is unpublished.
    KABILAN · 2 years ago
    while filtering single word in multiple sheets it does not shows filtered data....all datas are hided.pleace resolve this.
  • To post as a guest, your comment is unpublished.
    AHMAD KALBOUNEH · 2 years ago
    Dear,

    i want to filter more than one value, i used this xWs.Range("B1").AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR" and it worked
    but when i increase the wanted values to >2 an error occurs.
    this command i use xWs.Range("B1").AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR", xlOr, "=019IR", xlOr, "=311IR", xlOr, "=518ZA", xlOr, "=223AM", xlOr, "=592IR"


    thanks,
  • To post as a guest, your comment is unpublished.
    Guy · 2 years ago
    how do you apply this filter formula: to a range of sheets? i have a workbook that has data on the first 5 sheets, and the workbook has 200 sheets i only need the filter to be applied to sheet 6-200.
    Sub apply_autofilter_across_worksheets()
    'Updateby Extendoffice 20160623
    Dim xWs As Worksheet
    On Error Resume Next
    For Each xWs In Worksheets
    xWs.Range("A1").AutoFilter 1, "=KTE"
    Next
    End Sub
    • To post as a guest, your comment is unpublished.
      Cosmicbugaboo · 2 years ago
      Sub apply_autofilter_across_worksheets()

      Dim J As integer
      On Error Resume Next
      For J = 6 to Worksheets(worksheets.count)
      Thisworkbook.Sheets(J).Range("A1").Autofilter 1, "=KTE"
      Next
      End Sub