说明（2017.3.24）：
1. 记录sheet1里面的每次改动，和改动时间！
2. 不能记录大范围的删除、改动，会提示“类型不匹配”
1 Private Sub Worksheet_Change(ByVal Target As Range) 2 Worksheets(2).Cells(Worksheets(2).[A65536].End(xlUp).Row + 1, 1) = Target.Address & "->" & Target.Value 3 Worksheets(2).Cells(Worksheets(2).[A65536].End(xlUp).Row + 1, 2) = Now() 4 End Sub