Excel一键生成工资条，快得不得了

EXCEL本身的菜单、按钮、快捷键上没有工资条这样的东西，作为一个空白的EXCEL系统，不可能一键完成工资条生成任务的。
如果某电脑上一键完成，那是编写了相应的宏代码，点这个键就执行了代码，代码完成的工资条的生成。但是开发这个宏代码是非常艰辛的，而且开发的人想象的工资条是个什么样子和你的期望的差异，需要修改代码才能解决。因此宏编程解决问题一般只推荐给有编程基础，或者对宏有巨大兴趣的人。
如果偶尔需要做一个工作条，也可以不用宏编程，使用一些办法点点鼠标实现，一个思路：增加编号辅助列，对数据区每一条记录有一个不同的序号，然后插入一大批（可以插入一组后填充实现）表头和空行组，然后再次按照序号列排序，使得每一条数据前面有一个空行和标题行，这时候就成为工资条的样子。

以WPS 2019版本为例：

关于如何实现将每个人的工资条发到每个人的邮箱里，您可考虑使用WPS2019来完成，具体步骤如下：

1、打开「工资表表格」，点击「开始-文档助手-工资条群发助手」；

2、「工资条群发助手」会自动识别表格的内容生成预览；

3、如不知道怎么写「工资条」还新建表格后进入「工资条群发助手」一键插入工资表模板。

4、在预览无误后，直接点击发送即可调用「系统默认邮件应用」来批量发送工资条给对应同事，每位同事只能收到自己的工资条。

分类: 电脑/网络 >> 软件 >> 其他软件
解析:

先假设工资条打印在A4（21×297cm）纸上。

每张工资条页面4×297cm，一张A4纸打印5张工资条。

1定义工资条页面：

执行“开始/控制面板/打印机” *** 作，在“打印机”窗口，执行“文件/服务器属性”命令，设置自定义页面4×297cm格式进行“添加”并“应用”。
2在Excel工资文档窗口，执行“文件/页面设置”命令，设置工资条页面，特别设置每张工资条打印的“顶端标题”。

完成上述设置后，插入A4纸即可直接打印。

仅供参考

发电子工资条不违法。

无论是纸质的还是电子版的工资条，只要能够证明是该公司发出，且与银行的工资转账记录相匹配，就都是不违法的。

并且，发电子工资条实际上更为合规。

电子工资条支持员工手写签名签收，并导出签收记录存档。

而传统模式中工资条签名的收集，多半为纸质进行签名，不易收集，也不易保存。

此处补充一个法律知识

员工在领取工资时候，是需要在单位出具的工资表上面签名的。

相关文件规定，单位是被要求必须书面记录支付劳动者工资的数额、时间、领取者的姓名以及签字，并保存两年以上备查。

因此，员工在领取工资时候被单位要求签名是属于正常行为，单位有权要求员工在领取工资以后签名备案使用。

而且，电子工资条的制作，更为便捷。

几秒钟就可以发完工资条。

（上传工资表——机器自动拆解成工资条——进行发放配置——一键群发）

悦享工资条支持  微信/企业微信+邮件+短信   批量群发工资条
如果想要公司发放工资条更加高效、合规、安全
可以试试悦享工资条，几秒钟就可以发完所有人的工资条。
（上传excel工资表——机器自动拆解成工资条——进行发放配置——一键群发）

产品优势
1、智能解析excel工资表，一键群发工资条，4步骤几秒钟完成千万人的工资条发放
2、支持 短信+邮箱+企业微信/微信公众号/小程序 查看工资条
3、支持手写签名签收，导出签收记录。撤回重发、定时发送工资条
4、支持员工在线反馈工资条异议，提醒通知员工签收
5、支持自定义工资条模板，添加公告和附件
6、支持多管理员模式 *** 作，支持企业进行本地化部署
7、支持企业按需购买，多种套餐模式搭配，适用各种企业更实惠
官网注册即可免费试用~

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

---