ListArray in VBA

Question

我尝试将字符串写入列表

Sub test()
Dim x() As String
For j = 1 To 5
x(j) = "Number" & j
Next j
End Sub

并得到消息"；下标超出范围"；。有人能告诉我这个片段出了什么问题，以及我如何解决它吗？

Answer 1

您必须重新Dim您的数组。

使用您的代码，您的数组没有定义长度，这就是为什么您会收到错误消息下标超出范围如果您知道确切的长度，就必须这样定义数组：

Dim  x(5) As String

如果你想保持动态，请尝试以下代码，每次迭代我们都会让你的阵列更大一步

Sub test()
Dim x() As String
Dim j As Integer
For j = 1 To 5
ReDim x(j) //Here change the Length of the Array
x(j) = "Number" & j
Next j
End Sub