使用辅助列排序、INDEX函数或VBA宏可高效批量生成工资条。首先在数据末列添加0,1交替辅助列，排序后分离标题与数据行；或利用INDEX函数结合ROW()动态引用原始数据，自动输出每行带标题的工资条；还可通过VBA宏代码一键生成，只需设置源表与结果表名称，运行宏即可完成全部工资条创建，适用于频繁操作场景。
如果您需要为员工批量生成带有明细的工资条，但手动复制粘贴效率低下且容易出错，可以通过Excel内置功能或公式快速实现自动化生成。以下是几种高效的方法。
本文运行环境：联想ThinkPad X1 Carbon，Windows 11
一、使用辅助列+排序法
通过插入辅助列标记每条工资数据的位置，再利用排序分离出工资条标题行与数据行，从而实现工资条的间隔排列。
1、在原始工资表最后一列添加“辅助列”，在第一行数据对应位置输入0，在第二行输入1，之后按“0,1,0,1…”交替填充至所有数据行结束。
2、选中整个数据区域（包含标题行和辅助列），点击“数据”选项卡中的“排序”按钮。
3、设置排序依据为“辅助列”，排序次序为“升序”，确认后所有标题行将集中显示在上方，数据行在下方交替分布。
4、复制标题行内容，粘贴到每个员工数据前，形成独立工资条结构。此方法便于打印时分页处理。
二、利用INDEX函数自动生成
通过构建动态公式引用原始数据表中的每一行，并结合行号控制输出顺序，可自动输出带标题的工资条序列。
1、新建一个工作表用于存放生成的工资条，在A1单元格输入“姓名”，B1输入“基本工资”等原始表中的列名。
2、在A2单元格输入以下公式：=INDEX(原始表!A:A,INT((ROW()+1)/2)+1)，其中“原始表”为源数据所在工作表名称。
3、向右拖动该公式覆盖所有列，确保每列都引用对应的原始数据列。
4、选中整行公式结果，向下填充足够多的行数以覆盖所有员工数量×2（每名员工占两行：标题+数据）。
5、筛选奇数行并删除空标题行，或调整公式逻辑使每隔一行自动插入标题。此方法支持实时更新。
三、借助VBA宏一键生成
对于频繁制作工资条的用户，编写一段简单的VBA代码可以实现一键生成完整工资条列表，极大提升重复性工作效率。
1、按下Alt+F11打开VBA编辑器，在左侧工程资源管理器中插入一个新模块。
2、输入如下代码：
Sub 生成工资条()
Dim i As Integer, n As Integer
n = Sheets("原始表").Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To n
Sheets("结果表").Rows((i - 2) * 2 + 1).Value = Sheets("原始表").Rows(1).Value
Sheets("结果表").Rows((i - 2) * 2 + 2).Value = Sheets("原始表").Rows(i).Value
Next i
End Sub
3、关闭编辑器，返回Excel按Alt+F8运行宏“生成工资条”。需提前创建“结果表”工作表。
4、运行完成后检查结果表是否正确显示每名员工的标题与数据组合。
