请教：关于Array的赋值问题

cccmercury

请教以下代码中，标红色的部分要如何写才是正确的？
Sub arrdata()
Dim a, i As Integer
Dim arr
a = InputBox("input a number")

For i = 0 To a
arr(i) = Application.WorksheetFunction.RandBetween(1, 30)
Cells(i + 1, 1) = arr(i)
Next

End Sub

王小博vba

1. Sub arrdata()
   
2. Dim a, i As Integer
   
3. a = InputBox("input a number")
   
4. For i = 0 To a
   
5. Range("A" & i + 1).Formula = "=RANDBETWEEN(1,30)"
   
6. Next
   
7. End Sub

复制代码

不知道你想实现的功能是不是这个样子。你定义个变量就行了。为什么非要定义一个变长的数组呢？而且，数组都没有定义好，怎么去使用呢？

cccmercury

王小博vba 发表于 2012-12-19 16:23
不知道你想实现的功能是不是这个样子。你定义个变量就行了。为什么非要定义一个变长的数组呢？而且，数组都 ...

谢谢！我主要是想学习理解数组的使用，看数组是如何赋值什么的。然后再将数组结果显示出来
现在还不是很会使用数组，但是看到很多实例中并没有对数组定义的很清楚，但是也能使用。
现在还没能弄明白，请教，如果要用数组，怎样的代码是正确的？
非常感谢！

王小博vba

cccmercury 发表于 2012-12-21 09:37
谢谢！我主要是想学习理解数组的使用，看数组是如何赋值什么的。然后再将数组结果显示出来
现在还不是很 ...

1. Sub t()
   
2.     [A5:A10] = [{1,2,3,4,5,6}]
   
3.     [B5:B10] = [{1;2;3;4;5;6}]
   
4.     Range("A3:F3") = Array("a", "abc", "bc", "ac", "b", "abc")
   
5.     [D6:G9] = [{1,1,1,1;2,2,2,2;3,3,3,3;4,4,4,4}]
   
6. End Sub

复制代码

《别怕，Excel VBA其实很简单》里将数组解释的很通俗易懂。看看吧。
书里将数组比喻成书架或者是杂货架。更可以想象成是一个线性代数里的矩阵。它实际就是一个数据的载体。当你有多个数据（这些数据的类型可能不同，比如人的姓名，出生日期，身高，体重等信息）需要使用或者暂存的时候，数组就能很好的完成这种工作。因为在VBA中，如果程序开头没有写Option Explicit这样的关键字，你使用变量前都不用去特意声明它。我学习过程总总结的数组赋值的例子，你可以运行一下，看看有什么不同的效果。然后再回过头思考下是为什么。我这只能是与你分享下我学的时候的经验。

cccmercury

王小博vba 发表于 2012-12-21 14:29
《别怕，Excel VBA其实很简单》里将数组解释的很通俗易懂。看看吧。
书里将数组比喻成书架或者是杂货架。 ...

谢谢！我刚刚又看了几遍数组那节，终于搞明白了。原来是我的数组定义不对。
现在有头绪了，改过以后可以正常运行了，也谢谢你的信息！