制作工资条讲究又快又好，简单方法有哪些？

对于怎么制作工资条，相信大家也看过很多相关的制作方法吧，但是制作工资条是件比较耗费时间精力的事情，如何更好更快的完成是重点。也许你已经习惯通过工资表，把表中的条目一条条复制粘贴后打印发给每个员工。可你是否想过，找一个更简单更有效率的方法？看起来这似乎有些困难，因为在工资表中，表头一般只出现在表格开头的某一行，而在工资条中，为了便于阅读则要求每个人的工资都有表头，那么如何巧妙地把工资明细表制作成便于打印的工资条呢？下面就为大家提供三个简单的方法。

方法一：宏命令控制法

怎么制作工资条？首先打开要处理的Excel表，选择“工具→宏→Visual Basic 编辑器”，在编辑器左边的窗口中用鼠标双击Sheet1，会出现代码编辑窗口，在代码编辑窗口输入如下代码：

Sub MakeSalaryList()

Dim i As Integer

Dim endrow As Integer

测出数据的最后一行

endrow = Sheet1.Range(“a65536”).End(xlUp).Row – 1

把标题贴过去

Worksheets(1).Range(“1:1”).Copy (Worksheets(2).Cells(1, 1))

For i = 3 To endrow

把每条数据抬头贴过去

Worksheets(1).Range(Cells(i, 1), Cells(i, 256)).Copy (Worksheets(2).Cells(3 * i – 6, 1))

Next i

End Sub

关闭编辑器，将自动返回到刚才的Excel表，选择“工具→宏→宏”，将弹出对话框，点击“执行”，将在Sheet2转换成工资条。如果你的表总Sheet2已经输入了别的内容，就可以将他复制到Sheet3来生成，代码修改也很简单，把其中的Sheet2修改成Sheet3就可以了，其它代码不变。

方法二：公式填充法

怎么制作工资条？首先打开要操作的Excel工资表，为了不破坏原表(Sheet1)结构，我们仍然采用在Sheet2中进行操作的方法。由于这个工资表一共有L列，18行，要复制的表头项目在第二行，所以在第一个单元格中输入如下公式：

以下是代码片段：

=IF(MOD(ROW(),2)=0,INDEX(sheet1!$A:$L,INT(((ROW()+1)/2))+2,COLUMN()),sheet1!A$2)

接下来的工作就简单了，我们只要使用填充柄将此公式填充到其它单元格，列向填充到L列，行填充到18行就大功告成。

因为在不同的表格中这个公式需要修改的地方比较多，所以这里做一下解释：

由于工资条中的奇数行都是表头，偶数行是数据，所以在这个公式中首先进行奇偶行判断，若是奇数行，直接取工资表的A2单元格数据(即公式中的 sheet1!A$2，如果表头数据在第4行第三列则修改为sheet1!C$4)。若是偶数行，则用INDEX()函数来取数。该函数的第一个参数是指 定工资表中的一个取数区域(即sheet1!$A:$L，如果不是从A到L列，那么可以修改这个参数，如修改为sheet1!$B$P ，就表示在B到P列之间取数)。当然，如果你想把转换后的数据放在Sheet3而不是Sheet2中，那么，只要在Sheet3中执行以上操作就可以了， 并不需要修改公式的内容。

方法三：蚂蚁工资条

怎么制作工资条？可以使用蚂蚁工资条软件，用户只需使用自己的工资表，并将表格上传到系统中。系统会自动识别表头和数据，将工资表拆分为工资条，并发放给对应的员工，每个员工仅能收到自己的工资条，既保证了工资保密性，又节省HR的时间和精力。

以上就是关于怎么制作工资条的三种方法，大家可以根据自己的喜好来进行选择，以后再也不需要无限重复的去复制工资表数据，通过简单的转化一个数据表就实现了两项完全不同的功能，赶快操练一下吧！