想要用VBA判斷元素是否在數組中，有以下兩種方法：

第一種，用Split+InStr函數：

Sub 判斷元素是否在數組中1()
Dim arr
element = "B"
arr = Array("A", 1, "B", 2)
arr2 = "|" & Join(arr, "|") & "|"  '前后都加"|"，確保用"|XXX|"能把前后的元素也識別
If InStr(arr2, "|" & element & "|") <> 0 Then MsgBox "存在" Else MsgBox "不存在"
End Sub

第二種，用Match函數：

Sub 判斷元素是否在數組中2()
Dim arr
arr = Array("1", 2, 3, 4, 5, 6)
element = 9
i = Application.Match(element, arr, 0)
If IsError(i) Then MsgBox "不存在" Else MsgBox "存在"
End Sub

相關文章：

VBA統(tǒng)計數組中某元素的出現次數

vba計算數組非空元素的數量

VBA去除數組元素中的特定字符串

VBA給數組內所有元素拼接前綴后綴

VBA移除數組中的指定元素