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

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

2、alt + F11是编辑宏的快捷键

在需要测试的sheet中加入代码

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 If

End Sub

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