当试图运行包含以下if语句的代码时,我得到一个编译错误:预期:该行Elself IsArray(rng(J))Then
的语句结束。
If IsObject(rng(J)) = True Then
TempX = rng(J).Rows.Count
TempY = rng(J).Columns.Count
Elself IsArray(rng(J))Then
TempX = UBound(rng(J), 1)
TempY = UBound(rng(J), 2)
End If
现在尝试了一段时间,但似乎无法使其发挥作用。
答案 0 :(得分:3)
解决Elself
拼写错误,只需将End If
添加到最后一行(在新行上):
If IsObject(rng(J)) = True Then
TempX = rng(J).Rows.Count
TempY = rng(J).Columns.Count
ElseIf IsArray(rng(J)) Then
TempX = UBound(rng(J), 1)
TempY = UBound(rng(J), 2)
End If
注意:您在技术上不需要= True
位,您可以保留If IsObject(rng(J)) Then
。
答案 1 :(得分:3)
Elself应该用ElseIf替换(字母I不是L)