具有多个条件的VBA IF语句

Question

我有一个看起来像这样的IF语句：

If i=1 or i=3 or i=7 or i=9 or i=10 or i>=15 and i<=20 then
   'Do sth.
End If

我的问题是：我可以让这些条件更容易（我可以总结一下）吗？

提前致谢！

Answer 1

您可以使用选择案例：

Select Case i
    Case 1,3,7,9,10, 15 to 20
        'Do sth.
End Select

Answer 2

您可以使用Select Case。它看起来像这样......

Sub test()
    Select Case i
        Case 1, 3, 7, 9, 10, 15, 16, 17, 18, 19, 20
            'do something
    End Select
End Sub