如何在单个工作表中合并两个Worksheet_Change事件？

由于Excel工作表中只能存在一个Private Sub Worksheet_Change(ByVal Target As Range)事件过程，因此需要将两个宏的逻辑整合到同一个过程中，以下是合并后的完整代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 下拉多选功能变量声明
    Dim xRng As Range
    Dim xValue1 As String
    Dim xValue2 As String
    ' 时间戳更新功能变量声明
    Dim myTableRange As Range
    Dim myDateTimeRange As Range
    Dim myUpdatedRange As Range
    
    ' 处理下拉多选逻辑
    If Target.Count > 1 Then GoTo TimeStampLogic
    On Error Resume Next
    Set xRng = Cells.SpecialCells(xlCellTypeAllValidation)
    On Error GoTo 0
    If Not xRng Is Nothing Then
        If Not Application.Intersect(Target, xRng) Is Nothing Then
            Application.EnableEvents = False
            xValue2 = Target.Value
            Application.Undo
            xValue1 = Target.Value
            Target.Value = xValue2
            If xValue1 <> "" Then
                If xValue2 <> "" Then
                    If xValue1 = xValue2 Or _
                        InStr(1, xValue1, "; " & xValue2) Or _
                        InStr(1, xValue1, xValue2 & ";") Then
                        Target.Value = xValue1
                    Else
                        Target.Value = xValue1 & "; " & xValue2
                    End If
                End If
            End If
            Application.EnableEvents = True
        End If
    End If
    
TimeStampLogic:
    ' 处理时间戳更新逻辑
    Set myTableRange = Range("W4:W3000")
    If Not Intersect(Target, myTableRange) Is Nothing Then
        Application.EnableEvents = False
        Set myDateTimeRange = Range("AF" & Target.Row)
        Set myUpdatedRange = Range("AG" & Target.Row)
        If myDateTimeRange.Value = "" Then
            myDateTimeRange.Value = Now
        End If
        myUpdatedRange.Value = Now
        Application.EnableEvents = True
    End If
End Sub

合并说明 #

1. 事件唯一性处理：将两个宏的逻辑合并到同一个Worksheet_Change过程中，解决同名事件冲突问题。
2. 逻辑顺序优化：先处理下拉多选逻辑（涉及Application.Undo操作，会改变单元格状态），再执行时间戳更新逻辑。
3. 错误处理调整：缩小On Error Resume Next的作用范围，避免隐藏其他逻辑的异常。
4. 事件循环防护：在各自逻辑块中单独控制EnableEvents，确保操作完成后重新开启事件触发。

注意事项 #

• 删除工作表代码模块中原有的两个Worksheet_Change过程，仅保留合并后的版本。
• 若W列单元格同时设置了下拉验证，修改时会同时触发多选逻辑和时间戳更新，符合预期。
• 测试前建议备份数据，避免逻辑冲突导致数据异常。

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