excel表中修改内容后自动增加修改人和修改时间

1、新建一个excel表格；1-6列自己设一下内容，I7 输入一个名字

3、Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row > 1 And Target.Column < 6 Then If Selection.Rows.Count = 1 Then Cells(Target.Row, "g") = Now() Cells(Target.Row, "h") = Cells(1, "i") Else For Each C In Selection.Rows 'MsgBox c.Row If Rows(C.Row).Hidden = False Then Cells(C.Row, "g") = Now() Cells(C.Row, "h") = Cells(1, "i") End If Next End If End IfEnd Sub

4、代码中是针对1行以后6列以内的变更进行修改时间和修改人的变化