Excel VBA IN 关键字

Question

是否有更好的方法在 VBA 中进行编码:

If x = 'a' or x = 'b' or x ='c' or x = 'd' then
...action
End if

IN 关键字在这里会非常方便:

If x IN ('a','b','c','d') then
action
End If

--> 但 VBA 无法识别 IN。语法中是否有替代关键字？谢谢!

Answer 1

当未找到匹配项时，加里学生当前形式的答案将导致错误。我认为以下更好:

x = "a"
If UBound(Filter(Array("a", "b", "c", "d"), x)) > -1 Then
    MsgBox "Match found"
End If

我确实评论说，当 x 是空字符串时，过滤函数返回整个数组。因此，如果 x 是空字符串，上面的代码将始终返回匹配项。下面解释了这一点

x = "a"
If UBound(Filter(Array("a", "b", "c", "d"), x)) > -1 And x <> vbNullString Then
    MsgBox "Match found"
End If