要判斷一個數據是否存在于數組中，可以使用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函數是區分大小寫的。如果需要進行大小寫不敏感的搜索，可以將數組元素和搜索數據都轉換為統一的大小寫。
