VBA 出现下标越界，请求大神解释一下

我就是我2020

VBA  变动了代码  老是出现下标越界


如下的字样出来

Microsoft Visual  Basic
运行时错误‘9’
下标越界
继续   结束  调式  帮助

代码如下  


Sub lqxs()
Dim ck, cs, n&, Arr, i&
ck = [C1].Value
cs = [C2].Value: n = 0
Do
    Application.Calculate
    Arr = [B10:J14]
    For i = 1 To 10
        If Arr(i, 1) = ck Then
            n = n + 1
            If n = cs Then
                Exit Do
            End If
        End If
    Next
Loop While n < cs
MsgBox "已经出现了" & cs & "次。"
End Sub



错误代码：       If Arr(i, 1) = ck Then   这个怎么改？

qweram

arr是二维数组，i最大只能是4。i等于5时，arr(5,1)是不存在的，所以就出现错误

我就是我2020

qweram 发表于 2021-11-6 16:46
arr是二维数组，i最大只能是4。i等于5时，arr(5,1)是不存在的，所以就出现错误

感谢大神的解释，修改后可以了

我就是我2020

qweram 发表于 2021-11-6 16:46
arr是二维数组，i最大只能是4。i等于5时，arr(5,1)是不存在的，所以就出现错误

Microsoft Visual  Basic        
  运行时错误‘-2147467259(80004005)’        
自动化（Automaion）错误     
继续   结束  调式  帮助

这个又是什么意思

qweram

我就是我2020 发表于 2021-11-8 11:08
Microsoft Visual  Basic        
  运行时错误‘-2147467259(80004005)’        
自动化（Automaion ...

只有错误提示，无法判断

raymond520

我就是我2020 发表于 2021-11-8 11:08
Microsoft Visual  Basic        
  运行时错误‘-2147467259(80004005)’        
自动化（Automaion ...

我也没看懂 哪里看出来i最大只能是4呢？