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

在本文中，我们将学习如何删除应用于工作簿中各个工作表上的筛选器。许多用户会在工作表上应用筛选器以查看所需数据，然后按原样保存文件而不删除筛选器。这可能会在用户再次打开文件时造成混淆，因为他们可能会将筛选后的数据转发给其他人进行报告或分析，而完整的详细信息可能会被忽略。请按照以下步骤执行此操作。

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

提示*：可以使用键盘快捷键 Alt+D+F+F 删除工作表的筛选器。

要删除工作簿中所有工作表的筛选器，请按照以下步骤操作。

步骤 1：以下是包含两个工作表（数据上已应用筛选器）的示例数据。

步骤 2：从键盘上按 Alt+F11 键，将打开 Microsoft Visual Basic for Applications 窗口。

也可以通过“开发工具”选项卡打开上述编辑器，如下所示

步骤 3：在 Microsoft Visual Basic for Applications 窗口中，双击“项目”面板中可用的“ThisWorkbook”。

步骤 4：现在复制以下 VBA 代码，并将其输入到“ThisWorkbook (代码)”窗口中。

Sub Clear_fiter() /A function is being called to clear the filters.
    Dim Wks As Worksheet /returns a Sheet collection 
    object that only contains the worksheets  
    For Each Wks In ThisWorkbook.Worksheets 
    / specifying each sheet of a worksheet or workbook
On Error Resume Next / If any error occurs in identifying 
the sheet then move to the next sheet.
If Wks.AutoFilterMode Then / Check if Autofilter is on in a sheet.
Wks.AutoFilterMode = False / Disable the autofilter from the selected sheet.
End If / End if no sheet is next.
Next Wks / Otherwise move to next sheet.
End Sub / end of sub

步骤 5：输入代码后，按键盘上的 Alt+Q 键关闭 Microsoft Visual Basic for Applications 窗口。

步骤 6：接下来，将文件保存为“启用宏的工作簿”格式。

步骤 7：现在，返回文件并按 Alt+F8，将打开“宏”对话框，如下所示。

注意：在选择要应用更改的文件时，请考虑以下几点

  • ⦁ 如果选择“所有打开的工作簿”，则将删除所有打开的 Excel 文件中的筛选器。

  • ⦁ 如果选择“此工作簿”，则将删除相应工作簿的活动工作表中的筛选器。

  • ⦁ 如果选择“”，则将删除相应工作簿的所有工作表中的筛选器。

步骤 8：现在所有筛选器都将被删除。

结论

因此，本文主要介绍了如何从所有活动工作簿及其工作表中删除已应用的筛选器。在保存文件之前始终从工作簿中删除所有筛选器应该是一种常规做法，以避免在数据分析期间发生任何数据丢失。还有许多其他方法可以从单个工作表或所有工作簿中删除筛选器。更多方法将在后续文章中分享。继续学习，继续探索 Excel 应用程序。

更新于：2023年8月29日

2K+ 浏览量

开启你的 职业生涯

通过完成课程获得认证

开始学习
广告