Excel VBA 动态筛选教程：快速筛选指定内容

打开 Excel 工作簿，按下 Alt+F11 进入 VBA 编辑器。
在 VBA 编辑器中，选择要使用的工作表，在代码窗口中输入以下代码：

Sub FilterData()

Dim ws As Worksheet

Dim rng As Range

Dim Criteria As String

Set ws = ActiveSheet

Set rng = ws.Range('A1').CurrentRegion

Criteria = InputBox('Enter Criteria')

rng.AutoFilter Field:=1, Criteria1:=Criteria

End Sub

代码中，首先定义了一个工作表变量 ws 和一个范围变量 rng，然后使用 InputBox 函数获取要筛选的内容。
最后使用 AutoFilter 方法对第一列进行筛选，将输入的内容作为筛选标准。
按下 F5 执行代码，输入要筛选的内容，点击确定即可动态筛选显示指定内容。