excel表前面单元格修改内容，最后修改时间自动变为当前修改时间

右击工作表标签>查看代码>粘贴下面代码即可
Private Sub Worksheet_Change(ByVal Target As Range)
For Each c In Application.Intersect(Target, UsedRange).Cells
If c.Column < 43 Then Cells(c.Row, 43) = Now
Next
End Sub