右击工作表标签>查看代码>粘贴下面代码可以实现修改a1:a10时在右侧单元格填充当前系统时间. Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim rng As Range, c As Range '判断是否修改a1:a10 Set rng = Application.Intersect(Target, Range("a1:a10")) If rng Is Nothing Then Exit Sub Application.EnableEvents = False '关闭触发器 For Each c In rng.Cells c.Offset(, 1) = Now Next Application.EnableEvents = True End Sub