如下图,根据工资表数据,将每条工资信息前插入相同的标题,不同姓名的工资记录间间隔一行空行
选中工资表数据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单元格点击宏 执行即可批量完成工资条的制作
也可以插入形状绑定宏,直接点击形状按钮就可以批量制作工资条了。