如何“一键”自动生成工资条

1、步骤一：新建一个excel。将sheet命名为工资表，另外新建一个sheet命名为工资条。在工资表中输入数据，或者粘贴数据。（此处是样例数据，非真实数据）

2、步骤二：

启用excel里面的宏，并新建一个宏“createsalary”（名字可以自己起），

3、步骤三：并在宏编辑器里输入如下vbscript脚本代码：

Sub createsalary()

    n = Sheets("工资表").UsedRange.Rows.Count

    MsgBox n

    For i = 1 To n - 3

        Sheets("工资表").Select

        Rows("1:3").Select

        Range("F2").Activate

        Selection.Copy

        Sheets("工资条").Select

        Rows(4 * i - 3 & ":" & 4 * i - 1).Select

        ActiveSheet.Paste

        Sheets("工资表").Select

        Rows(i + 3 & ":" & i + 3).Select

        Selection.Copy

        Sheets("工资条").Select

        Rows(4 * i & ":" & 4 * i).Select

        ActiveSheet.Paste

    Next

End Sub

4、步骤四：

保存退出宏编辑器，返回excel界面。到此制作已经完成，超级简单。

5、步骤五：

测试，你点击工资条按钮，脚本自动运行，并在工资条sheet里生成工资条成功。

6、步骤六：

需要发邮件通知的可以自己复制相应员工的行，直接粘贴到邮件中。需要纸条的则打印出来裁剪即可。

7、步骤七：将该文件保存为模板，以后每个月的工资表往工资表sheet里粘贴，然后只需要点击工资条按钮，以后一键就生成工资条。