Excel中自动记录首次输入时间有三种方法：一、VBA通过Worksheet_Change事件监听A列输入并在B列写入一次性时间戳；二、公式法用=IF(A2<>"",IF(B2="",$NOW(),B2),"")配合选择性粘贴为数值转静态；三、快捷键Ctrl+;和Ctrl+Shift+;手动录入日期时间。
当您需要在Excel中自动记录单元格首次输入数据时的日期和时间，可以使用VBA代码或内置公式组合实现。以下是两种独立可行的技术路径：
一、使用VBA自动记录（推荐用于单列或指定区域）
该方法通过Worksheet_Change事件监听目标单元格是否发生数据输入，一旦检测到非空值写入且对应时间列为空，则自动填入当前系统日期时间。该操作仅触发一次，避免重复覆盖。
1、按 Alt + F11 打开VBA编辑器。
2、在左侧工程资源管理器中，双击对应工作表名称（如 Sheet1）。
3、在右侧代码窗口中粘贴以下代码：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Intersect(Target, Me.Range("A2:A1000"))
If Not rng Is Nothing Then
Application.EnableEvents = False
On Error GoTo CleanExit
Dim cell As Range
For Each cell In rng
If Not IsEmpty(cell.Value) And IsEmpty(Me.Cells(cell.Row, "B").Value) Then
Me.Cells(cell.Row, "B").Value = Now()
End If
Next cell
CleanExit:
Application.EnableEvents = True
End If
End Sub
4、将代码中 "A2:A1000" 替换为实际数据输入列范围，将 "B" 替换为存放时间的目标列字母。
二、使用公式法记录静态时间戳（无需启用宏）
该方法利用辅助列与公式组合模拟时间记录，依赖用户手动触发更新（如按F9刷新），适用于禁用VBA的环境。时间值为动态计算结果，需配合“选择性粘贴为数值”转为静态。
1、在B2单元格输入公式：=IF(A2"",IF(B2="",NOW(),B2),"")。
2、复制B2公式至B列对应行（如B2:B1000）。
3、选中B列全部含公式的单元格，按 Ctrl + C 复制。
4、右键 → 选择“选择性粘贴” → 点击 “数值” → 确定。
5、清除B列公式，仅保留粘贴后的静态时间值。
三、使用Ctrl + ; 与 Ctrl + Shift + ; 快捷键手动录入
该方法不依赖公式或代码，适用于单次、少量记录场景。输入日期或时间后需立即按Enter确认，否则可能被后续操作覆盖。
1、选中需填写时间的单元格（如B2）。
2、输入内容前，先按 Ctrl + ; 录入当前日期。
3、在同一单元格内按空格后，再按 Ctrl + Shift + ; 录入当前时间。
4、按 Enter 完成输入。
