Excel制作工资条的三种方法，总有一种适合你

Excel函数 2023-01-08

每个月最期待的日子当然是发工资的时候啦~同时人事小姐姐也会拿着工资条让我们核对明细，确认无误后签字归档。

今天我们就讲解下制作工资条的三种小方法，总有一种适合你~

排序法

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编程法适用于员工人数较多的情况，粘贴好代码，点击运行，数秒即可运行完成，快捷方便，动图展示如下：

代码明细如下(方便大家复制)：

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

Application.ScreenUpdating = True

End Sub