工资条的制作III（VBA法）

作者：涂大荣。

大家好！我是涂涂

工资条的制作 III （VBA法）。

今天的内容

工资条的制作，相信很多朋友都接触过。今天的问题是，如何根据总表的人员信息明细快速生成工资条。

要求：

◆每个工资条需要带标题行

◆每个工资条之间，需要有一行空行隔开

制作工资条的方法有很多，比如辅助列法、公式法、VBA法，今天涂涂给大家分享使用VBA代码来生成工资条的方法。

相关链接

工资条的制作 I （辅助列法）

工资条的制作 II （公式法）

❖工资条效果图

 

操作步骤

◆将xlsx后缀的文件另存为xlsm后缀的文件

◆按<Alt F11>打开VBE编辑界面，新建代码模块。在模块内写入下面的代码；保存，关闭VBE界面

◆在Excel表格中插入按钮控件，并指定相应的宏，点击按钮即可快速生成工资条。

代码示例

1. Sub 工资条制作()

2.    Dim i As Integer

3.    Application.ScreenUpdating = False

4.    For i = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1

5.        Rows(i).Insert

6.        Range('A1:D1').Copy Range('A' & i & ':D' & i)

7.        Rows(i).Insert

8.    Next i

9.    Application.ScreenUpdating = True

10. End Sub

代码解释：

Cells(Rows.Count, 1).End(xlUp).Row

◆查找A列的非空行数

For i = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1

◆使用For循环开始遍历，从A列最后一行非空行开始，到第3行结束，步长值为-1（递减）

Rows(i).Insert

◆插入空行

Range('A1:D1').Copy Range('A' & i &':D' & i)

◆复制标题行到第i行（插入的空行）

Tips

◆使用VBA制作工资条，如果每月人员信息总表的格式一样， 每次生成只需点击一下按钮即可，可以说是一劳永逸

◆相比辅助列法、公式法，VBA不受人员信息总表的数量限制，更快，更省事