select case theCases
    case 1,2,3,4,5
end select

上面这段是否等价于下面这段
for i=1 to 5
    select case theCases
        case i
            do something
    end select
next

也就是说1,2,3,4,5这5种条件下返回的结果是一样的，等价于

if theCases = 1 or theCases = 2 or theCases = 3 or theCases = 4 or theCases = 5 then
    do something
end if

猜的，不一定对喉

如果我的条件数目是不定的，就不能这样用了。有什么好办法吗？

 Dim y As Integer
    Dim p As Integer
    y = 0
    p = 0
    Dim a(8) As Integer
    a(1) = 1
    a(2) = 3
    a(3) = 22
    a(4) = 6
    a(5) = 10
    a(7) = 222
    a(6) = 62
    a(8) = 102
    For i = 1 To 8
           Select Case a(i)
                y = y + 1
            End Select
    Next
    MsgBox y
    For j = 1 To 8
    Select Case Sheet1.Cells(1, j)
        Case 1, 3, 22, 6, 10, 222, 62, 102
            p = p + 1
    End Select
    Next
    MsgBox p

的确是不一样，有什么办法使得select case 可以使用不定数目的条件呢。
比如在select case 在10次循环中每次case的条件数目不同，
比如这次可能是
case 1,2,3
下次可能是
case 3,5,6,7,8
就是怎么样动态地添加case的条件。

带加条件的吗？琢磨琢磨

一个分支,不要用 select case 吧,直接用 IF 吧.
用循环来比较.

select case 本来就是多分支的选择的,并且分支数是固定的, 当然,条件可以不同.
并不适应你这种变化条件的分支条件.

你所提示的 代码 ,也无法运行 .

------------------------------------
select case theCases
    case 1,2,3,4,5
end select

上面这段是否等价于下面这段
for i=1 to 5
    select case theCases
        case i
            do something
    end select
next
----------不等价----------------
如果 I 符合条件不止一个的话,那么上面那段代码,只会执行一次,而下面这个循环的代码 ,会执行多次.

-----------------------------
到现在为止,还没搞清楚你倒底要什么.
多分支选择一般只用于一次性选择方面,一般并不使用循环来进行多分支选择.
使用循环的,一般就用 IF...then...else...end if 或 if...then .... elseif ...else .... end if 块

把你的条件动态写入一个数组,然后循环判断.
例如待判断的变量ValueA,条件数组Conditions(),这样对比就简单了
dim i as long
for i=0 to ubound(Conditions)-1
    if valueA=Conditions(i) then
        dosomething
        exit for
    end if
next