KutoolsforOffice — 一套方案，五大工具。事半功倍。

如何一键清除 Excel 当前工作簿中所有工作表的筛选器？

作者Siluvia修改日期

在处理包含多个工作表的 Excel 文件时，您通常会在不同工作表上应用筛选器，以高效分析数据。然而，当需要将所有工作表恢复至原始未筛选状态时，若手动逐一切换并逐一清除筛选器，不仅耗时费力，还容易遗漏某些工作表。

此类任务常见于以下场景：您从同事处收到一个工作簿，或整合了多个团队的数据，并希望在开始自己的分析或准备共享报告前，确保清除所有筛选器。对于包含数十个工作表的大型工作簿，手动逐个处理效率极低。因此，采用一种快速可靠的方法，一次性清除当前工作簿中所有工作表上的筛选器，不仅能显著节省时间和精力，还能有效避免遗漏任何已筛选数据的风险。

下文将为您介绍一种实用方法，仅需几步即可轻松完成此操作。如需了解高级或替代方案（例如基于公式的处理方式或使用 Excel 加载项），请参阅本文末尾的其他解决方案。

使用 VBA 代码从当前工作簿的所有工作表中清除筛选器

使用 VBA 代码从当前工作簿的所有工作表中清除筛选器

要高效地从当前工作簿的每个工作表中移除所有筛选器，您可以使用 VBA 脚本。此方法专为熟悉在 Excel 中运行宏的用户设计，尤其适用于包含多种结构化数据的工作簿。

开始前，请先保存您的工作，因为运行 VBA 将对整个工作簿执行批量修改。

1. 在要清除筛选器的工作簿中，同时按下 Alt+F11，即可打开 Microsoft Visual Basic for Applications 窗口。如果您首次使用 Excel，可能需要先从选项菜单中启用“开发工具”选项卡。

2. 在打开的 Microsoft Visual Basic for Applications 窗口中，依次点击插入> 模块，即可创建新模块。随后，将以下 VBA 脚本复制并粘贴到模块窗口中。请参考下方截图：

VBA 代码：从当前工作簿的所有工作表中清除筛选器

Sub Clear_fiter()
'Updated by Extendoffice 20250902
    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 键，或单击运行按钮以执行代码。执行后，您当前工作簿中所有工作表上的筛选器（无论是标准区域筛选器还是表格筛选器）将立即被清除。

运行宏前，请务必保存工作簿，因为 VBA 执行的操作无法通过 Ctrl + Z 撤销。

相关文章：

最佳办公效率工具

🤖KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行   |  生成代码|  创建自定义公式  |  数据分析及生成图表|  调用 Kutools Functions……
热门功能：查找、高亮或标记重复项   |  删除空白行   |  合并列或单元格且不丢失数据   |  不使用公式的四舍五入……
高级 LOOKUP：多条件 VLookup  |  多值 VLookup  |   跨多工作表 VLookup   |   模糊查找……
高级下拉列表：快速创建下拉列表   |  级联下拉列表   |  多选下拉列表……
列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列……
特色功能：网格聚焦   |  设计视图   |增强编辑栏   | 工作簿和表管理器   |  资源库（自动文本）|  日期提取   |  汇总工作表  |  加密/解密单元格   | 按列表发送邮件   |  超级筛选   |   特殊筛选（筛选粗体单元格/斜体/删除线……） ......
精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）|   50+ 图表 类型（甘特图，……）|   40+ 实用公式（基于生日计算年龄，……）|   19 插入工具（插入二维码，从路径插入图片，……）|   12 转换工具（小写金额转大写，汇率转换，……）|   7 合并和拆分工具（高级合并行，分割单元格，……）|……更多
在您的首选语言中使用 Kutools – 支持英语、西班牙语、德语、法语、中文及 40+ 种其他语言！

使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……

Office Tab 为 Office 带来标签式界面，让您的工作更轻松

  • 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
  • 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
  • 将您的工作效率提升 50%，每天减少数百次鼠标点击！

所有 Kutools 插件，一个安装程序

Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。

ExcelWordOutlookTabsPowerPoint
  • 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
  • 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
  • 协同效果更佳— 在多个 Office 应用中实现高效协同
  • 30 天全功能试用— 无需注册，无需信用卡
  • 超值之选— 比单独购买插件更省钱