Excel-VBA : Simplify this If statement comparing cell to words

Question

这里有一个简单的问题。
我目前在我的程序中使用它:

If LCase(inp_rng.Offset(1, 0).Value) = "street" Or LCase(inp_rng.Offset(1, 0)) = "ave." Then
score = score - 50
End If

这显然不干净，但我可以找到一种方法将其仅用一句话来表达。编写这样的内容的编程方式是什么:

If LCase(inp_rng.Offset(1,0).Value = ("street", "ave.", "road", "...", etc.) Then
'do something
End If

提前致谢!

Answer 1

您可以使用 Select Case 语句来代替:

i = LCase(inp_rng.Offset(1,0).Value
Select Case i
    Case "street", "ave.", "road"
        'do something
    Case Else
        'do something
End Select

或者，您可以将所有可能的答案填充到数组中，然后在数组中搜索匹配项。