Excel VBA Worksheet_Change事件跨列粘贴误触发问题求助

当前代码的问题在于，只要粘贴区域与目标监测区域（RNG1/RNG2）有交集就会触发事件，哪怕粘贴区域跨列覆盖了非监测区域。要实现「允许单列粘贴到监测区域，阻止跨列粘贴（即使包含监测列）」的需求，可以通过判断粘贴区域是否完全落在监测区域内来过滤无效触发。

修改思路：

• 当触发事件的单元格区域（Target）是多单元格时，额外检查该区域是否完全包含在Union(RNG1, RNG2)中；
• 只有完全落在监测区域内的多单元格操作（比如单列粘贴AP46:AP56）才会继续执行日志逻辑，跨列的部分重叠区域（比如AN47:AR47）会被直接跳过。

修改后的完整代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim RNG1 As Range
    Dim RNG2 As Range
    Dim targetInRange As Range
    Dim TgValue As Variant
    Dim boolOne As Boolean
    
    Set RNG1 = Sheet8.Range("$AP$46:$AP$145")
    Set RNG2 = Sheet8.Range("$BA$46:$BA$145")
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Set targetInRange = Intersect(Target, Union(RNG1, RNG2))
    If Not targetInRange Is Nothing Then
        ' 多单元格时，必须完全落在监测区域内才继续
        If Target.Cells.Count > 1 Then
            If targetInRange.Address <> Target.Address Then
                GoTo Cleanup ' 跳过无效触发
            End If
            TgValue = extractData(Target)
        Else
            TgValue = Array(Array(Target.Value, Target.Address(0, 0)))
            boolOne = True
        End If
        
        ' 这里继续你的变更日志逻辑（原代码中etc etc部分）
        
    End If
    
Cleanup:
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

补充说明：

• 新增的targetInRange变量用于获取Target与监测区域的交集；
• 多单元格场景下，通过对比targetInRange.Address与Target.Address，判断是否整个粘贴区域都在监测范围内；
• 最后通过Cleanup标签统一恢复Excel的屏幕更新和自动计算，避免异常状态残留。

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