[已解决]vba中数组显示下标越界的原因

chen1237777

Sub yy()
Dim arr, arr1()
Dim x, k
arr = Range("d8:j9")
For x = 1 To 3
If arr(x, 1) = "chen" Then
k = k + 1
ReDim Preserve arr1(1 To 7, 1 To k)
arr1(1, k) = arr(x, 1)
arr1(2, k) = arr(x, 2)
arr1(3, k) = arr(x, 3)
arr1(4, k) = arr(x, 4)
arr1(5, k) = arr(x, 5)
arr1(6, k) = arr(x, 6)
arr1(7, k) = arr(x, 7)
Range("d20,j21") = Application.Transpose(arr1)
End If
Next x
End Sub
我用f8运行 发现循环到第三次在k = k + 1处出现下标越界 求解答

最佳答案

月排行榜 / 总排行榜

兰色幻想

2012-5-6 01:00

arr中只有两行数据，你循环到3当然出错了

跳转到最佳答案楼层

兰色幻想

arr中只有两行数据，你循环到3当然出错了

chen1237777

兰色幻想 发表于 2012-5-6 01:00
arr中只有两行数据，你循环到3当然出错了

不好意思 原谅一下 新手 老是犯低级的错误