用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 '删除原始标题行----------代码结束---------- 使用方法：录制宏-然后编辑宏输入以上代码。