如何在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 键运行代码。然后当前工作簿中所有工作表上的筛选条件都会立即被清除。

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

相关文章：

• 如何在Excel中清除数据透视表的筛选缓存（旧项目）？
• 如何在Excel中打开、保存或关闭工作簿时清除筛选条件？
• 如何在Excel中根据复选框筛选数据？
• 如何在Excel中填充筛选列表列中的数字序列？