如何清除Excel中活动工作簿中所有工作表中的筛选器？

网友投稿 460 2023-12-15

如何清除Excel中活动工作簿中所有工作表中的筛选器？

假设您已经在Excel工作簿中的不同工作表上创建了多个筛选器，现在您想一次清除所有这些筛选器。通常，您需要一张一张地移至工作表以检查过滤器，然后手动清除它。有什么便捷的方法可以清除活动工作簿中所有工作表中的筛选器？请尝试本文中的方法。

使用VBA代码清除活动工作簿中所有工作表中的筛选器

惊人的！在 Excel 中使用高效的选项卡，如 Chrome、Firefox 和 Safari！ 每天节省50％的时间，并减少数千次鼠标单击！

请运行下面的VBA脚本以清除活动工作簿中所有工作表中的筛选器。

1.在工作簿中，您需要清除过滤器，请按其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口中，单击插页 > 模块。然后将下面的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

Copy

3。按 F5 键来运行代码。然后，将立即清除当前工作簿中所有工作表中的所有筛选器。

相关文章: 如何清除Excel中数据透视表中的筛选器缓存（旧项目）？在Excel中打开，保存或关闭工作簿时如何清除筛选器？如何根据Excel中的复选框过滤数据？如何在Excel中的过滤列表列中填充一系列数字？

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！

为什么需要 Kutools for Excel

🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。

📈 卓越的数据处理能力：合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力！

⏱️ 高效的批量操作：当你可以聪明地工作时，为什么还要付出额外的努力呢？轻松批量导入、导出、组合和调整数据。