Private Sub Worksheet_Change(ByVal Target As Range)Range("d2") = Format(Now, "yyyy-mm-dd hh:m:s")End Sub
右键该表（SHEET），查看代码。粘贴上面的代码。
