我用VBA写了一段程序arr(j - 4, k) = Sheet2.Cells(j, i)报下标越界，请高手指点，非常感谢！我把代码复制

Question

初学者，请各位指教

Public Sub 筛选数据()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim Lie As Integer
Dim Hang As Integer
Dim Lie_total As Integer
Dim Hang_total As Integer
Dim arr()
Lie = 0
Lie_total = Sheet2.UsedRange.Columns.Count
Hang_total = Sheet2.UsedRange.Rows.Count
Hang = Sheet2.UsedRange.Rows.Count - 4
If Sheet2.Cells(5, 1) <> "" Then
Lie = Lie + 1
End If

For i = 2 To Lie_total
If Sheet2.Cells(5, i) <> "" And Sheet2.Cells(5, i) <> Sheet2.Cells(5, i - 1) Then
Lie = Lie + 1
Else
End If
Next i

ReDim Preserve arr(1 To Hang, 1 To Lie)

For j = 5 To Hang_total
arr(j - 4, 1) = Sheet2.Cells(j, 1)
Next j

j = 2
For i = 2 To Lie_total
If Sheet2.Cells(5, i) <> "" And Sheet2.Cells(5, i) <> Sheet2.Cells(5, i - 1) Then
arr(5, j) = Sheet2.Cells(5, i)
j = j + 1
End If
Next i

k = 1
For j = 6 To Hang_total
For i = 2 To Lie_total

If Sheet2.Cells(5, i) <> "" And Sheet2.Cells(5, i) <> Sheet2.Cells(5, i - 1) Then
k = k + 1
arr(j - 4, k) = Sheet2.Cells(j, i)
ElseIf Sheet2.Cells(5, i) = "" Then
ElseIf Sheet2.Cells(5, i) = Sheet2.Cells(5, i - 1) Then
arr(j - 4, k) = arr(j - 4, k) + Sheet2.Cells(5, i)
End If
Next i
Next j

End Sub
ReDim Preserve arr(1 To Hang, 1 To Lie)是不是已经定义了，二维数组可不可以既存字符串又存可以计算的数值，非常感谢！

Answer 1

arr（）是二维数组，你没定义
数组长度假设是100*100
dim arr（100，100）as double

追问

谢谢！
但是ReDim Preserve arr(1 To Hang, 1 To Lie)是不是已经定义了，二维数组可不可以既存字符串又存可以计算的数值，非常感谢！

Answer 2

请问你的最后是怎么解决下标越界问题的？非常期待您的指点

Answer 3

很羡慕编程牛逼的人