Excel VBA宏：J3/L3/N3值变动时自动记录全量数据并加时间戳

核心问题说明 #

• 原有代码三个单元格的变更判断分支完全独立，每次触发仅写入对应单列，没有统一读取三个单元格的当前值写入同一新行
• 存在变量引用错误（如第一个分支中未定义SPOT2就直接使用）
• 三个分支分别计算不同列的最大行号，会导致数据写入不同行，无法对齐

修正后完整代码 #

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 禁止事件递归触发，避免写入数据时再次触发本宏导致死循环
    Application.EnableEvents = False
    
    ' 判断修改的单元格是否是J3/L3/N3中的任意一个
    If Not Intersect(Target, Me.Range("J3,L3,N3")) Is Nothing Then
        Dim newRow As Long
        ' 统一计算A列的下一个空行，保证三个数值写到同一行
        newRow = Me.Cells(Me.Rows.Count, "A").End(xlUp).Row + 1
        
        ' 写入时间戳，直接存值避免后续自动刷新时间
        Me.Range("A" & newRow).Value = Now()
        ' 依次写入三个单元格的当前值到对应列
        Me.Range("B" & newRow).Value = Me.Range("J3").Value
        Me.Range("D" & newRow).Value = Me.Range("L3").Value
        Me.Range("F" & newRow).Value = Me.Range("N3").Value
    End If
    
    ' 恢复事件触发
    Application.EnableEvents = True
End Sub

使用注意事项 #

• 请将这段代码放在你要监听变更的工作表的代码模块中，不要放在普通模块里
• 如果数据要写入的工作表不是当前监听的工作表，可以把代码里的Me替换成Sheets("目标工作表名")
• 代码中直接把Now()的结果存为静态值，不会随着表格打开自动刷新，如果你需要可刷新的时间公式，可以把对应行改成Me.Range("A" & newRow).Formula = "=NOW()"

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