请问如何在Excel里面做工资条?
发布网友
发布时间：2022-04-22 09:20
共5个回答
热心网友
时间：2023-07-14 22:38
Excel小技巧
热心网友
时间：2023-07-14 22:39
工资表汇总常用excel功能
（1）插入辅助列 （2）排序
工资表转工资条的制作方法
第一步: 打开我们要处理的excel工资表
第二步:在工资表的后面一列填写序号（小技巧：在 G2填上1之后，把鼠标放在G1的左下角，出现一个+，点2次+，即可自动填充），在复制两次。
第三步：复制6次表头
第四步：排序，主要关键字以G列（就是我们加序号的那列），升序；次要关键字以F列（就是应发工资那列），点击确定。
壹人事HR提供最新最全的Excel工资表模板、工资表格式，欢迎下载和使用！ 制作完Excel工资表后，发工资条的形式也是很多HR所苦恼的，如果每个月采用传统的发纸质工资条形式的话，那么对于人员众多的大型企业来说，这将是一个非常大的工作量，推荐壹人事工资条群发平台。
HR只需要上传Excel工资表，一键群发工资条，员工通过短信、邮件、微信都可以查看。
热心网友
时间：2023-07-14 22:39
宏的内容如下：
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
热心网友
时间：2023-07-14 22:40
两种办法
1、可以用excel制作
把工资表中插入多行带顺序编号的表头，然后进行排序，拆分为一行表头+一行数据，从而打印出来。进行裁剪发放，或者直接截图发给员工
但是这种做法的工作量是比较大的
2、如果想要公司发放工资条更加高效、合规、安全
可以给公司提供建议，使用专业的工资条工具，几秒钟就可以发完所有人的工资条。
（上传工资表——机器自动拆解成工资条——进行发放配置——一键群发）
并且专业的工资条工具在功能方面更加强大
悦享工资条
1、上传薪资表，自动解析工资条，几秒钟发放千人工资条。多终端发放（短信+微信+邮箱）
2、可签名签收，可导出签收记录。可撤回可重发，可定时发送。可自定义工资条模板
3、员工在线反馈工资条的异议，提醒通知员工阅读与签收，设置发放公告，添加附件
4、有阿里云的安全支持，和客户签订保密协议，薪资数据多重加密。
官网注册即可试用~
热心网友
时间：2023-07-14 22:40
