[已解决]数组下标越界,这是怎么回事？

morlay2012

Sub test()
    Dim arr
    Dim k
    arr = Range("a1:a7")
    For k = 1 To UBound(arr)
    arr(1) = 100
   
    Next k
   
'MsgBox UBound(arr, 1)
End Sub

问题：在arr(1)=100的时候提示“数组下标越界”
此句必须这样写：arr(1,1)=100这样才不会错，请问这是什么原因？希望能详细解释。
如果用
dim arr(1 to 10)
arr(1) =100
这样定义就不会错。
这高手解答一下。谢谢。

最佳答案

月排行榜 / 总排行榜

suye1010

2012-10-22 16:01

  arr = Range("a1:a7")赋值以后，arr是一个二维数组Arr(1 to 7,1),所以引用的时候要Arr（1,1）

跳转到最佳答案楼层

从从容容

一维数组与二维数组的区别

suye1010

  arr = Range("a1:a7")赋值以后，arr是一个二维数组Arr(1 to 7,1),所以引用的时候要Arr（1,1）

morlay2012

哦，谢谢啦。终于明白了。

hamsik11

suye1010 发表于 2012-10-22 16:01
arr = Range("a1:a7")赋值以后，arr是一个二维数组Arr(1 to 7,1),所以引用的时候要Arr（1,1）

vba这个似乎有点问题，如果设定一个区域为动态区域，把它赋给arr的话，如果这个动态区域只有一个单元格，那么arr又成一个一维数组了，程序写起来要多加注意了。
譬如，arr = Range("a1")，哪arr又成一个一维数组了

qjsu

虽然看的云里雾里的，但是好像名啦了一些道理，哈哈，学习了

上清宫主

只有一个单元格就成了一维数组？确定？
我啷个重来没从区域中得到过一维数组呢？

hamsik11

上清宫主 发表于 2012-10-22 17:19
只有一个单元格就成了一维数组？确定？
我啷个重来没从区域中得到过一维数组呢？

你试试.....
Public Sub test()
Dim arr
arr = Sheets("sheet1").Range("a1")
End Sub