有没有一种方法可以使用高级过滤器在VBA中搜索多个文本字符串

Sub AdvancedFilterExample()
    Dim ws As Worksheet
    Dim searchStrings() As String
    Dim dataRange As Range
    Dim cell As Range
    Dim i As Integer
    
    ' 设置工作表和工作区域
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set dataRange = ws.Range("A1:A100") ' 假设数据在A列的前100行
    
    ' 定义要搜索的字符串数组
    searchStrings = Array("apple", "banana", "cherry")
    
    ' 遍历数据区域
    For Each cell In dataRange
        ' 检查当前单元格是否包含任何一个搜索字符串
        For i = LBound(searchStrings) To UBound(searchStrings)
            If InStr(cell.Value, searchStrings(i)) > 0 Then
                ' 如果找到匹配项，执行相应操作（例如标记单元格）
                cell.Interior.Color = RGB(255, 255, 0) ' 黄色背景
                Exit For ' 找到匹配项后退出内层循环
            End If
        Next i
    Next cell
End Sub