VBA 动态筛选显示指定内容 - 轻松筛选 Excel 数据

以下是一个简单的 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 方法筛选出包含指定内容的行。您可以根据自己的需要修改代码中的参数和范围，以实现更复杂的筛选功能。