如何使用 vba 清除 excel 中的筛选器（附示例）

您可以在 VBA 中使用以下语法来清除 Excel 工作表中的所有筛选器：

 SubClearFilters ()

If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData

End Sub

这个特定的宏将清除当前活动工作表中的所有过滤器。

该宏通过使用ShowAllData方法强制所有当前隐藏的行可见。

如果当前活动工作表上没有筛选任何行，则运行此宏时不会发生任何情况。

以下示例展示了如何在实践中使用该宏。

示例：使用 VBA 清除 Excel 中的所有筛选器

假设我们在 Excel 中有以下数据集，其中包含有关各种篮球运动员的信息：

现在假设我们添加一个过滤器以仅显示 Team 列中的值等于 Mavs 或 Nets 的行：

现在假设我们要使用 VBA 清除此过滤器。

我们可以创建以下宏来执行此操作：

 SubClearFilters ()

If ActiveSheet.AutoFilterMode Then ActiveSheet.ShowAllData

End Sub

当我们运行这个宏时，过滤器将自动从工作表中清除：

请注意，所有以前隐藏的行现在再次可见，因为我们已经清除了过滤器。

注意：您可以在此处找到 VBA ShowAllData方法的完整文档。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

VBA：如何过滤数据透视表
VBA：如何刷新数据透视表
VBA：如何删除重复值