如何在单元格获取首次填充时的时间戳且禁止自动更新？

下面提供几种实用方法，满足你获取首次填充时间后不再更新的需求：

方法1：手动快速插入静态当前时间 #

这是最直接的方式，无需公式或代码：

• 选中目标单元格
• 按 Ctrl + ; 插入当前日期
• 按 Ctrl + Shift + ; 插入当前时间
• 若要同时插入日期和时间，先按 Ctrl + ;，按空格后再按 Ctrl + Shift + ;

插入后的值为静态文本，后续修改表格其他内容不会触发更新。

方法2：用VBA自动记录首次填充时间 #

如果需要在单元格首次编辑时自动插入时间且后续锁定，可使用工作表事件宏：

1. 打开Excel文件，按 Alt + F11 打开VBA编辑器
2. 在左侧工程窗口双击目标工作表（如Sheet1）
3. 在右侧代码窗口粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 指定要监控的单元格范围，示例为A列，可自行修改
    Dim WatchRange As Range
    Set WatchRange = Me.Range("A:A")
    
    If Not Intersect(Target, WatchRange) Is Nothing Then
        Application.EnableEvents = False ' 禁用事件避免循环触发
        For Each Cell In Intersect(Target, WatchRange)
            ' 监控单元格有内容且时间列（右侧相邻单元格）为空时插入时间
            If Cell.Value <> "" And Cell.Offset(0, 1).Value = "" Then
                Cell.Offset(0, 1).Value = Now()
                Cell.Offset(0, 1).NumberFormat = "yyyy-mm-dd hh:mm:ss" ' 设置时间格式
            End If
        Next Cell
        Application.EnableEvents = True ' 恢复事件触发
    End If
End Sub

4. 将文件保存为「启用宏的工作簿（.xlsm）」格式
5. 返回工作表后，在指定列（如A列）首次输入内容时，右侧相邻单元格会自动生成当前时间，后续修改该列内容时时间不会更新

注：可根据需求修改代码中的WatchRange（监控范围）和Offset（时间存放位置）参数。

方法3：迭代计算实现静态时间（无宏环境适用） #

如果无法启用宏，可借助迭代计算配合函数实现：

1. 点击「文件」→「选项」→「公式」，勾选「启用迭代计算」，设置「最多迭代次数」为1
2. 在需要显示时间的单元格（如B1）输入公式：

=IF(A1<>"",IF(B1="",NOW(),B1),"")

3. 将该单元格设置为所需时间格式（如「yyyy-mm-dd hh:mm:ss」）

原理：当A1首次输入内容时，B1自动填充当前时间；后续修改A1内容时，因B1已有值，公式会保留原有时间。需注意：若手动清空B1，会重新生成时间，操作时需谨慎。

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