“编译错误：预期：语句结束”

Question

当试图运行包含以下if语句的代码段时，出现编译错误：Expected：此行的语句结尾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 

已经尝试了一段时间，但似乎无法使其工作。

Answer 1

修复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 。

Answer 2

的Elself应与elseif的（字母I不L）