如何制作工资条：[12]VBA一键工资条

1、 在工作表中按下键盘上ALT+F11组合键，调出VBE对话框，右击任意一个工作表名称，插入，选择模块

2、 双击模块，把代码粘贴进去（这里我已经写好）Sub 工资条()&#补朱锚卦39;yianxss原创代码，谢绝抄袭肛舀辨乔Dim i&, Mxrow&Sheets(1).[a1].CurrentRegion.Copy Sheets(2).[a1] '备份数据With Sheets(2) Mxrow = .Cells(.Rows.Count, 1).End(3).Row For i = Mxrow To 3 Step -1 '插入空行 .Rows(i & ":" & i).Insert Shift:=xlDown Next .Rows("1:1").Copy '复制表头 .Range("a2:a" & .Cells(.Rows.Count, 1).End(3).Row). _ SpecialCells(xlCellTypeBlanks).Select '定位空行 .Paste '粘贴表头 .[a1].SelectEnd WithEnd Sub

3、 代码中都注释了，帮助大家理解，如果一时不懂，也是没关系的，直接操作即可，这里我们需要注意：工资表在第一张表，我们要生成的工资条在第二张。

4、 代码粘贴好后，我们可以按下F5来执行，也可以点击三角执行

5、 关闭VBE对话框，返回工作表

6、 我们看一下已经大功告成了！你有学会吗？