税务师工资表变工资条

EXCEL中如何将工资表变成工资条？步骤1 、鼠标左键选定 A1 到 G1 单元格，“ CTRL+C ”或单击右键复制选定的 A1:G1 区域。 步骤2 、在表格第3 行的行号上，单击右键选择 “ 插入复制的单元格 ” ，完成第二位员工的工资条。 步骤 3 、用同样的方法，对所有的工资数据，添加标题，即可完成工资条的制作。

用VLOOKUP函数函数套用COLUMN函数即可，公式说明：

VLOOKUP（查找值,查找值的区域,区域中包含返回值的列号,精确匹配或近似匹配）

COLUMN()表示公式所在的列。

1、举例下图为工资表，表头为红框区域，工资条格式就是需要在每一个名字上面插入同样的表头：

2、在B8框中输入红框里面的函数内容，即=VLOOKUP($A8,$A$2:$G$5,COLUMN(B1),0)，其中，$A8代表绝对引用序列号，$A$2:$G$5代表绝对引用需要查找的数据区域，COLUMN(B1)代表每次查找的序列：

3、上图输入公式后按回车键就可以得出结果，然后把鼠标放在下图小红框处，出现十字架时，向右边拉伸，保证蓝色框的公式逻辑一致，松开鼠标就可以得出全部结果：

4、鼠标选中下图中大红框里面的区域，然后将鼠标放置小红框处，出现十字架时，向下拉伸：

5、此时可以看到每一个的名字上面都自动插入了表头：

在Excel中新建一个文件，将其命名为“工资表与工资条”，在工作表“sheet1”中输入并编辑好本单位职工工资总表（如表1所示）后，点击“工具”菜单→“宏”→“宏…”→输入宏名“生成工资条”→创建，输入如下的宏的各行文本，输入完成后保存该宏。将工作表“sheet1”复制为另一个工作表“sheet2”中，使“sheet2”成为当前工作表，执行刚才创建的宏，即可很快将表1所示的工资表转换为表2所示的工资条。 宏的内容如下： Sub 生成工资条() '选择整个表去掉表格线 Range("F1").Activate (xlDiagonalDown).Line Style = xlNone (xlDiagonalUp).LineStyle = xlNone (xlEdgeLeft).LineStyle = xlNone (xlEdgeTop).LineStyle = xlNone (xlEdgeBottom).LineStyle = xlNone (xlEdgeRight).LineStyle = xlNone (xlInsideVertical).LineStyle = xlNone (xlInsideHorizontal).LineStyle = xlNone Rows("2:2").Select '选择第2行 Shift:=xlDown '在第2行前插入一行，保持第2行 为选中状态 num=150 '总人数×3，如工资表中有100人则 为100×3即num=300 col=14 '工资表的栏数，如工资表有17栏则 'col=17 num1 = 4 Do While num1 <= num '循环插入空行 Range(Cells(num1, 1), Cells(num1, col)).Select '选中第num1行的第1列到第col列 Shift:=xlDown Shift:=xlDown num1 = num1 + 3 Loop Range(Cells(1, 1), Cells(1, col)).Select = False '剪切复制模式无效 '复制选择区域 Range("A2").Select '选择A2单元格 '从A2单元格起粘贴内容 num2 = 5 Do While num2 <= num '循环插入标题行 Range(Cells(1, 1), Cells(1, col)).Select = False Cells(num2, 1).Select num2 = num2 + 3 Loop Range(Cells(2, 1), Cells(3, col)).Select = False (xlDiagonalDown).LineStyle = xlNone '定义表格边框线、内线样式 (xlDiagonalUp).LineStyle = xlNone With (xlEdgeLeft) .LineStyle = xlDouble .Weight = xlThick .ColorIndex = xlAutomatic End With With (xlEdgeTop) .LineStyle = xlDouble .Weight = xlThick .ColorIndex = xlAutomatic End With With (xlEdgeBottom) .LineStyle = xlDouble .Weight = xlThick .ColorIndex = xlAutomatic End With With (xlEdgeRight) .LineStyle = xlDouble .Weight = xlThick .ColorIndex = xlAutomatic End With With (xlInsideVertical) .LineStyle = xlDash .Weight = xlThin .ColorIndex = xlAutomatic End With With (xlInsideHorizontal) .LineStyle = xlDash .Weight = xlThin .ColorIndex = xlAutomatic End With Range(Cells(5, 1), Cells(6, col)).Select Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False '接上行删除上行尾的连字符 _，复制表格线样式 num3 = 8 Do While num3 ＜= num '循环复制表格线样式 Range(Cells(num3, 1), Cells(num3 + 1, col)) .Select Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False num3 = num3 + 3 Loop Rows("1:1").Select '删除多余的一行 End Sub 以后每月要打印工资表与工资条时，只需将“工资表与工资条”文件打开，修改好工作表“sheet1”中的当月的工资总表数据后将其复制为工作表“sheet2”，并使“sheet2”成为当前工作表，执行宏“生成工资条”即可。

答案是可以的。

方法一：制作工资表的时候每个员工的工资条之间留出空行，打印出来后自行裁剪。

方法二：使用电子工资条，直接把Excel工资表上传，系统智能解析，自动和员工匹配生成电子工资条，特别方便好用。科技改变工作呀，现在都被电子工资条替代了，高效又便捷，节省了很多时间。我们公司目前使用的用友工资条，在企业微信上找到的，是人力资源板块的第一名，所以比较放心。推荐您试试~

在第一张表格第一行里输入各个项目名称。在第二张表格栏的A1栏内输入工式：=IF(MOD(ROW(),3)=0," ",IF(MOD(ROW(),3)=1,Sheet1!A$1,INDEX(Sheet1!$A:$S,INT((ROW()+4)/3),COLUMN())))然后把第二张表格的A1栏公式向右拖至你在第一张表格栏里的最后一个项目名称处（假如到K1，你就把公式拖到K1）；最后选择第二张表格上的所有项目栏，用鼠标右键再次向下复制公式至所有员工。

方法如下：