隐藏行VBA不包含来自数组不匹配的单词的单元格代码

Sub HideRows()
    Dim rng As Range
    Dim cell As Range
    Dim wordsArray As Variant
    
    ' 定义要检查的单词数组
    wordsArray = Array("apple", "banana", "orange")
    
    ' 设置要检查的范围，这里假设是A1到A10
    Set rng = Range("A1:A10")
    
    ' 循环遍历每个单元格
    For Each cell In rng
        ' 检查单元格中的文本是否包含数组中的任何一个单词
        If Not ContainsAnyWord(cell.Value, wordsArray) Then
            ' 如果不包含，则隐藏该行
            cell.EntireRow.Hidden = True
        End If
    Next cell
End Sub

Function ContainsAnyWord(text As String, wordsArray As Variant) As Boolean
    Dim word As Variant
    
    ' 循环遍历数组中的每个单词
    For Each word In wordsArray
        ' 检查文本是否包含当前单词
        If InStr(1, text, word, vbTextCompare) > 0 Then
            ContainsAnyWord = True
            Exit Function
        End If
    Next word
    
    ContainsAnyWord = False
End Function