Excel VBA：特定单元格值触发模块子程序时复制粘贴失败求助

核心问题1：Worksheet_Change事件的错误处理 #

你当前的Worksheet_Change代码直接覆盖了事件参数target，这会导致任何单元格修改都会触发判断，而且没有处理事件递归（复制粘贴操作可能再次触发Change事件，打断复制流程）。

核心问题2：BEO子程序依赖Select/Activate，稳定性差 #

依赖Select和ActiveSheet的操作在事件触发环境下容易失效，因为事件执行时的工作表激活状态可能和预期不一致。

修改后的代码 #

1. 工作表事件子程序（Worksheet_Change）

Sub Worksheet_Change(ByVal Target As Range)
    ' 只处理D2单元格的修改
    If Not Intersect(Target, Me.Range("D2")) Is Nothing Then
        ' 禁用事件防止递归（复制粘贴会触发Change事件）
        Application.EnableEvents = False
        
        If Target.Value = "BEO" Then
            Call BEO
        End If
        
        ' 恢复事件
        Application.EnableEvents = True
    End If
End Sub

2. 模块子程序（BEO）

Sub BEO()
    ' 直接引用工作表和范围，避免Select/Activate
    Sheets("data").Range("N24:P25").Copy
    Sheets("Configuration").Range("E1").PasteSpecial Paste:=xlPasteAll
    
    Application.CutCopyMode = False
End Sub

修复说明 #

• 事件里用Intersect判断触发单元格是否为D2，避免无关修改触发代码
• 加入Application.EnableEvents = False防止复制粘贴时再次触发Change事件，打断复制流程
• 去掉Select/Activate操作，直接通过工作表对象引用范围，操作更稳定可靠

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