使用“高级筛选”功能时，您可能会发现筛选结果不会随条件更改而自动更新，必须重新执行该功能才能获取最新结果。那么，有没有一种快速简便的方法，能让高级筛选结果像下图所示那样在 Excel 中自动刷新呢？

使用 VBA 代码自动更新高级筛选结果

使用 VBA 代码自动更新高级筛选结果

以下 VBA 代码可帮助您在更改条件时自动更新高级筛选结果，请按如下操作：

1 右键单击您要自动筛选数据的工作表标签，然后从上下文菜单中选择查看代码，在打开的 Microsoft Visual Basic for Applications 窗口中，将以下代码复制并粘贴到空白模块中：

VBA 代码：自动更新高级筛选结果：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A5:D21").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range _
("A1:C3"), Unique:=False
End Sub

注意：在上述代码中，A5:D21 是要筛选的数据区域，A1:C3 是用于筛选的条件区域。

2. 保存并关闭代码窗口后，当您更改条件区域中的筛选条件时，筛选结果将立即自动更新。

借助 KUTOOLS AI 解锁 Excel 的神奇功能

• 智能执行：只需输入简单命令，即可执行单元格操作、分析数据并创建图表。
• 自定义公式：生成量身定制的公式，助您优化工作流程！
• VBA 编码：轻松编写并运行 VBA 代码。
• 公式解析：轻松掌握复杂公式，一目了然！
• 文本翻译：轻松打破电子表格中的语言障碍！