excel批量发送工资条（巧用excel宏做成）

财务工作每月发工资都需要做工资条，发给各个员工。这种重复简单的工作，我们可以用常用的excel做个宏就可以一键生成工资条

第一步

打开工资表excel。另外把工资表放置在一个sheet，另外新建一个sheet叫做工资条。

第二步

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

并在宏编辑器里输入如下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

第三步

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

第四步

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

第五步

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

第六步

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

,