Question

VBA 数组 下标越界问题

Sub q()
m = 0
Dim PosArr()
For l = 1 To N * 225
m = m + 1
ReDim Preserve PosArr(1 To m, 1 To 2)
For ll = 2 To R2

If Abs(Sheet3.Cells(ll, C1 - 3).Value - DT(m)) < 0.000694 Then
PosArr(m, 1) = ll
PosArr(m, 2) = ll
End If
If Sheet3.Cells(ll, C1 - 3).Value < DT(m) And Sheet3.Cells(ll + 1, C1 - 3).Value > DT(m) Then
PosArr(m, 1) = ll
PosArr(m, 2) = 0
End If

Next ll
Next l
End Sub

Answer 1

请记住，redim Preserve 去定义动态二维数组的时候，只能改变最后一维的长度
所以 ReDim Preserve PosArr(1 To m, 1 To 2)，"1 to m" 这部分必须是定值

Answer 2

建议将数组定义调换一下：

PosArr(1 To 2, 1 To m)