Question

excel 的 vba中 ReDim Preserve提示下表越界

Private Sub 拾取掉落_Click()

Dim 掉落道具() As Variant
i = 1

掉落钱 = 0

With Worksheets("副本")

道具ID列数 = WorksheetFunction.Match("掉落", Range("1:1"), 0) + 1
道具数量列数 = WorksheetFunction.Match("掉落", Range("1:1"), 0) + 3

'遍历所有的道具
For 掉落道具行数 = 1 To .Range("副本_掉落行数").Value

'统计金钱
If .Cells(掉落道具行数, 道具ID列数).Value = 1 Then
掉落钱 = 掉落钱 + .Cells(掉落道具行数, 道具数量列数).Value
Else

ReDim Preserve 掉落道具(i, 2) As Variant ‘这里第一次运行过了，第二次FOR循环后提示下标越界

掉落道具(i, 1) = .Cells(掉落道具行数, 道具ID列数).Value
掉落道具(i, 2) = .Cells(掉落道具行数, 道具数量列数).Value
i = i + 1
End If
Next 掉落道具行数

'钱袋增加
钱袋 = Range("副本_钱袋").Value
.Range("副本_钱袋").Value = 掉落钱 + 钱袋
.Range("副本_掉落") = "" '掉落列

End With
End Sub

我不能知道数组的具体行数，想用这种办法在不清空数据的方法添加行数，或者大神还有什么好办法

Answer 1

如果使用数组时，数组的下标超出数组的可取值范围就会出现这个错误，这个数组可以是自定义的也可以是系统自带的。
1.自定义数组：
　dim arr1(1 to 5)
　arr1(10)=555
因为arr1数组为1到5，这里却是10，所以就会报下标越界错误。
2.系统自带的数组：
一个excel工作表表有3张Sheet
Sub 下标越界()
MsgBox Sheets(4).Name
End Sub
这里的Sheets(4)显然已经超出了3张Sheet，因此也会报下标越界错误。总之，有多种情况会引起“下标越界”的报错。
下标越界错误大概有以下的原因和解决方法：
1、引用了不存在的数组元素。
下标比可能下标范围大或小，或是在应用程序中这一边的数组没有指定范围。检查数组的声明以确认其上界和下界。若使用的是重新指定范围的数组，应使用 UBound 和 LBound 函数来决定数组访问。如果索引指定为变量，应检查变量名的拼写。
2、声明数组时没有指定元素的数目。
3、引用了不存在的集合成员。 试着使用 For Each...Next 结构代替指定元素下标。
4、使用速写形式的下标，结果指定了错误的元素。
5、下标越界不存在对应的工作薄、工作表名称是否写正确。

Answer 2

我很久没用vba了，不过刚看了一下，ReDim Preserve 掉落道具(i, 2)，这里面，那个“i”应该改为“1 to i”，即ReDim Preserve 掉落道具(1 to i, 2)，你试一下看能不能用。