此代码放在你要达到此目的的工作表代码编辑器中。当你改变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 IfEnd Sub