VBA 如何检查数组是否包含范围内的字符串

VBA如何检查数组是否包含范围内的字符串

vba
Sub CheckArrayForString()
    Dim searchRange As Range
    Dim searchArray() As String
    Dim searchString As String
    Dim i As Integer
    Dim found As Boolean
    
    ' 设置搜索范围
    Set searchRange = Sheet1.Range("A1:A10")
    
    ' 将搜索范围中的值存储到数组中
    searchArray = searchRange.Value
    
    ' 设置要搜索的字符串
    searchString = "apple"
    
    ' 初始化标志变量
    found = False
    
    ' 遍历数组并检查是否包含搜索字符串
    For i = LBound(searchArray) To UBound(searchArray)
        If InStr(1, searchArray(i, 1), searchString, vbTextCompare) > 0 Then
            found = True
            Exit For
        End If
    Next i
    
    ' 根据搜索结果进行相应的处理
    If found Then
        MsgBox "数组包含搜索字符串"
    Else
        MsgBox "数组不包含搜索字符串"
    End If
End Sub