为什么会出现“运行时错误13，类型不匹配”？

gwfzh

各位老师：请问，在调用子程序的主程序中下面语句（红色标示处）为什么会出现“运行时错误13，类型不匹配”？
'主程序
Sub jg10() '
dim jrr()
。。。。。。。。。。。。。

ReDim jrr(1 To UBound(Arr0), 1 To 93)
Sheets("Sheet总表").Range("ab3:dp" & UBound(Arr0))。。。。。。。。
'子程序
Sub jg1(mrr1(), ByRef jrr(), jr0 As String)

。。。。。
end sub

。。。。。
请各位老师帮帮忙！

ahzll

原帖由 gwfzh 于 2010-6-13 17:22 发表
各位老师：请问，在调用子程序的主程序中下面语句（红色标示处）为什么会出现“运行时错误13，类型不匹配”？
'主程序
Sub jg10() '
dim jrr()
。。。。。。。。。。。。。

ReDim jrr(1 To UBound(Arr0), 1 T ...

UBound(Arr0)是数值型，要转换成字符型CSTR(UBound(Arr0))

alzeng

原帖由 ahzll 于 2010-6-13 17:37 发表

UBound(Arr0)是数值型，要转换成字符型CSTR(UBound(Arr0))

跟数值类型无关吧？
重要的是要知道Ubound(Arr0)空间是多少……

gwfzh

原帖由 alzeng 于 2010-6-13 17:50 发表

跟数值类型无关吧？
重要的是要知道Ubound(Arr0)空间是多少……

谢谢各位老师！arr0j是：
Arr0 = Sheets("Sheet总表").Range("B3").Resize(r - 2, 7)

lu_zhao_long

原帖由 gwfzh 于 2010-6-13 19:34 发表

谢谢各位老师！arr0j是：
Arr0 = Sheets("Sheet总表").Range("B3").Resize(r - 2, 7)

楼主只要回答 Ubound(Arr0) 的值等于多少就行了！总不至于还要让大家再追问一下 r 等于多少吧？！

gwfzh

原帖由 alzeng 于 2010-6-13 17:50 发表

跟数值类型无关吧？
重要的是要知道Ubound(Arr0)空间是多少……

谢谢各位老师！arr0j是：
Arr0 = Sheets("Sheet总表").Range("B3").Resize(r - 2, 7)

gwfzh

原帖由 lu_zhao_long 于 2010-6-13 19:39 发表

楼主只要回答 Ubound(Arr0) 的值等于多少就行了！总不至于还要让大家再追问一下 r 等于多少吧？！

谢谢lu_zhao_long 老师！ Ubound(Arr0) 的值是921（Arr0 (1 to 921, 1 to 7)）r的值是923

gwfzh

不过试着用下面语句时出现同样的错误
jrr = [ab3: dp921 ]

alzeng

Dim jrr 不要Dim jrr() 。