Excel Worksheet.Change事件删除行及撤销时的触发行为疑问

问题核心拆解 #

你遇到的三个现象：删除行时移位行不在Target、撤销时移位行仍不在Target、撤销后事件重复触发，本质都是Excel事件机制的特性导致的，下面逐一解释：

1. 删除/撤销行时，移位行不纳入Target的原因 #

Worksheet.Change事件的Target参数仅记录用户直接操作修改的单元格范围，而非所有因操作间接改变的单元格。

• 删除第6行时，你直接操作的是第6行的单元格，Excel自动将下方行上移是内部的单元格位置调整行为，不属于用户直接修改的内容，所以移位的第7、8行不会被包含在Target里。
• 执行Ctrl+Z撤销时，Excel恢复的是被删除的第6行，下方行的下移同样是内部自动调整，因此Target依然只指向恢复的第6行。

2. 撤销后事件再次触发的原因 #

你代码里的MsgBox会阻塞Excel的UI线程，打乱了事件触发的正常时序。当你在Change事件中弹出对话框时，Excel的操作队列被暂停，撤销完成后关闭对话框，Excel需要重新同步工作表的状态，这就可能触发额外的Change事件。

解决方法：优化事件处理代码 #

要避免重复触发，同时确保事件逻辑正常执行，需要在事件开始时禁用事件触发，结束后再恢复，还要加上错误处理防止事件被意外禁用：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cell As Range
    Dim msg As String
    
    ' 禁用事件，防止重复触发
    Application.EnableEvents = False
    
    On Error GoTo Cleanup ' 错误处理，确保事件能恢复
    
    For Each Cell In Target
        msg = msg & " " & Cell.Value
    Next Cell

    MsgBox Target.Address & vbCrLf & msg

Cleanup:
    ' 恢复事件触发
    Application.EnableEvents = True
    If Err.Number <> 0 Then Err.Raise Err.Number ' 抛出未处理的错误
End Sub

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