VBA动态筛选：如何使用VBA代码筛选指定内容

Sub FilterData() Dim ws As Worksheet Dim filterRange As Range Dim filterCriteria As String Dim lastRow As Long

'指定工作表
Set ws = ThisWorkbook.Sheets('Sheet1')

'指定筛选范围
lastRow = ws.Cells(Rows.Count, 'A').End(xlUp).Row
Set filterRange = ws.Range('A1:A' & lastRow)

'指定筛选条件，这里以筛选包含'apple'的数据为例
filterCriteria = '*apple*'

'应用筛选
filterRange.AutoFilter Field:=1, Criteria1:=filterCriteria

End Sub