如何使用VBA在Excel中制作工资条

1、为了演示方便，制作如图的表格文件，下面的操作将复制工资头到各行数据前；

2、按组合按键【Alt+F11】调出VBA编辑器，插入宏取名为【复制工资头】；

3、在宏代码内输入代码获取最大行数并赋值给变量（maxRow = ActiveSheet.UsedRange.Rows.Count）；

4、插入循环体，从底部逐行递减遍历（For i = maxRow To 3 Step -1 Next）；

5、在循环体插入语句，在当前数据行前插入空白行（Rows(i).Insert）；

6、在循环体插入语句，复制工资头（ActiveSheet.Rows(1).Copy）；

7、在循环体插入语句，选择空白行，并将工资头粘贴到空白行中（ActiveSheet.Rows(i).Select ActiveSheet.Paste）；

8、执行代码后，返回表中可看到工资条表格已经生成。