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