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函数是区分大小写的。如果需要进行大小写不敏感的搜索，可以将数组元素和搜索数据都转换为统一的大小写。