如何在Excel VBA的Worksheet_Change事件中捕获复制/剪切的源单元格？

Worksheet_Change事件本身不会提供源区域信息，因为它是在单元格内容变更后触发，系统此时已经丢弃了操作的源数据。以下是两种可行的间接实现方案：

方法1：利用SelectionChange事件记录预选区域 #

通过记录用户操作前选中的区域，间接获取复制/剪切的源地址：

1. 在工作表模块顶部声明模块级变量，用于保存上次选中的区域：

Private prevSelection As Range

2. 编写Worksheet_SelectionChange事件，实时更新选中区域记录：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set prevSelection = Target
End Sub

3. 在Worksheet_Change事件中判断是否为粘贴操作，并调用记录的源区域：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim isPasteAction As Boolean
    
    ' 通过剪贴板状态判断是否为粘贴操作
    On Error Resume Next
    isPasteAction = Not IsEmpty(Application.ClipboardFormats)
    On Error GoTo 0
    
    ' 如果是粘贴且有记录的预选区域，输出源/目标地址
    If isPasteAction And Not prevSelection Is Nothing Then
        ' 替换成你需要的业务逻辑，比如赋值给变量
        Dim MyOriginAddress As String, MyTargetAddress As String
        MyOriginAddress = prevSelection.Address
        MyTargetAddress = Target.Address
        Debug.Print "源区域：" & MyOriginAddress & " | 目标区域：" & MyTargetAddress
    End If
    
    ' 重置变量，避免后续非粘贴操作误判
    Set prevSelection = Nothing
End Sub

注意事项 #

• 仅适用于同工作表内的复制/粘贴，跨工作表操作会导致预选区域被覆盖；
• 无法区分复制和剪切操作，需额外判断源区域是否被清空来识别剪切。

方法2：监听快捷键+全局变量记录源区域 #

支持跨工作表的复制/粘贴操作，通过监听快捷键提前记录源区域：

步骤1：在ThisWorkbook模块中注册快捷键监听 #

Private Sub Workbook_Open()
    ' 注册Ctrl+C和Ctrl+X的自定义处理
    Application.OnKey "^c", "RecordCopySource"
    Application.OnKey "^x", "RecordCutSource"
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ' 关闭工作簿时恢复默认快捷键行为
    Application.OnKey "^c"
    Application.OnKey "^x"
End Sub

步骤2：在标准模块中定义全局变量和记录逻辑 #

Public g_copySource As Range

Sub RecordCopySource()
    ' 记录当前选中区域作为源
    Set g_copySource = Selection
    ' 执行默认复制操作
    Application.SendKeys "^c"
End Sub

Sub RecordCutSource()
    ' 记录当前选中区域作为源
    Set g_copySource = Selection
    ' 执行默认剪切操作
    Application.SendKeys "^x"
End Sub

步骤3：在工作表的Change事件中调用源区域 #

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not g_copySource Is Nothing Then
        ' 替换成你需要的业务逻辑
        Dim MyOriginAddress As String, MyTargetAddress As String
        MyOriginAddress = g_copySource.Address
        MyTargetAddress = Target.Address
        Debug.Print "源区域：" & MyOriginAddress & " | 目标区域：" & MyTargetAddress
        
        ' 重置全局变量
        Set g_copySource = Nothing
    End If
End Sub

补充：处理右键菜单复制/剪切 #

若要支持右键菜单操作，需额外监听Worksheet_BeforeRightClick事件：

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    Set g_copySource = Target
End Sub

注意事项 #

• SendKeys可能存在兼容性问题，部分系统或Excel版本可能出现延迟；
• 仅适用于手动操作，无法捕获VBA代码执行的复制/粘贴。

局限性说明 #

所有方案均为间接记录，无法覆盖所有场景：

• 无法捕获通过VBA代码执行的复制/粘贴操作；
• 若用户复制后多次切换选中区域，记录的源区域会被覆盖；
• 跨工作簿复制时，源区域记录可能失效。

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