Excel使用vba动态筛选显示指定内容

1. 打开Excel工作簿，按下Alt+F11进入VBA编辑器。

2. 在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

3. 代码中，首先定义了一个工作表变量ws和一个范围变量rng，然后使用InputBox函数获取要筛选的内容。

4. 最后使用AutoFilter方法对第一列进行筛选，将输入的内容作为筛选标准。

5. 按下F5执行代码，输入要筛选的内容，点击确定即可动态筛选显示指定内容。