最伤心的事情了

看到吧友求助，就写了代码，发现被拉黑

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

————