帮我用vba编写动态筛选显示指定内容

下面是一个例子，演示如何使用 VBA 在 Excel 中动态筛选和显示指定内容：

Sub FilterData()

    Dim filterValue As String
    filterValue = InputBox("Enter filter value:") '提示用户输入筛选值

    If filterValue <> "" Then '如果用户输入了值

        '定位到数据表格区域
        Dim dataSheet As Worksheet
        Set dataSheet = ThisWorkbook.Sheets("Sheet1") '将表格名称替换为实际名称
        dataSheet.Activate
        Range("A1").Select '假设数据从 A1 开始

        '应用筛选器
        ActiveSheet.Range("$A$1:$C$10").AutoFilter Field:=2, Criteria1:=filterValue

    End If

End Sub

这个例子使用 InputBox 函数提示用户输入筛选值，然后使用 AutoFilter 方法将数据表格中第二列包含该值的行筛选出来。您可以根据具体需求修改代码，例如更改表格名称、筛选列、开始行等。