如何在Excel中合并两个独立的Worksheet_Change事件过程

Excel单个工作表无法同时存在多个Private Sub Worksheet_Change(ByVal Target As Range)事件，需将两个独立功能的代码合并到同一个事件过程中，才能让二者同时生效。

两个功能需求：

• 当B列单元格输入内容时，对应行的A列自动填入当日日期（B列清空则A列同步清空）
• 当I列单元格输入内容时，移除对应行H列的公式，仅保留单元格数值

合并后的完整代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cell As Range
    
    ' 关闭事件触发，避免修改单元格时递归触发Worksheet_Change
    Application.EnableEvents = False
    
    ' --- 功能1：B列输入时，A列填充当日日期 ---
    For Each Cell In Target
        ' 判断修改的单元格是否属于B列
        If Cell.Column = Range("B:B").Column Then
            If Cell.Value <> "" Then
                ' 仅保留日期部分（去除时间）
                Cells(Cell.Row, "A").Value = Int(Now)
            Else
                ' B列清空时同步清空A列
                Cells(Cell.Row, "A").Value = ""
            End If
        End If
    Next Cell
    
    ' --- 功能2：I列输入时，将对应行H列转为数值 ---
    ' 判断修改的单元格是否在I1:I100000范围内
    If Not Intersect(Target, Range("I1:I100000")) Is Nothing Then
        Set Cell = Me.Cells(Target.Row, "H")
        ' 仅当H列有公式时执行转数值操作
        If Cell.HasFormula Then
            Cell.Value = Cell.Value
        End If
    End If
    
    ' 恢复事件触发，保证后续正常响应单元格修改
    Application.EnableEvents = True
End Sub

关键说明 #

• 必须添加Application.EnableEvents开关：修改A列单元格会再次触发Worksheet_Change事件，关闭事件触发可避免无限循环，执行完所有操作后需恢复。
• 两个功能的判断逻辑完全独立，按顺序执行互不干扰，保留了原代码的所有功能逻辑。

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