将两个函数合并至同一个Private Sub时遇“Block If without End If”错误求助

嘿，这个错误我之前也踩过坑！本质就是你的代码里多行If语句（Block If）没有对应的End If闭合，尤其是把两个函数合并到同一个Worksheet_Change事件里时，很容易因为结构混乱漏掉收尾的End If。结合你给出的代码片段，我给你梳理下解决思路和修正后的示例：

核心问题分析 #

当你写的是多行If结构（也就是If [条件] Then后换行写代码块），就必须在代码块结束后加上End If；如果是单行的If [条件] Then [语句]则不需要，但如果后续有Else/ElseIf分支，还是要转为多行结构并补全End If。

修正后的完整代码示例 #

我假设你原来的两个功能分别是处理J列（勾选时填充日期）和A列（自定义操作），给你补全了正确的结构：

Private Sub Worksheet_Change(ByVal Target As Range)
    'Fill in Date when checked.
    Dim rngColJ As Range
    Dim rngColA As Range
    Dim Rng As Range
    Dim Rngg As Range
    Dim xOffsetColumn As Integer
    
    ' 先禁用事件，避免循环触发Change事件
    Application.EnableEvents = False
    
    ' 错误处理：确保即使出错也能恢复事件状态
    On Error GoTo Cleanup

    ' 第一个功能：J列勾选时填充日期到偏移列
    Set rngColJ = Intersect(ActiveSheet.Range("J:J"), Target)
    xOffsetColumn = 20 ' 对应偏移20列（J+20=AD列）
    
    ' 检查Target是否在J列范围内
    If Not rngColJ Is Nothing Then
        For Each Rng In rngColJ
            ' 假设J列是复选框或布尔值，勾选时填日期，取消则清空
            If Rng.Value = True Then
                Rng.Offset(0, xOffsetColumn).Value = Date
            Else
                Rng.Offset(0, xOffsetColumn).Value = ""
            End If ' 闭合内部的If
        Next Rng
    End If ' 闭合rngColJ的判断If

    ' 第二个功能：处理A列的自定义操作（这里是示例，你替换成自己的逻辑）
    Set rngColA = Intersect(ActiveSheet.Range("A:A"), Target)
    If Not rngColA Is Nothing Then
        For Each Rngg In rngColA
            ' 示例：A列有内容时，B列转大写
            If Rngg.Value <> "" Then
                Rngg.Offset(0, 1).Value = UCase(Rngg.Value)
            End If ' 闭合内部的If
        Next Rngg
    End If ' 闭合rngColA的判断If

Cleanup:
    ' 恢复事件状态，这步很重要，不然后续Change事件会失效
    Application.EnableEvents = True
    ' 如果有错误，弹出提示
    If Err.Number <> 0 Then
        MsgBox "运行出错：" & Err.Description, vbExclamation
    End If
End Sub

关键检查要点 #

• 逐个配对If和End If：把代码里的每个If找出来，确保都有对应的End If，嵌套的If要注意层级，别搞混顺序。
• 合并函数时别丢结构：两个原有函数里的If结构，合并后要完整保留各自的闭合语句，不要因为复制粘贴漏掉End If。
• 事件处理的最佳实践：Worksheet_Change里一定要先禁用事件，处理完再恢复，还要加错误处理，避免因为代码出错导致事件一直处于禁用状态。

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