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

这里容易的问题。
我目前在我的程序中使用这个：

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

这显然不是很干净，但我可以find一种方法，只用一句话。 写这样的东西的编程方式是什么：

 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 

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

Answer 2

你可以使用Filter()数组函数

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