用Excel插件掌上工资条－－无需上传，无需导入，直接在财务的工资表中进行批量发送（数据双重加密传输
工资条的录入是个体力活，还需要打印下来保证信息的完善，这里提供几个制工资条的方法。
材料/工具
excel
方法1
辅助序列法，做出这个样子。
第一步：首先依据实际情况填好工资表的各项必备信息，如图如何用函数快速制作工资条2第二
选中数据区域，点击筛选。
用VBA吧，代码如下： ----------代码开始---------- Cells.Sele
升序排列。
删掉无用数据。
以WPS 2019版本为例：关于怎么用excel快速的做几百人的工资条，您可考虑使用WPS2019
方法2
随意输入对角线，按F5选择定位条件。
用Excel插件掌上工资条－－无需上传，无需导入，直接在财务的工资表中进行批量发送（数据双重加密传输
选空值。
右键，插入整行。
工资条是个人工资明细的一种表现方式，你可将“工资条”设为引用表， 第一行为标题，即多行标题的最明
复制标题行，选择插入区域。
第一步：首先依据实际情况填好工资表的各项必备信息，如图如何用函数快速制作工资条2第二
按F5定位为空值。
用VBA吧，代码如下： ----------代码开始---------- Cells.Sele
右键选择的区域点击粘贴值。
以WPS 2019版本为例：关于怎么用excel快速的做几百人的工资条，您可考虑使用WPS2019
删除无效数据。
方法3
输入a1。
向下复制到a9（比原数据多一条）。
F5定位空值。
接下来操作如方法2。
方法4
复制标题行到11行。
A列输入序号1，B列输入公式。=VLOOKUP($A15,$A$1:$C$9,COLUMN(B5),0)
向右复制。
选择标题行和公式行，向下复制。
方法5
复制序号一列到辅助列。
辅助列下输入1.1，2.1。
选中向下复制。
选择数据区域，点击升序排列。
接下来的定位空值和插入操作如同方法2。
扩展阅读，以下内容您可能还感兴趣。
如何一分钟快速制作工资条，工资条制作软件，下载模板
想 要知 快 速 制 作 工 资 条 ， 薪 资 管 家 你 用 了 吗 。 分 分 钟 帮 你 搞 定 这 个 难 题 。 下 面 我 来 详 细 教 你 具 体 的道 操 作 方 法 。 首 先 注 册 薪 资 管 家 ， 第 一 步 ， 注 册 薪 资 管 家 ； 第 二 步 ， 上 传 任 意 格 式 e x c e l 工 资 表 ； 第 三 步 ， 自 动 生 成 独内 立 工 资 条 , 一 键 群 发 到 员容 工 注 册 的 A P P ; 第 四 步 ， 员 工 登 录 查 询 自 己 的 工 资 条 。本回答被提问者采纳
多行工资条快速制作方法
工资条是个人工来资明细的一种表现方式，你可将“工资条”设为引用表，
第一行为标题，即自多行标题的最明细目，
即 A1 B1 C1 D1 E1 F1
序号百、姓名、基本工资、工龄、社龄、学历……；度
第二行为金额
A2
=SHEET1 （2）！A7
如何快速制做工资条
EXCEL中一个简单的工资条制作办法作者：詹尧辉问题：在Excel2000做成的工资表，只有第一个人有工资条的条头（如编号、姓名、岗位工资，年限工资……），想输出成工资条的形式。怎么做？
解决方法：
（1）、假设原工资表为“表1”，先复制“表1”到某新空白表中，命名为“表2”，删去“表2”中的多余行，使工资条头位于第一行，职工工资数据依次紧排在条头之后。：
（2）、在“表2”工资数据的后一列H中，增加“标注”栏，依次向下填充入1，2，3…等步长为1的序列数。
（3）、选中“表2”工资条头下（工资条头不选）第2至最后一行，右键：插入，表2中将出现许多新增空行，将条头数据填入这些新增空行中（方法：选中A1：G1，右键“复制”，然后选中所有新增空行，右键“粘贴”即可e799bee5baa6e79fa5e98193e59b9ee7ad9431333332623265，也可用拖拽填充法）。然后在其“标注”栏中依次填上1.5，2.5，3.5…。等步长为1的序列数。操作结果示意如下：
（4）、再次选中“表2”第2行至最后一行，点击菜单：数据-排序-按“标注”列（递增）排序，点击确定。再选中H“标注”列，右键：“隐藏”或“删除”，这样，工资条即基本制作完毕。
（5）、制作完成的工资条裁开后即可分发给同事了。您如果觉得此表格过于拥挤，还可用类似的方法在每个人之间插入空行。
HR如何用函数快速用Excel制作工资条
第一步：首先依据实际情况填好工资表的各项必备信息，如图
如何用函数快速制作工资条
2
第二步：算出扣款小计：在L5单元格输入公式=SUM(G5:K5)，然后下拉填充。（这里是在L5单元格输入公式，可根据实际情况自己选择单元格。）
如何用函数快速制作工资条
3
第三步：在M5单元格输入公式=SUM(C5:F5)-L5，计算出应发工资，然后下拉。
如何用函数快速制作工资条
4
第四步：用应发工资减去个人所得税得到实发工资，在O5单元格输入公式=M5-N5，计算出实发工资，然后下拉。
如何用函数快速制作工资条
5
第五步：至此，工资表制作完毕，下面开始制作工资条：复制工资表，然后删除7a64e59b9ee7ad9431333365653765内容只留下表头，复制的工作表名称改为“工资条”，在A6单元格输入序号“1”。
如何用函数快速制作工资条
6
第六步：在B6单元格输入公式=VLOOKUP($A6,XXX公司工资表!$A$5:$P$4995,COLUMN(B4),0)，然后向右拉。
如何用函数快速制作工资条
7
第七步：选中A4:P6，如果人与人之间需要留一空行，就选中A4:P7，向下拉，如图。
如何用函数快速制作工资条
8
第八步：如果想要统计实发工资总额，可以在O25单元格输入公式=SUM(O6:O22)，如图。
如何用函数快速制作工资条
9
如此，工资条制作完成，工资表可留底备案，工资条打印后裁切发给员工。
END
如何快速制作工资条（双行标题）！
用VBA吧，代码如下： ----------代码开始---------- Cells.Select
Range("F1").Activate
Selection.Borders(xlDiagonalDown).LineStyle = 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("3:3").Select '选择第3行
num = (ActiveSheet.UsedRange.Rows.Count - 2) * 4 '获取工资表除标题外的总行数，并*4以创建双行标题工资条
col = ActiveSheet.UsedRange.Columns.Count '获取工资表的总列数
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown '在选中行前插入两行，以填充标题行
num1 = 6 '从第六行开始，循环每四行插入空行
Do While num1 <= num
Range(Cells(num1, 1), Cells(num1, col)).Select
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
Selection.Insert Shift:=xlDown
num1 = num1 + 4
Loop
Range(Cells(1, 1), Cells(2, col)).Select '选择标题行
Application.CutCopyMode = False
Selection.Copy
Range("A3").Select
ActiveSheet.Paste '粘贴标题行到A3单元格
num2 = 7 '从第七行开始，循环每四行粘贴标题行
Do While num2 <= num
Range(Cells(1, 1), Cells(2, col)).Select
Application.CutCopyMode = False
Selection.Copy
Cells(num2, 1).Select
ActiveSheet.Paste
num2 = num2 + 4
Loop
Range(Cells(3, 1), Cells(5, col)).Select '选择第3行到第5行（第一个工资条），以设置工资条格式
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 '格式设置完7a64e58685e5aeb931333332623436毕
Selection.Copy '复制已设置好格式的工资条
Range(Cells(7, 1), Cells(9, col)).Select '选择第二个工资条
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False '粘贴工资条样式
num3 = 11 '从第十五行开始，循环每四行粘贴工资条样式
Do While num3 <= num
Range(Cells(num3, 1), Cells(num3 + 2, col)).Select
Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
num3 = num3 + 4
Loop
Rows("1:2").Select Selection.Delete '删除原始标题行----------代码结束---------- 使用方法：录制宏-然后编辑宏输入以上代码。
