此代码放在你要达到此目的的工作表代码编辑器中。当你改变A列任一单元格时，B列对应单元格会自动记录当前时间。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
Range("b" & Target.Row).Value = Format(Now(), "hh:mm:ss AM/PM")
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024