直接用Now函数,在重算时会自动更新与当前时间同步。用VBA吧: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If ActiveCell.Column = 1 And ActiveCell.Value = "" Then '指定第一列,可根据需要修改 ActiveCell.Value = Now End If End Sub 这段话如何实施应用呢?