Question

VBA 中 数组下标越界问题

Dim Newdate()
For j = 3 To R2
If DateValue(S.Cells(j, C1 - 3).Value) > DateValue(S.Cells(R1, 1).Value) _
And DateValue(S.Cells(j, C1 - 3).Value) <> DateValue(S.Cells(j - 1, C1 - 3).Value) Then
ReDim Preserve Newdate(1 To i)
Newdate(i) = DateValue(S.Cells(j, C1 - 3).Value) ('下标越界)
i = i + 1
End If
Next j
其中C1,R2都是已知整数，运行结果出现Newdate下标越界？哪里错了？
i已赋初值i=1

Answer 1

i没有赋值，i=0
ReDim Preserve Newdate(1 To i)
变成ReDim Preserve Newdate(1 To 0)
所以下表越界

追问

设有初值，还是错误。

追答

C1是不是小于3？

追问

不是，C1=10。您帮我看看下面的代码，这个解决了就好了
http://zhidao.baidu.com/question/584867329.html

追答

把文件发来evilfarmer@126.com

追问

已经发过去了，麻烦老师了。

Answer 2

你 定义 Newdate(1 To i)，而最后 i=i+1,当i+1时，越界了

Answer 3

没有给 i 赋初值