Как очистить фильтры со всех листов в активной книге Excel?

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

Очистка фильтров со всех листов в активной книге с помощью кода VBA

Очистка фильтров со всех листов в активной книге с помощью кода VBA

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

1. В книге, где необходимо очистить фильтры, нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications нажмите Вставить > Модуль. Затем скопируйте и вставьте следующий скрипт 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 с Kutools AI

• Умное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это посредством простых команд.
• Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации ваших рабочих процессов.
• Кодирование VBA: Пишите и внедряйте код VBA без особых усилий.
• Интерпретация формул: Легко разбирайтесь в сложных формулах.
• Перевод текста: Преодолейте языковые барьеры в ваших таблицах.

Улучшите возможности Excel с помощью инструментов на базе ИИ. Скачать сейчас и испытайте беспрецедентную эффективность!

Связанные статьи:

• Как очистить кэш фильтра (старые элементы) из сводной таблицы в Excel?
• Как очистить фильтры при открытии, сохранении или закрытии книги в Excel?
• Как фильтровать данные на основе флажков в Excel?
• Как заполнить серию чисел в отфильтрованном столбце списка в Excel?