我在这段代码中缺少什么：“否则没有 if 错误”？

我正在尝试运行首先声明的代码wsD进而WsS取决于“数据”选项卡中的单元格。我不断收到

else 没有 if 错误。

Set wsD = ThisWorkbook.Sheets("Data")

    If wsD.Range("C4") = "AL" Then Set wsS = ThisWorkbook.Sheets("AL_Sim")
    ElseIf wsD.Range("C4") = "COLL" Then Set wsS = ThisWorkbook.Sheets("COLL_Sim")
    ElseIf wsD.Range("C4") = "COMP" Then Set wsS = ThisWorkbook.Sheets("COMP_Sim")
    ElseIf wsD.Range("C4") = "GL" Then Set wsS = ThisWorkbook.Sheets("GL_Sim")
    ElseIf wsD.Range("C4") = "EPL" Then Set wsS = ThisWorkbook.Sheets("EPL_Sim")
    ElseIf wsD.Range("C4") = "LAW" Then Set wsS = ThisWorkbook.Sheets("LAW_Sim")
    ElseIf wsD.Range("C4") = "POL" Then Set wsS = ThisWorkbook.Sheets("POL_Sim")

    End If
Next

The If语句有两种合法语法。

Inline:

If {bool-expression} Then {statement}

并阻止：

If {bool-expression} Then
    {statements}
End If

因此，如果在同一行后面有一条语句Then关键字，VBA 解析If语句作为内联语法。

因此，由于该语句已完成，因此下一个语句以ElseIf对编译器来说没有意义：有一个“else without if”。