如何在Excel中数据更改时自动重新应用自动筛选？

在Excel中，当您使用筛选功能筛选数据时，筛选结果不会随着筛选数据中的更改而自动更新。例如，当我从数据中筛选出所有“苹果”后，如果我将其中一个筛选后的数据更改为“BBBBBB”，结果却不会随之改变，如下图所示。本文将介绍如何在Excel中数据更改时自动重新应用自动筛选。

使用VBA代码在数据更改时自动重新应用自动筛选

使用VBA代码在数据更改时自动重新应用自动筛选

通常情况下，您可以手动点击“重新应用”功能来刷新筛选数据，但在这里，我将向您介绍一个VBA代码，用于在数据更改时自动刷新筛选数据，请按照以下步骤操作：

1. 转到您希望在数据更改时自动刷新筛选的工作表。

2. 右键单击工作表标签，并从上下文菜单中选择“查看代码”。在弹出的“Microsoft Visual Basic for Applications”窗口中，请将以下代码复制并粘贴到空白的模块窗口中，见截图：

VBA代码：数据更改时自动重新应用筛选：

Private Sub Worksheet_Change(ByVal Target As Range)
   Sheets("Sheet3").AutoFilter.ApplyFilter
End Sub

注意：在上述代码中，“Sheet 3”是带有自动筛选功能的工作表名称，请根据需要进行更改。

3. 然后保存并关闭此代码窗口。现在，当您更改筛选数据时，“ 筛选”功能将立即自动刷新，见截图：

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！