用公式无法办到，用VBA吧：
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 1 And Target.Column = 1 Then [A2] = Date End IfEnd Sub
