Excel VBA 运行时错误9，下标越界

Question

我在用程序给数组赋值时，出现“运行时错误9，下标越界”，请看下问题在哪里，谢谢！
Sub a()
Dim i As Integer
Dim sort() As String
i = 1
Sheets("sheet1").Range("A2").Select
sort(i) = ActiveCell.Offset(1, 0).Value
End Sub

Answer 1

sheet1看看是否此名称的工作表不错在！或者大小写应该是Sheet1

追问

应该不是这个问题，Sheet1是有的，大小写改完后问题仍在。

追答

Dim sort() As String 你这样定义sort()就是一个数组

使用前需要redim确认一下数组的维度及大小

追问

请问，如果数组的大小是变量，该怎么先确定它的大小？不可以通过变量来给数组赋值吗？谢谢。

追答

Sub test()
Dim arr()
ReDim arr(1 To 10, 1 To 1)
For i = 1 To 10
arr(i) = i
Next
MsgBox arr(10)
End Sub
有些基础的东西还是要知道的，不然怎么写代码呢？