VBA-一次多字符串比较

Question

我有一段很愚蠢的代码，可以测试变量是否是某个字符串：

If Target.Cell.Value = "1M" or Target.Cell.Value = "1N" or Target.Cell.Value = "1O" Then
...
End If

有没有一种方法可以压缩该If语句-即与列表或类似内容进行比较？

谢谢-KC

Answer 1

Select Case Target.Cell.Value
Case "1M","1N","10" 
     ...
end select