select case报错疑问麻烦大佬帮忙看看

libinice

我想用该代码计算表格2中出现在某个数值区间的个数，然后把这个数值赋值给表格1中对应的单元格。但一直调试失败，第一次写VBA麻烦帮忙看下。
（调试说明红字体代码有错）

Sub 计算n个随机数在各个区间出现的次数()
    Dim i As Integer, a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, f As Integer, g As Integer, h As Integer, n As Integer, j As Integer, k As Integer, l As Integer
    i = 1
    a = 0
    b = 0
    c = 0
    d = 0
    e = 0
    f = 0
    g = 0
    h = 0
    i = 0
    n = 0
    k = 0
    l = 0
    Do While i <= 1000
        Select Case Worksheets("Sheet2").Cells(i, "A").Value
            Case Is <= 300
                a = a + 1
            Case Is <= 1000
                b = b + 1
            Case Is <= 1500
                c = c + 1
            Case Is <= 2000
                d = d + 1
            Case Is <= 3000
                e = e + 1
            Case Is <= 4000
                f = f + 1
            Case Is <= 5000
                g = g + 1
            Case Is <= 6000
                h = h + 1
            Case Is <= 7000
                n = n + 1
            Case Is <= 8000
                j = j + 1
            Case Is <= 9000
                k = k + 1
            Case Is <= 10000
                l = l + 1
         End Select
    i = i + 1
    Loop
    Worksheets("Sheet1").Range("H2").Value = a
    Worksheets("Sheet1").Range("H3").Value = b
    Worksheets("Sheet1").Range("H4").Value = c
    Worksheets("Sheet1").Range("H5").Value = d
    Worksheets("Sheet1").Range("H6").Value = e
    Worksheets("Sheet1").Range("H7").Value = f
    Worksheets("Sheet1").Range("H8").Value = g
    Worksheets("Sheet1").Range("H9").Value = h
    Worksheets("Sheet1").Range("H10").Value = n
    Worksheets("Sheet1").Range("H11").Value = j
    Worksheets("Sheet1").Range("H12").Value = k
    Worksheets("Sheet1").Range("H13").Value = l
End Sub

lv_king_2017

Select Case Worksheets("Sheet2").Cells("A"&i).Value

chis3

  i = 1
    a = 0
    b = 0
    c = 0
    d = 0
    e = 0
    f = 0
    g = 0
    h = 0
    i = 0
    n = 0
    k = 0
    l = 0

i=1
下面又i=0
當然錯誤了
還有變量一開始就是0
不用這樣

不知道为什么

chis3 发表于 2018-7-18 15:19
i = 1
    a = 0
    b = 0

下面的是 L,不是i，这个应该没有问题。我想应该是 单元格的值是不是非 数值引起的。建议楼主上传出错的附件。

libinice

lv_king_2017 发表于 2018-7-18 15:12
Select Case Worksheets("Sheet2").Cells("A"&i).Value

试了，这一句还是报错。 已上传代码和表格，有空麻烦帮忙看下

libinice

不知道为什么 发表于 2018-7-18 15:23
下面的是 L,不是i，这个应该没有问题。我想应该是 单元格的值是不是非 数值引起的。建议楼主上传出错的附 ...

已上传，麻烦帮忙看下

libinice

chis3 发表于 2018-7-18 15:19
i = 1
    a = 0
    b = 0

谢谢指导，但错误还不止这个地方，已上传代码，麻烦有空帮忙看看

chis3

libinice 发表于 2018-7-18 15:34
谢谢指导，但错误还不止这个地方，已上传代码，麻烦有空帮忙看看

這樣啊

Select Case Worksheets("Sheet2").Cells(i, "a").Value

chis3

這樣好了
Sub test()
    Dim i As Integer, arr, brr(1 To 12, 1 To 1)
    Sheets(2).Activate
    arr = [a1].CurrentRegion
    For i = 1 To UBound(arr)
        Select Case arr(i, 1)
            Case Is <= 300
                brr(1, 1) = brr(1, 1) + 1
            Case Is <= 1000
                brr(2, 1) = brr(2, 1) + 1
            Case Is <= 1500
                brr(3, 1) = brr(3, 1) + 1
            Case Is <= 2000
                brr(4, 1) = brr(4, 1) + 1
            Case Is <= 3000
                brr(5, 1) = brr(5, 1) + 1
            Case Is <= 4000
                brr(6, 1) = brr(6, 1) + 1
            Case Is <= 5000
                brr(7, 1) = brr(7, 1) + 1
            Case Is <= 6000
                brr(8, 1) = brr(8, 1) + 1
            Case Is <= 7000
                brr(9, 1) = brr(9, 1) + 1
            Case Is <= 8000
                brr(10, 1) = brr(10, 1) + 1
            Case Is <= 9000
                brr(11, 1) = brr(11, 1) + 1
            Case Is <= 10000
                brr(12, 1) = brr(12, 1) + 1
         End Select
    Next i
    Sheets(1).Activate
    [h2].Resize(12, 1) = brr
End Sub

libinice

chis3 发表于 2018-7-18 15:44
這樣啊

Select Case Worksheets("Sheet2").Cells(i, "a").Value

感谢，已经解决了