我是 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)
无论如何,消息框都会出现为零。您能提供的任何帮助将不胜感激。
最佳答案
你的 for 循环写错了。你写了以下
For i = 1 To i = 6
VBA 将 i = 6 解释为一个表达式(i 是否等于 6?)该表达式的计算结果为 false,它被转换为一个整数(零),然后它尝试执行
For i = 1 To 0
,这是一个空循环,因此整个循环被跳过。它应该是
For i = 1 To 6
关于arrays - 我正在尝试通过 for each 循环将值添加到数组中,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/24021443/