【原】Excel从工资表到工资条的制作方法

亲，你公司的工资表是人事部编制，还是财务部编制呢？

每月给你出具工资条吗？没有

听说很多小伙伴制作工资条时，表头是一个一个复制，那可是相当费时的，不给出具有情可愿吧！

今天小编就教大家制作工资条的几种方法，不管你公司几千人，分分钟就把工资条解决了，让你公司的人事、财务一起来学学吧！

方法一；复制粘贴法

先复制表头，再复制一条工资数据，重复上步直到完成。具体操作没有演示图。

优点：如果职工较多，就要面临加班加点，加班工资到手，再让老板发现月月辛苦加班加点，涨工资都有可能哟！

方法二：辅助列法

1、如上图，在工资表右边增加两个辅助列；

2、选中新增的辅助列单元格区域，按Ctrl+G或F5键，依次选择【定位条件】-【空值】-【确定】；

3、插入新行：按Ctrl+Shift+=（等号）键，选择【整行】，点击【确定】返回工作区；

4、复制工资表表头：点击行号1选中表头行，按Ctrl+C键复制；

5、选中A列，按Ctrl+G或F5键，依次选择【定位条件】-【空值】-【确定】，

6、最后按Ctrl+V键粘贴表头，完成工资条制作。

演示如下图：

方法三：函数法

1复制工资表的标题，并在标题下方第一个单元格输入屏幕提示公式=INDEX(A:A,ROW()/3+2)，选中公式单元格向右拖动填充数据；如果你的工资表是三行标题，那么公式的的2改成3即可，多行标题以此类推；

2、选中这三行，按住右角下填充柄，向下拖动直到工资表数据完成。工资条就生成了；

演示视频如下：

方法四：编程法

1、按Alt+F11键打开VBA窗口，点击【插入】菜单，选择【模块】

2、复制以下代码到模块右侧的代码窗口：

Sub gzt()

Dim i As Integer, n As Integer, x As Integer

Application.ScreenUpdating = False

'Worksheets("工资条").Select

With Worksheets("工资表2")

i = .Range("a65536").End(xlUp).Row - 1

k = .Range("a65536").End(xlUp).Row + 1

For x = 4 To i

n = [a65536].End(xlUp).Row

.Range("2:3").Copy .Rows(n + 2)

.Rows(x).Copy Rows(n + 4)

Next x

End With

Application.ScreenUpdating = True

End Sub

3、在工资表中插入一个命令按钮，鼠标右键，选择【指定宏】，在弹出的窗口中选择【gzt】宏程序。点击按钮即可完成工资条制作。

效果图如下：

你学会了吗？点击专栏，学习详细工资表、工资条制作教程