excel宏-excelvba宏代码批量制作工资条

如下图，根据工资表数据，将每条工资信息前插入相同的标题，不同姓名的工资记录间间隔一行空行

选中工资表数据A1单元格，选择“开发工具”-“录制宏”调出录制宏对话框，可以对宏名称进行更改，点击确定。点击“使用相对引用”，选择第3行和第4行右键插入空行，复制工资表标题粘贴在第4行，选择3行的空单元格区域，取消边框的设置，然后选择A4单元格，点击 开发工具的停止录制宏按钮即可。

当我们鼠标放在A4单元格，点击 开发工具-宏，选择刚才录制的宏点击执行即可快速自动生成了一条工资信息。

---

但是用宏录制下来的操作执行一次只能制作一条工资信息，所以如果我们工资信息非常多的话，就需要经常点击执行按钮，这样也非常浪费时间。

那么，我们可以刚刚录制的宏代码里面添加几行新的代码，选择开发工具-宏，点击编辑，进入录制的宏代码模块中

在"Sub 工资条()"的后面添加代码：

Dim I As Long

For I = 2 To Range("A1").CurrentRegion.Rows.Count - 1

在最后一行"End Sub"前面添加代码

Next

再选择A1单元格点击宏 执行即可批量完成工资条的制作

也可以插入形状绑定宏，直接点击形状按钮就可以批量制作工资条了。