每个月最期待的日子当然是发工资的时候啦~同时行政小姐姐也会拿着工资条让我们核对明细，确认无误后签字归档。
今天我们就讲解下制作工资条的三种小方法，总有一种适合你~
排序法
1、先建立辅助列，并从上到下排序；
2、复制辅助列数据，向下粘贴，两次；
3、复制工资条表头，粘贴到第二次粘贴的序列号上；
4、全选工作表内容，点击筛选按钮，对辅助列进行升序处理；
5、删除辅助列与多余的表头，工资表制作完成。
动图展示如下：
注：第二步中辅助列复制了两次，第一次复制是作为工资条之间的空白行，第二次复制是作为工资条的表头；如果员工工资条之间不需要空白行的话，复制一次辅助列即可。
公式下拉法
1、将员工工资明细表放置于【数据源】插页中，待公式引用；
2、在插页【公式下拉法】中，复制工资表表头；
3、在序号列输入1，根据序号1，用VLOOKUP函数匹配序号为1的员工工资明细，在B2单元格内输入："=VLOOKUP( $A2,数据源!$A:$G,COLUMN(B2),0)"，公式向后推动，完成其它字段数据匹配；
4、选中前三行【A1:G3】,鼠标置于右下角，当出现十字光标时，下拉十字光标，因为一个人的工资条是3行，数据源中一个有8个人，所以这里下拉到24行即可展示所有员工的工资条数据。注：公式通过序号匹配每个员工的工资明细，需要注意公式中的相对引用与绝对引用；其中COLUMN()返回的是单元格的列数。
VBA编程法
前两种方法适用于员工较少的情况，手动操作较为方便；相比较前两用方法，VBA编程法适用于员工人数较多的情况，粘贴好代码，点击运行，数秒即可运行完成，快捷方便，动图展示如下：
代码明细如下(方便大家复制)：
Sub vba制作工资表()
Application.ScreenUpdating = False
Dim a As Integer
a = Worksheets("数据源").Cells(Rows.Count, 1).End(xlUp).Row
For i = a To 3 Step -1
Rows(i & ":" & i + 1).Select
Selection.Insert
Range("A1:G1").Select
Selection.Copy
Cells(i + 1, 1).Select
ActiveSheet.Paste
Next
Application.ScreenUpdating = True
End Sub
以上就是关于工资条制作的三种小方法，你学会了嘛~
觉得有用，欢迎关注我，每日分享数据小技巧！