我试图通过每个循环添加值到数组中

我是新来的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解释为一个expression式（我等于6？）expression式计算结果为false，将其转换为Integer（零），然后尝试执行For i = 1 To 0 ，这是一个空循环所以整个循环被跳过。

它应该是

 For i = 1 To 6