Question

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

我要判断单元格中的值是否属于数组中的值，是则显示是，否则显示否？
比如判断a1中的值是否在（1，2,3,4,5,6,7,8，甲，乙，丙，丁），请问该怎么写？

Answer 1

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