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

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

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

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

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

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

1. Нажмите и удерживайте клавиши ALT + F11, затем откроется окно Microsoft Visual Basic for Applications.

2. Нажмите Вставка > Модуль и вставьте следующий код в окно Модуля.

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

Sub apply_autofilter_across_worksheets()
'Updateby Extendoffice
    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 будут отфильтрованы на всех листах сразу, см. скриншот:

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