[已解决]数组赋值的基础问题，不许笑我

sunshinegg

数组赋值的问题

Sub test()

Dim arr1, arr2

arr1 = [a1:c3]

arr2(1, 1) = arr1(1, 1)

Range("d1") = arr2(1, 1)

End Sub

Sub test2()

Dim arr1, arr2

arr1 = [a1:c3]

arr2 = [a4:c7]

arr2(1, 1) = arr1(1, 1)

Range("d1") = arr2(1, 1)

End Sub

Test2是可行的  test1是错误的

程序提示这样赋值是错的arr2(1, 1) = arr1(1, 1)

我只好强行的加一句arr2 = [a4:c7]，a4到c7是未使用的单元格，这样就行了。

我基础很差，请各位老师指导一下

最佳答案

月排行榜 / 总排行榜

roych

2015-3-16 15:38

需要定义arr2的维数
ReDim arr2(1 To 3, 1 To 3)
然后才可以赋值的。否则arr2只是一个变量，不能等同与数组。

跳转到最佳答案楼层

roych

需要定义arr2的维数
ReDim arr2(1 To 3, 1 To 3)
然后才可以赋值的。否则arr2只是一个变量，不能等同与数组。