arrays - 我正在尝试通过 for each 循环将值添加到数组中

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 ，这是一个空循环，因此整个循环被跳过。

它应该是

For i = 1 To 6