在vba中，使用select case 语句时限对分支选择，运行的时候，只执行一部分的分支选择。这是为什么？

代码如下：Private Sub CommandButton4_Click()
Dim a(7, 14) As Single
Dim i, j As Integer
For i = 0 To 14
For j = 0 To 7
a(j, i) = Sheets("可行性").cells(102 + 2 * j, 4 + i).Value
Select Case a(j, i)
case 1 to 3599
Sheets("可行性").cells(122 + 2 * j, 4 + i).Value = 1
case 3600 to 7799
Sheets("可行性").cells(122 + 2 * j, 4 + i).Value = 2
case 7800 to 12599
Sheets("可行性").cells(122 + 2 * j, 4 + i).Value = 3
case 12600 to 15000
Sheets("可行性").cells(122 + 2 * j, 4 + i).Value = 4
end select
Next j

Next i
End Sub

case "january"

字符串要加半角双引号

每次最多只执行分支中的一个啊 也有可能一个都不执行。 a(j,i)的值只可能是分支中的一个，或不在分支所给出的范围内

Private Sub CommandButton4_Click() Dim a(7, 14) As Single Dim i, j As Integer For i = 0 To 14 For j = 0 To 7 a(j, i) = Sheets("可行性").cells(102 + 2 * j, 4 + i).Value Select Case a(j, i) Case 1 To 3599 a(j, i) = 1 Case 3600 To 7799 a(j, i) = 2 Case 7800 To 12599 a(j, i) = 3 Case 12600 To 15000 a(j, i) = 4 End Select Next j Next i End Sub