求助：Excel中Worksheet_Change事件实现列变更自动打时间戳

核心思路 #

我明白你多次尝试仍没搞定的困扰——这个需求其实用Excel的Worksheet_Change事件就能完美解决，它会在当前工作表单元格内容变更时触发，我们只需要判断变更的单元格属于哪一列，就能给对应行的目标列自动填充时间戳。

完整代码实现 #

打开你的Excel文件，按Alt + F11打开VBA编辑器，在左侧「工程资源管理器」里找到你要设置的工作表（比如Sheet1），双击打开它的代码窗口，粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 临时禁用事件，避免写入时间戳时重复触发Change事件
    Application.EnableEvents = False
    
    ' 出错时自动恢复事件，防止意外导致事件一直禁用
    On Error GoTo RestoreEvents

    ' 只处理C列和D列的变更
    Dim changedRange As Range
    Set changedRange = Intersect(Target, Me.Range("C:C, D:D"))
    
    If Not changedRange Is Nothing Then
        Dim cell As Range
        ' 遍历所有变更的单元格（支持批量修改/粘贴）
        For Each cell In changedRange
            Select Case cell.Column
                Case 3 ' C列变更 → 对应行B列填时间戳
                    Me.Cells(cell.Row, 2).Value = Now()
                    ' 自定义时间格式，可根据需求修改
                    Me.Cells(cell.Row, 2).NumberFormat = "yyyy-mm-dd hh:mm:ss"
                Case 4 ' D列变更 → 对应行E列填时间戳
                    Me.Cells(cell.Row, 5).Value = Now()
                    Me.Cells(cell.Row, 5).NumberFormat = "yyyy-mm-dd hh:mm:ss"
            End Select
        Next cell
    End If

RestoreEvents:
    ' 无论是否出错，都要恢复事件启用状态
    Application.EnableEvents = True
End Sub

关键细节说明 #

• 代码位置是重点：必须把代码放在对应工作表的模块里，而不是通用标准模块（比如Module1），因为Worksheet_Change是工作表专属的事件，放错位置不会生效。
• 禁用事件的必要性：如果不关闭Application.EnableEvents，当我们给B/E列写入时间戳时，会再次触发Worksheet_Change事件，形成无限循环，导致Excel卡顿甚至崩溃。
• 支持批量操作：代码里的循环可以处理批量粘贴、多选单元格修改的情况，每个变更的单元格都会对应填充时间戳。
• 时间格式自定义：你可以修改NumberFormat的值，比如只想显示日期就改成"yyyy-mm-dd"，或者显示12小时制时间"mm/dd/yyyy hh:mm AM/PM"。

测试方法 #

1. 保存你的文件为启用宏的格式（比如.xlsm或.xlsb，普通.xlsx不支持宏）。
2. 返回Excel界面，修改任意一行的C列内容，对应的B列会自动填充当前时间；修改D列内容，E列会自动填充时间戳。

如果之前你的代码没生效，大概率是代码放错了模块，或者没处理事件循环的问题，按照上面的步骤来应该就能解决啦！

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