通用替代原则 - 如何管理原则的应用(Generic substitution principle - how application of principle is governed)

 Case开关可能最适合这个： 
 
Select Case Range("A1").Value
    Case "Element1", "Element2", "Element3", "Element4", "Element5"
        'Do stuff

    Case Else
         'Do other stuff, or do nothing at all

End Select
 
 请注意，以上是区分大小写的。 如果你有混合大小写并且不关心大小写，请使用LCASE或UCASE函数转换为单个大小写： 
 
Select Case LCase(Range("A1").Value))
    Case "element1","element2","element3","element4","element5"
 
 或者，您可以在向量数组上使用过滤器函数： 
 
Const Elements As String = "element1,element2,element3,element4,element5"
Dim val$, myArray
myArray = Split(Elements, ",")
val = "element3"

    If UBound(Filter(myArray, val)) >= 0 Then
        'the value is in the array
        MsgBox True
    Else
        'the value is not in the array
        MsgBox False
    End If
 
 虽然有一些Filter功能的怪癖，我认为它并不总是100％可靠，因为它将返回部分匹配。 
 
 或者您可以对数组使用Match函数： 
 
If Not IsError(Application.Match(val, myArray, False)) Then
    'value exist in the list
Else
    'value does not exist in the list
End If

A Case switch is probably best-suited for this:
 
Select Case Range("A1").Value
    Case "Element1", "Element2", "Element3", "Element4", "Element5"
        'Do stuff

    Case Else
         'Do other stuff, or do nothing at all

End Select
 
Note that the above is case-sensitive. If you have mixed-case and don't care about capitalization, convert to a single case using the LCASE or UCASE function:
 
Select Case LCase(Range("A1").Value))
    Case "element1","element2","element3","element4","element5"
 
Alternatively, you can use the filter function on a vector array:
 
Const Elements As String = "element1,element2,element3,element4,element5"
Dim val$, myArray
myArray = Split(Elements, ",")
val = "element3"

    If UBound(Filter(myArray, val)) >= 0 Then
        'the value is in the array
        MsgBox True
    Else
        'the value is not in the array
        MsgBox False
    End If
 
There are some quirks with the Filter function though, and I think it is not always 100% reliable since it will return partial matches.
 
Or you can use the Match function against an array:
 
If Not IsError(Application.Match(val, myArray, False)) Then
    'value exist in the list
Else
    'value does not exist in the list
End If