说明(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