[已解决]如何把单元 格中的值一次付给数组

向前650809

各位网好好，现有一工作表，有29行3列，现想把这29行3列单元格的值（有文本有数值）一次付给一数组
我写的代码如下
Sub 付值()
Dim aa(1 To 29, 1 To 3)
aa = Sheet1.Range("a1:c29")
MsgBox aa(3, 1)
End Sub
但提示出错，这是为什么，要把多个单元格的值一次付给数组，应怎么写代码
谢谢

最佳答案

月排行榜 / 总排行榜

那么的帅

2011-5-26 17:50

回复 向前650809 的帖子

不需要定义数组大小

1. 
   
2. Sub 付值()
   
3. Dim aa
   
4. aa = Sheet1.Range("a1:c29")
   
5. MsgBox aa(3, 1)
   
6. End Sub
   

复制代码

跳转到最佳答案楼层

那么的帅

回复 向前650809 的帖子

不需要定义数组大小

1. 
   
2. Sub 付值()
   
3. Dim aa
   
4. aa = Sheet1.Range("a1:c29")
   
5. MsgBox aa(3, 1)
   
6. End Sub
   

复制代码

向前650809

谢谢指导111111111111

林海玲子

为什么用以上代码，我的老提示“下标越界”