看到吧友求助，就写了代码，发现被拉黑
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim objSheet As Excel.Worksheet
Set objSheet = Target.Worksheet
If Target.Cells.Column = 1 Or Target.Cells.Column = 2 Then
objSheet.Cells(Target.Row, 3).Value = Now
End If
End Sub
关注公众号，查看最新信息
