Question

excelVBA中,下标越界是什么意思（下面有详细的，求高手帮助！！）

A列数据有18635条，是统计该列数据连续1次...到连续10次的数值和，VBA是：
Private Sub CommandButton1_Click()
Dim i, j, k, m, a(1 To 10) As Integer
j = 0
Cells(Range("A65536").End(xlUp).Row + 1, 1) = 0
For i = 1 To Range("A65536").End(xlUp).Row
If Cells(i, 1).Value = 0 Then
m = j
For k = i - j + 1 To i
a(m) = a(m) + Cells(k - 1, 1).Value
Next k
j = 0
Else
j = j + 1
End If
Next i
For k = 1 To 10
Cells(2, k + 2) = a(k)
Next k
Cells(Range("A65536").End(xlUp).Row, 1) = ""
End Sub
数据不多时可以计算，多了就这样，不明白？？？

Answer 1

不知道你的数据是否有连续多于10个大于0的数据，如果你的数据连续大于10个不等于0就会出现此错误。因为大于10个，你的J值就会大10进而m值就会大于10，数组a(m)下标就会越界.

追问

有大于10个的，你帮改改？？

追答

大于30000就显示“溢出”，因为你定义的变量i,j,k为短整形int,范围只能到20000多，你把变量定义为短整形的定义成长整形Long，应该就没问题了。