我正在尝试通过for循环为数组添加值

Question

我是VBA的新手，我尝试通过for循环向数组添加值，但我似乎无法添加任何值。它不会抛出任何错误，它只是没有任何错误。这就是我所拥有的：

Dim i As Long
Dim results() As Long

ReDim results(1 To 6)

For i = 1 To i = 6
    results(i) = 1
Next i

MsgBox results(1)

无论如何，消息框只是零。非常感谢您提供的任何帮助。

Answer 1

您的for循环写错了。你写了以下

For i = 1 To i = 6

VBA将i = 6解释为表达式（i等于6？）表达式求值为false，转换为整数（零），然后尝试执行For i = 1 To 0，这是一个null循环，以便跳过整个循环。

应该是

For i = 1 To 6