Excel 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 方法将数据表格中第二列包含该值的行筛选出来。您可以根据具体需求修改代码，例如更改表格名称、筛选列、开始行等。