range对象创建数组

ccmc509

range对象创建的数组为什么不能用msgbox显示呢？


该贴已经同步到 ccmc509的微博

hehex

从range 对象创建的数组都是2维数组。
从你的例子来看是一个一行3 列的数组。
数组元素是 arr(1,1),arr(1,2),arr(1,3)
你原来的代码上认为是一维数组，这是错误的，当然会下标越界。
你把 语句改成 msgbox arr(1,1) 就应该不会出下标越界的错误了。

初学数组 会经常与下标越界错误亲密接触的。

ccmc509

谢谢hehex明白了。“从range 对象创建的数组都是2维数组。”

hehex

ccmc509 发表于 2013-1-17 21:00
谢谢hehex明白了。“从range 对象创建的数组都是2维数组。”

是你这种直接引用创建的方式都是2维数组。
如果用其他方法比如先定义好一个1维数组，然后用循环的方法赋进去，那就可以是一维数组了。
sub demo
      dim arr(1 to 3), i as integer
       for i =1 to 3
            arr(i) = Cells (2,i)
            msgbox arr(i)
       next
end sub
上面是一例，和你的程序是同样的，把Range("a2:c2") 读进数组arr 里，只是arr 是事先定义好的1维数组，用循环读进去的，就能用你原来的想法用msgbox 输出数组内容。            

sunnysunali

Sub arr()
    Dim arr As Variant
    arr = Range("D5:F5").Value
    MsgBox "最大下标是：" & UBound(arr, 1) & Chr(13) & "最小下标是：" & LBound(arr, 1)
End Sub
为什么结果都是1呢？

battab_vba

sunnysunali 发表于 2014-1-22 13:15
Sub arr()
    Dim arr As Variant
    arr = Range("D5:F5").Value

arr为arr(1,5) 是1行5列,
UBound(arr,1)是指 行的上标,只有1行 显示1;
LBound(arr,1)是指 行的下标,只有1行 当然也显示1;
UBound(arr,2)结果就会显示5了.