vba中判断一个值是否属于数组中的值？

Option Explicit

Sub test()
    Dim arr
    Dim i As Integer
    arr = Array(1, 2, 3, 4, 5, "甲", "乙", "丙", "丁")
    For i = 0 To UBound(arr)
        If Range("a1").Value = arr(i) Then
            MsgBox Range("a1") & "是数组中的值"
            Exit Sub
        End If
    Next
        MsgBox Range("a1") & " 不是数组中的值"
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/3xyvjvyjyxyx7ej2ye.html