请问如何在Excel里面做工资条?

如何用excel中制作工资条~

Excel小技巧

Excel小技巧

Excel小技巧

工资表汇总常用excel功能

（1）插入辅助列  （2）排序

 工资表转工资条的制作方法

第一步: 打开我们要处理的excel工资表

 

第二步:在工资表的后面一列填写序号（小技巧：在 G2填上1之后，把鼠标放在G1的左下角，出现一个+，点2次+，即可自动填充），在复制两次。

 

第三步：复制6次表头

 

第四步：排序，主要关键字以G列（就是我们加序号的那列），升序；次要关键字以F列（就是应发工资那列），点击确定。

 

壹人事HR提供最新最全的Excel工资表模板、工资表格式，欢迎下载和使用！ 制作完Excel工资表后，发工资条的形式也是很多HR所苦恼的，如果每个月采用传统的发纸质工资条形式的话，那么对于人员众多的大型企业来说，这将是一个非常大的工作量，推荐壹人事工资条群发平台。

HR只需要上传Excel工资表，一键群发工资条，员工通过短信、邮件、微信都可以查看。

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

或者有一种,请参考http://61.132.120.217/xxxkw/Article_Show.asp?ArticleID=136

两种办法

1、可以用excel制作
把工资表中插入多行带顺序编号的表头，然后进行排序，拆分为一行表头+一行数据，从而打印出来。进行裁剪发放，或者直接截图发给员工
但是这种做法的工作量是比较大的

---

2、如果想要公司发放工资条更加高效、合规、安全

可以给公司提供建议，使用专业的工资条工具，几秒钟就可以发完所有人的工资条。
（上传工资表——机器自动拆解成工资条——进行发放配置——一键群发）
并且专业的工资条工具在功能方面更加强大
悦享工资条
1、上传薪资表，自动解析工资条，几秒钟发放千人工资条。多终端发放（短信+微信+邮箱）
2、可签名签收，可导出签收记录。可撤回可重发，可定时发送。可自定义工资条模板
3、员工在线反馈工资条的异议，提醒通知员工阅读与签收，设置发放公告，添加附件
4、有阿里云的安全支持，和客户签订保密协议，薪资数据多重加密。
官网注册即可试用~

其实用不着楼上说的那么复杂,看都看不懂,你只需要选做好一个员工的工资条,也就是一个标题栏和一个工资详单,再选择两行空的,同时选择这四行进行拖动就出来了,这时你再一一的输入就可以了.而且这样有一个好处就是他可以自行生成序号,当然前题是你在做第一个人的时候就要输入序号1(或者你愿意的任何整数)

---

海兴县18012044654： 如何用excel表格制作工资条? - ？
虞匡快胃： 方法一: 1、打开工资表,在工资表后面的空白列依次输入1,2,3......这里我们输在G列. 2、在刚刚输入的数字下面再向下输1.1,2.1……,但是要比上面的数据少一行,假如上面从1输到6,这里就从1.1输到5.1即可. 3、在G列任何一个单元格中...

海兴县18012044654： 在Excel里如何制作工资条？
虞匡快胃： 一般来说,可以用三个方法: 1、操作法 通过操作,在每行下面插入一个空行,在复制标题行,定位空行的第一个单元格,粘贴之.优点是可以保留原始格式,缺点是每次都要重复同样的操作步骤. 2、函数法 主要是indirect函数,通过计算,如奇数行等于标题行,偶数行等于row()/2+1行,获得类似效果.优点是以后使用直接复制过来就OK,缺点是只引用值过来,原有格式丢失. 3、VBA方法 就是用代码处理,可以在原始表格上直接处理,也可以处理到新工作表中,可以保留原来格式,也可以不保留,看实际所需而定.

海兴县18012044654： 在excel软件中如何制作工资条? - ？
虞匡快胃： 在excel软件中如何制作工资条: 完成数据表及表格格式设置. 工资条制作. 关键1——制作“工资条”页面. 假如在A4(21*29.7cm)纸上打印,可以按7张工资条设计,每张工资条页面为18*4cm. 关键2——设置打印区域. 在页面设置中,设置打印的数据范围和打印行标题. 关键3——预览调整. 在预览窗口中,单击“页边距”对“工资条”页面的边距进行适当调整. 最后,打印一张A4页面,试打印效果.

海兴县18012044654： excel怎么做工资单? - ？
虞匡快胃： Excel小技巧

海兴县18012044654： 如何用Excel制作工资条 - ？
虞匡快胃： 举例说一下:假设要做10个人的工资条1、先将表头复制10行(如:姓名/基本工资/补项/总工资等)2、10个人的工资明细准备好3、在10行表头前依次加上奇数序号:1,3,5,7,94、在10个人的工资明细前依次加上偶数序号:2,4,6,8,105、对序号那一栏做升序排列,工资条就大功告成啦!

海兴县18012044654： 在Excel里如何制作工资条 - ？
虞匡快胃： 假定工资表名为“SHEET1”,请在“SHEET2”工作表A1单元格输入公式:=INDEX(SHEET1!A:A,IF(MOD(ROW(),2),1,ROW()/2+1)) 将公式向右向下复制.打印SHEET2表就是工资条.如果每人要空一行,公式改为:=INDEX(Sheet1!A:A,CHOOSE(MOD(ROW(),3)+1,65536,1,(ROW()+1)/3+1))&＂＂

海兴县18012044654： excel如何制作工资条 - ？
虞匡快胃： Excel中可以利用公式制作工资条,也可以通过排序法制作.软件版本:Office2007 排序法如下:1.先建立辅助列,从工资表中输入从1开始的序列直到最后一个人结束,然后复制这个序列,粘贴到最后一行非空行下面,如图所示:2.然后选择辅助列,进行顺序排序,选择“扩展选定区域”:3.然后复制工作表表头,选择辅助列以外的数据区域,Ctrl+G,定位条件,选择“空值”:4.Ctrl+V粘贴表头,删除辅助列,工资表就做好了:

海兴县18012044654： 如何用excel中制作工资条 - ？
虞匡快胃： 步骤如下:1.表头填写基本工资项2.插入公式,利用If函数设置,人名为空时,结果也是空3.拖动填充,这样,输入姓名和基本工资项,就能直接计算出应发工资来了.

海兴县18012044654： 如何用excel制定工资单? - ？
虞匡快胃： 用公式当然是可行的,但对于初学者来说,掌握起来不太容易,向你推荐一种适合于初学者的方法. 在标题所在行右边相邻的空白单元格输入1. 在数据区域右侧相邻的空白区域,第一个人的信息行输入2,第二个人的信息行输入5....

海兴县18012044654： 如何用Excel制作漂亮的工资条? - ？
虞匡快胃： “小问题难倒老财务”,也许你已经在财务口上工作多年,也许你天天都要面对Excel那张老脸,也许你已经习惯了用工资明细表做员工工资统计并 向上级汇报,把表中的条目一条条复制粘贴后打印发给每个员工.可你是否想过,找一个更简单...