Excel生成VB ElseIf语句遇语法错误，求无需换行的合法语法

在Crystal Reports的VB自定义函数中，确实支持无需换行的If/ElseIf语法，关键是要遵循VB的语法规则，避免触发“Else without If”编译错误。

可行的语法格式： #

• 单行完整分支结构
  把整个判断逻辑写在同一行，适合简短的映射规则：

  If A = "A1" And B = "B1" Then C = "C1" ElseIf A = "A2" And B = "B2" Then C = "C2" Else C = "默认值" End If
  

• 分支分行但Then与语句同行
  若要保持分支可读性，每个分支单独一行，但必须让Then和对应的赋值语句在同一行：

  If A = "A1" And B = "B1" Then C = "C1"
  ElseIf A = "A2" And B = "B2" Then C = "C2"
  ElseIf A = "A3" And B = "B3" Then C = "C3"
  Else C = "默认值"
  End If
  

错误根源 #

你遇到的“Else without If”错误，几乎都是因为生成的代码中存在**Then后直接换行**的情况，比如：

If A = "A1" And B = "B1" Then
C = "C1"
ElseIf ...

这种写法属于VB的多行If结构，VB会判定第一个If块未闭合（需要End If），后续的ElseIf自然找不到对应的If，从而报错。

Excel公式调整建议 #

修改Excel第四列的公式，确保生成的ElseIf语句格式为：
ElseIf A = "xxx" And B = "yyy" Then C = "zzz"
手动补充的开头改为：
If A = "首个A值" And B = "首个B值" Then C = "首个C值"
结尾补充：
Else C = "默认值"
End If

这样生成的代码完全符合VB语法，不会出现编译错误。

内容的提问来源于stack exchange，提问作者Craig