Excel VBA IF语句：检查值列表
我正试图写一个像这样的IF：
if var [is any of 1,4,5,6,12] then do stuff 但是我不知道这个在VBA中的语法，除了：
if var=1 or var=4 or var=5...
这似乎有点笨拙。 任何帮助，将不胜感激
谢谢！
select case var case 1,4,5,6,12 'do something case else 'alternative end select
你可以创build一个数字列表，然后在for循环中比较这些数字：
dim newNumber as Integer dim compareList as new List Of(int) for count as integer = 0 to compareList.count - 1 if newNumber = compareList(nCount) 'Do Stuff end if next
这是我喜欢做的一个简单的方法，但是如果你的列表真的很大/你想在“if”循环中做很多代码，可能会使性能密集。