保存数组中元素问题

simengzhixia

Public arr()
Sub aa()
For I = 1 To 3
arr() = 1
msg arr(I - 1)
Next I
End Sub
不行啊
望给予帮助，我试了下“常数、固定长度字符串、数组、用户定义类型以及DECLARE语句不允许作为对象模块的公共成员”
万分感谢，谢谢谢谢谢谢！（我的理解是arr()应该有三个元素  1 1 1）
http://www.excelpx.com/forum.php?mod=viewthread&tid=185909&page=1#pid2719831

simengzhixia

朋友们帮我看下！！

simengzhixia

怎么没人答？

爱疯

这过程要做什么呢。
1要赋值给数组元素。

吕?布

Public arr()
Sub aa()
    ReDim arr(1 To 1)
    For i = 1 To 3
        ReDim Preserve arr(1 To i)
        arr(i) = i
        MsgBox arr(i)
    Next i
End Sub