如何在Excel行项目中添加「最后更新日期」字段？

方法1：使用VBA事件（推荐，不会随文件打开自动刷新，记录结果固定） #

• 打开目标Excel工作表，按Alt + F11调出VBA编辑器
• 在左侧项目管理器双击你需要生效的工作表名称，打开对应代码编辑窗口
• 将以下代码粘贴到窗口中，可根据需求修改参数：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 定义存储日期的列号，4对应D列，可自行修改为你新增的列对应的数字
    Const DATE_COLUMN As Integer = 4
    ' 禁止修改日期列本身时触发更新，避免循环执行
    If Target.Column = DATE_COLUMN Then Exit Sub
    ' 给修改行对应的日期列赋值当前日期，需记录时间可把Date改为Now
    Cells(Target.Row, DATE_COLUMN).Value = Date
End Sub

• 保存文件时选择「Excel 启用宏的工作簿(*.xlsm)」格式，否则宏代码无法生效
• 关闭VBA编辑器返回工作表即可，后续任意行内容被修改时，对应行的指定列都会自动写入修改日期

补充说明：如果需要仅监控指定范围的列才触发日期更新，可在代码中新增判断规则，例如只监控A到C列修改的话，在If Target.Column = DATE_COLUMN Then Exit Sub下方新增一行If Target.Column > 3 Then Exit Sub即可。

方法2：迭代公式方案（不推荐，仅适合临时场景） #

该方案无需启用宏，但日期会在表格重算时可能被刷新，稳定性较低：

• 点击「文件」-「选项」-「公式」，勾选「启用迭代计算」，将最多迭代次数设置为1
• 在你新增的日期列第一个数据行（例如D2）输入公式：=IF(A2<>"",IF(D2<>"",D2,TODAY()),"")
• 将公式下拉填充到所有需要生效的行即可
  注意：该方法的日期值不是固定的，表格重新计算（比如打开文件、修改其他公式单元格）时可能自动更新，仅适合不需要长期固定修改记录的临时场景

内容的提问来源于stack exchange，提问作者Dr. Strange