Excel VBA：如何仅在对应行O列填充修改触发的日期时间？

问题说明 #

• 需求：修改A列至K列任意单元格时，仅在对应行的O列填充当前日期时间
• 现有代码问题：执行时会同时填充修改单元格偏移4列的单元格（例如修改E列时，会同时填充I列和O列）

修正后代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 禁用事件防止循环触发
    Application.EnableEvents = False
    
    ' 检查修改范围是否在A-K列内
    If Not Intersect(Target, Me.Range("A:K")) Is Nothing Then
        ' 获取对应行的O列单元格（O列是第15列）
        Dim targetCell As Range
        Set targetCell = Me.Cells(Target.Row, 15)
        
        If Target.Value = "" Then
            targetCell.ClearContents
        Else
            targetCell.Value = Format(Now, "mm/dd/yyyy HH:mm:ss")
        End If
    End If
    
    ' 恢复事件触发
    Application.EnableEvents = True
End Sub

代码修正说明 #

• 直接定位到对应行的O列（第15列），不再使用Offset(0,4)，彻底避免因修改不同列导致偏移到错误单元格
• 添加Application.EnableEvents = False/True，防止写入日期时再次触发Worksheet_Change事件造成循环执行
• 使用Me.Range和Me.Cells明确指向当前工作表，避免跨表操作错误
• 用ClearContents替代直接赋值空字符串，更规范地清除单元格内容

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