将表区域copy近二维数组，怎么老报错捏~~~各位高手帮忙看看吧~~~

catof8days

Dim num_GSR9_PC_Backlog()
num_GSR9_PC_Backlog() = Worksheets("Customer_Backlog_PC_GSR9").Range(Cells(7, 1), Cells(42,  9))


麻烦各位前辈帮我看看上面那个语句哪里不对呢？
我想把
运行以后报错，Customer_Backlog_PC_GSR9页里面的cell(7,1)到cells(42,9)里面的数值拷进数组。变成二维数组。

"application-defined or object defined error."



多谢各位啦~~~帮帮忙~~~~~

[ 本帖最后由 catof8days 于 2010-11-4 14:22 编辑 ]

catof8days

沉得好快啊~~~！

hanter007

Dim num_GSR9_PC_Backlog
With Worksheets("Customer_Backlog_PC_GSR9")
    num_GSR9_PC_Backlog = .Range(.Cells(7, 1), .Cells(42, 9))
End With

Zamyi

工作表“Customer_Backlog_PC_GSR9”有没有存在？

catof8days

存在着呢~~

Zamyi

没错呀，建议上传附件。

catof8days

首先谢谢你，
但是我用你的方法试了一下，倒是不报刚才的错了
报 type missmatch的错？这是为什么呢？

hanter007

我测试过没有问题.

Sub test()

Dim num_GSR9_PC_Backlog
With Worksheets("Customer_Backlog_PC_GSR9")
    num_GSR9_PC_Backlog = .Range(.Cells(7, 1), .Cells(42, 9))
End With
MsgBox UBound(num_GSR9_PC_Backlog, 1)
MsgBox UBound(num_GSR9_PC_Backlog, 2)
End Sub

catof8days

多谢啦~~！嘿嘿，昨天没看仔细，今天用您的方法已经解决了~~多谢多谢~~~嘿嘿