在VBA编程中，条件判断是使用频率最高的语法之一，而If Then Else语句又是条件判断的核心。简单来说，它的作用是让程序根据条件的真假来决定执行哪一段代码。掌握了这条语句，你就能让宏具备"思考"的能力，比如根据单元格的值决定是否填充颜色，根据数据大小决定走哪条处理逻辑。本文将从基本语法、多种写法、实际案例到注意事项，把If Then Else一次讲透。
If Then Else语句的基本语法结构
If Then Else语句最基础的形式是判断一个条件，条件成立就执行一段代码，不成立就执行另一段。完整的块状语法如下：
If 条件 Then
条件成立时执行的代码
Else
条件不成立时执行的代码
End If
举个最简单的例子，判断A1单元格的值是否大于60：
Sub 判断成绩()
If Range("A1").Value > 60 Then
MsgBox "及格了"
Else
MsgBox "不及格"
End If
End Sub
需要注意，VBA中的If判断对条件的真假非常严格，条件表达式最终会被评估为True或False。如果条件表达式结果为数值，0会被当作False，非0会被当作True，这一点在处理数字型变量时尤其要留意。
单行写法与块状写法的区别
If Then语句有两种书写形式：单行写法和块状写法。单行写法把条件和执行语句写在同一行，不需要End If结尾，例如：
If Range("A1").Value > 60 Then MsgBox "及格"
当成立时只需要执行一句代码，且不需要Else分支时，单行写法非常简洁。但如果逻辑稍复杂，比如成立时要执行多行代码，或者需要Else分支，就应该使用块状写法，代码结构会更清晰。
一个常见的错误是混用两种写法：在单行写法后面又加了End If，这会直接导致编译错误"End If没有对应的If块"。记住一个原则：只要Then后面的代码换行了，就必须用End If收尾；写在同一行就绝对不能加End If。
| 写法 | 适用场景 | 是否需要End If |
|---|---|---|
| 单行写法 | 条件成立只执行一句代码 | 不需要 |
| 块状写法 | 多行代码或有Else分支 | 必须需要 |
用ElseIf处理多条件分支
现实业务中往往不止两种情况，比如成绩分级就有优秀、良好、及格、不及格四档。这时就需要ElseIf来串联多个条件：
Sub 成绩分级()
Dim score As Double
score = Range("A1").Value
If score >= 90 Then
MsgBox "优秀"
ElseIf score >= 80 Then
MsgBox "良好"
ElseIf score >= 60 Then
MsgBox "及格"
Else
MsgBox "不及格"
End If
End Sub
这里有一个关键点：If Then Else的多个分支是按顺序判断的，一旦某个条件成立，后面的分支会被直接跳过。所以条件的排列顺序很重要，上面这个例子必须从高分往低分写，如果反过来先判断score >= 60，那么90分的成绩也会落进"及格"分支，逻辑就全错了。
另外，ElseIf是一个完整的单词，中间不能写成Else If（虽然某些情况下Else后接嵌套If也能运行，但含义完全不同，容易产生结构混乱）。最后一个Else分支不带条件，它的作用是兜底处理所有前面条件都不成立的情况，建议养成写Else兜底的习惯，避免出现所有分支都被漏掉的死角。
嵌套If的使用方法与可读性优化
当一个判断内部还需要再判断时，就会用到嵌套If。比如先判断单元格是否有数据，再判断数值是否达标：
If Not IsEmpty(Range("A1")) Then
If Range("A1").Value > 60 Then
MsgBox "数据有效且及格"
Else
MsgBox "数据有效但不及格"
End If
Else
MsgBox "单元格为空"
End If
嵌套层级一多，代码可读性会急剧下降。实战中有两个优化方向：一是用And、Or运算符合并条件，比如把两层判断合并成If Not IsEmpty(...) And Range("A1").Value > 60 Then；二是用提前退出的思路减少嵌套，先处理异常情况并Exit Sub，让主逻辑保持在最外层。
无论嵌套多少层，都要保证每个If都有配对的End If，并且用缩进来体现层级关系。VBA编辑器虽然不强制缩进，但良好的缩进习惯能让你在排查逻辑错误时事半功倍。
常见报错与避坑建议
根据经验，If Then Else语句的高频问题主要有以下几类，逐一对照排查即可解决大部分报错：
- End If缺失或多余：块状写法漏写End If会报"块If没有End If"；单行写法加了End If会报"End If没有对应的If"。检查Each Then后的代码是否换行，保持两种写法不混用。
- 条件顺序错误：多分支判断时范围条件必须按从大到小或从小到大的单一方向排列，否则会出现覆盖性错误。
- 字符串比较未统一大小写：VBA默认区分大小写，比较文本前可用LCase或UCase统一转换，例如If LCase(str) = "yes" Then。
- 类型不匹配：单元格为空或包含文本时参与数值比较会报错，判断前先用IsNumeric、IsEmpty做保护。
- 浮点数直接用等号比较：小数计算存在精度误差，应改用Abs(a - b) < 0.000001这种方式判断相等。
- 漏写Else兜底：所有条件都不成立时程序会静默跳过，可能掩盖数据异常，重要流程务必加Else处理意外情况。
如何选择合适的判断结构
最后谈谈选择问题。单条件二选一，用最基础的If Else；条件成立只需执行一句，可用单行写法精简代码；三档以上分支，用ElseIf串联，注意条件排序；分支条件是同一个变量的多个离散取值（比如按星期几执行不同操作），可以考虑用Select Case代替，代码会更整洁；嵌套超过两层的，优先考虑合并条件或重构逻辑。
总的来说，If Then Else是VBA的逻辑骨架，语法本身不难，难点在于条件的组织顺序和边界情况的处理。写代码时多问自己一句"如果条件都不成立会怎样"，很多隐藏问题就能提前暴露。把本文的语法要点和避坑清单收藏起来，实际编写时对照检查，你的判断逻辑代码会越来越稳。
VBAIfThenElse语句VBA条件判断修改时间：2026-09-05 13:39:15