如何将Worksheet_Change代码作用于原始修改单元格？

嘿，这个问题我之前做Excel自动化的时候也踩过类似的坑！核心原因是你的代码大概率没有记录下最初被编辑/删除的那个原始单元格地址，导致切换选中单元格（方向键、Tab、鼠标点击）后，错误地把注释加到了新选中的单元格上，而不是真正被修改的目标单元格。

下面是具体的解决方案，直接可以用到你的项目里：

核心思路 #

我们需要通过两个工作表事件配合，精准锁定原始修改单元格：

1. 用Worksheet_SelectionChange事件记录用户一开始选中的、即将被编辑的单元格。
2. 用Worksheet_Change事件仅对记录的原始单元格添加注释，而不是当前选中的单元格。

完整代码示例 #

把这段代码粘贴到你需要生效的工作表模块里（不是标准模块哦）：

' 模块级变量，用来存储原始被选中的单元格（即将被编辑的那个）
Private originalCell As Range

' 当用户切换选中单元格时，记录下当前选中的单元格
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' 只记录单个单元格的情况，如果需要支持多单元格可以调整
    If Target.Cells.Count = 1 Then
        Set originalCell = Target
    Else
        Set originalCell = Nothing ' 多单元格选中时不记录，避免误操作
    End If
End Sub

' 当单元格内容发生变化时，给原始单元格添加注释
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim commentText As String
    
    ' 先检查是否有有效的原始单元格记录
    If originalCell Is Nothing Then Exit Sub
    
    ' 判断是内容删除还是编辑
    If originalCell.Value = "" Then
        commentText = "Deleted on " & Format(Now(), "m/d/yy at h:mmAM/PM")
    Else
        commentText = "Edited on " & Format(Now(), "m/d/yy at h:mmAM/PM")
    End If
    
    ' 清除原有注释（可选，如果你不想保留历史注释的话）
    If Not originalCell.Comment Is Nothing Then
        originalCell.Comment.Delete
    End If
    
    ' 添加新注释
    originalCell.AddComment commentText
    
    ' 重置变量，避免后续切换单元格时误触发
    Set originalCell = Nothing
End Sub

关键注意事项 #

• 工作表模块的选择：右键点击工作表标签 → 查看代码，把代码粘贴进去，这样事件才会绑定到该工作表。
• 多单元格处理：如果需要支持用户选中多个单元格编辑，可以修改SelectionChange事件里的判断逻辑，比如遍历Target里的单元格记录，但根据你的问题描述，单个单元格的场景已经足够。
• 避免递归触发：添加注释的操作不会触发Worksheet_Change事件（该事件只针对单元格内容变化），所以不需要额外禁用事件，但如果后续有其他修改单元格内容的操作，可以在代码开头加上Application.EnableEvents = False，结尾再恢复Application.EnableEvents = True。

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