帮我便携vba动态筛选显示指定内容

以下是一个简单的 VBA 代码示例，可以帮助您实现动态筛选和显示指定内容：

Sub FilterData()

Dim ws As Worksheet
Dim rng As Range
Dim filterValue As String

'设置工作表和数据范围
Set ws = ThisWorkbook.Worksheets("Sheet1") '将 "Sheet1" 替换为您要筛选的工作表名称
Set rng = ws.Range("A1:D10") '将 "A1:D10" 替换为您的数据范围

'获取筛选值
filterValue = InputBox("请输入要筛选的内容：", "动态筛选")

'清除所有筛选
ws.AutoFilterMode = False

'筛选数据
rng.AutoFilter Field:=1, Criteria1:="*" & filterValue & "*" '将 "1" 替换为您要筛选的列

End Sub

这个代码示例首先定义了一个工作表和一个数据范围，然后通过一个输入框获取了要筛选的内容。接下来，代码清除了所有的筛选，并使用 AutoFilter 方法筛选出包含指定内容的行。您可以根据自己的需要修改代码中的参数和范围，以实现更复杂的筛选功能。