Excel中记录最后修改时间

在需要记录的sheet中编写如下脚本：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$2" Then Exit Sub '避免死循环
    Range("a2") = "最后修改日期：" & Date
End Sub