Excel - VBA：简化这个If语句比较单元格与单词

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

您可以使用Filter()阵列功能

http://msdn.microsoft.com/en-us/library/office/aa164525(v=office.10).aspx

Answer 2

您可以使用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 

或者，你可以填充阵列中的所有可能的答案和搜索阵列的比赛。