VBA代码报“Else If without If”错误及合并逻辑异常求助

问题背景 #

编写的合并单元格VBA代码出现「Else If without If」错误，曾尝试在第一个If后加Exit Sub，但后续If逻辑完全不执行；移除Exit Sub后，关闭警告MsgBox会触发后续的IsNumeric判断，导致合并了本应禁止合并的行。

错误根源 #

第一个If语句使用下划线_写成单行If结构，这种写法不需要配套End If，执行完MsgBox后就结束了该If逻辑，导致后面的ElseIf找不到对应的主If，触发语法错误。同时原逻辑未在警告后终止程序，会继续执行后续分支，造成错误合并。

修正方案 #

1. 将第一个If改为块结构，确保所有ElseIf属于同一个判断体系
2. 弹出警告MsgBox后添加Exit Sub，直接终止程序，避免后续错误执行
3. 移除不必要的Select操作，提升代码执行效率

修正后的代码 #

Sub MergeTrn()
    Application.Cursor = xlDefault
    Dim activeRow As Long
    Application.DisplayAlerts = False
    activeRow = ActiveCell.Row
    
    With ActiveSheet
        ' 第一个判断：只有一行有效数据，禁止合并
        If IsNumeric(.Cells(activeRow, "C")) And .Cells(activeRow, "C").Offset(1) = "" Then
            MsgBox "Must have a second LRV and/or third LRV to merge the Train info.", vbCritical
            Application.DisplayAlerts = True ' 提前恢复警告，避免异常退出时状态异常
            Exit Sub ' 终止程序，不执行后续逻辑
        ElseIf IsNumeric(.Cells(activeRow, "C")) And IsNumeric(.Cells(activeRow, "C").Offset(1)) And _
               .Cells(activeRow, "C").Offset(2) = "" Then
            ' 合并2行
            .Cells(activeRow, "A").Resize(2).Merge
            .Cells(activeRow, "B").Resize(2).Merge
            .Cells(activeRow, "D").Resize(2).Merge
            .Cells(activeRow, "E").Resize(2).Merge
            .Cells(activeRow, "F").Resize(2).Merge
            .Cells(activeRow, "G").Resize(2).Select
        ElseIf IsNumeric(.Cells(activeRow, "C")) And IsNumeric(.Cells(activeRow, "C").Offset(1)) And _
               IsNumeric(.Cells(activeRow, "C").Offset(2)) Then
            ' 合并3行
            .Cells(activeRow, "A").Resize(3).Merge
            .Cells(activeRow, "B").Resize(3).Merge
            .Cells(activeRow, "D").Resize(3).Merge
            .Cells(activeRow, "E").Resize(3).Merge
            .Cells(activeRow, "F").Resize(3).Merge
            .Cells(activeRow, "G").Resize(3).Select
        End If
    End With
    
    Application.DisplayAlerts = True
End Sub

额外说明 #

• 使用With ActiveSheet简化单元格引用，减少重复代码
• 移除冗余的Select操作，直接对单元格范围执行Merge，代码更高效
• 在Exit Sub前提前恢复DisplayAlerts状态，防止程序异常退出时Excel一直处于关闭警告的状态

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