Question

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

而且每个人都要有工资条表.
先谢谢了!

Answer 1

Excel小技巧

Answer 2

工资表汇总常用excel功能

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

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

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

 

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

 

第三步：复制6次表头

 

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

 

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

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

Answer 3

在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

Answer 4

两种办法

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

---

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

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

Answer 5

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