可以用激发宏完成:Private Sub Worksheet_Change(ByVal Target As Range)If Target.Row > 1 And Target.Column =1 ThenCells(Target.Row, 2) = Int(Now())End IfEnd Sub
输入的话同时按下ctrl+;或者在单元格里面输入 =now()
最好的方式是按快捷键:ctrl ;
=now()函数