vba怎么判断一个数据是否存在数组中

要判断一个数据是否存在于数组中，可以使用VBA中的InStr函数。该函数可以用来查找字符串中是否包含指定的子字符串。

以下是一个示例代码，演示了如何使用InStr函数来判断一个数据是否存在于数组中：

Sub CheckDataInArray()
    Dim myArray() As Variant
    Dim searchData As Variant
    Dim i As Long
    
    ' 初始化数组
    myArray = Array("Apple", "Banana", "Orange", "Grapes")
    
    ' 要搜索的数据
    searchData = "Banana"
    
    ' 遍历数组，判断是否存在搜索数据
    For i = LBound(myArray) To UBound(myArray)
        If InStr(1, myArray(i), searchData) > 0 Then
            MsgBox "数据存在于数组中"
            Exit Sub
        End If
    Next i
    
    MsgBox "数据不存在于数组中"
End Sub

在上述代码中，首先定义了一个名为myArray的数组，并初始化了一些数据。然后定义了一个要搜索的数据searchData。接下来使用For循环遍历数组，通过InStr函数判断每个数组元素是否包含搜索数据。如果找到了匹配的数据，则会弹出一个消息框显示"数据存在于数组中"；如果遍历完整个数组没有找到匹配的数据，则会弹出一个消息框显示"数据不存在于数组中"。

需要注意的是，InStr函数是区分大小写的。如果需要进行大小写不敏感的搜索，可以将数组元素和搜索数据都转换为统一的大小写。