求修改Excel VBA：复制插入行后清单元格，删除行时禁用该逻辑

问题现象 #

实现复制插入新行后，清除该行指定单元格内容并设置公式的功能。当前代码可完成复制插入及清除操作，但删除其他行时，清除逻辑会错误作用于被删除行的下一行。

问题根源 #

删除行时，Excel的Worksheet_Change事件中，Target会指向被删除行下方上移的那一行，且满足原代码中Target.Rows.Count = 1 And Target.Columns.Count > 1的判断条件，同时CountA(r)不为0，导致错误触发清除和公式设置逻辑。

修正后的代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo ExitHandler
    Application.EnableEvents = False

    ' 仅处理粘贴/插入新行的操作，排除删除行场景
    If Target.Rows.Count = 1 And Target.Columns.Count > 1 Then
        Dim r As Range
        Set r = Target.Rows(1)
        Dim rowNum As Long: rowNum = r.Row
        
        ' 关键判断：仅在粘贴操作触发事件时执行逻辑
        If Application.CutCopyMode <> False Then
            ' 清除指定单元格内容
            Me.Cells(rowNum, 15).ClearContents
            Me.Cells(rowNum, 16).ClearContents
            Me.Cells(rowNum, 27).ClearContents
            
            ' 设置公式
            Me.Cells(rowNum, 16).Formula = "=Q" & rowNum
        End If
    End If

ExitHandler:
    Application.EnableEvents = True
End Sub

代码说明 #

• 添加Application.CutCopyMode <> False判断，仅在粘贴操作触发Change事件时执行逻辑，直接排除删除行的场景。
• 保留原有的清除和公式设置逻辑，确保复制粘贴新行后正常执行。
• 若需兼容手动插入行后再粘贴的场景，可额外添加行内容对比判断（比如当前行与上一行内容是否一致），根据实际需求启用。

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