如何实现Excel行内前置单元格修改时自动更新最后修改时间？

问题根源 #

你用的=IF(COUNTIF($A1:$Z1;"<>")>0;NOW();"")里，NOW()是易失性函数——只要工作表发生任何计算（比如修改其他行单元格、打开文件），所有包含这个函数的单元格都会自动重算更新，这就是改第6行时第1行时间也跟着变的原因。公式没法实现“仅本行修改才写入静态时间”的需求，得用VBA事件来处理。

解决方案：工作表Change事件实现 #

1. 打开目标工作表的VBA编辑器：右键工作表标签（比如「Sheet1」），选择「查看代码」。
2. 在弹出的代码窗口里粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 设定要监控的单元格范围：A列到Z列
    Dim MonitorRange As Range
    Set MonitorRange = Me.Range("A:Z")
    
    ' 判断修改的单元格是否在监控范围内
    If Not Intersect(Target, MonitorRange) Is Nothing Then
        ' 遍历所有被修改单元格所在的行
        Dim ChangedRow As Range
        For Each ChangedRow In Target.Rows
            ' 给对应行的AA列写入当前日期时间
            Me.Cells(ChangedRow.Row, "AA").Value = Now()
            ' 可选：设置时间显示格式，比如yyyy-mm-dd hh:mm:ss
            Me.Cells(ChangedRow.Row, "AA").NumberFormat = "yyyy-mm-dd hh:mm:ss"
        Next ChangedRow
    End If
End Sub

3. 把文件保存为启用宏的工作簿（.xlsm格式），不然宏没法保存和运行。

代码说明 #

• Worksheet_Change是工作表的修改触发事件，只有手动修改单元格时才会启动。
• Intersect(Target, MonitorRange)用来判断修改的单元格是否在A-Z列范围内，只有符合条件才执行后续操作。
• 遍历所有被修改的行，给对应AA列写入静态的当前时间，这个时间不会因为其他操作自动更新。
• 可选的NumberFormat行可以调整时间显示格式，按需修改即可。

注意事项 #

• 必须存为xlsm格式，否则宏会丢失。
• 如果要保护工作表，得允许宏执行，且AA列不能被锁定（不然没法写入时间）。
• 批量修改多个单元格时，代码会自动处理所有涉及的行，每个对应AA列都会更新时间。

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