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

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

2、  双击模块，把代码粘贴进去（这里我已经写好）

Sub 工资条()

'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].Select

End With

End Sub

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

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

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

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

1、  在开发工具选项卡，点击控件-插入，点击按钮，在EXCEL中拉一个合适大小的按钮控件

2、  修改控件名称，右击，选择指定宏

3、 选择我们写好的，工资条宏，确定，完成绑定工作

4、  点击一下按钮，顺利生成工资条！