答案：通过辅助列排序、INDEX函数或VBA宏可批量自动化生成工资条。先用辅助列标记数据并排序分离，或用INDEX函数动态引用数据交替显示标题与员工信息，也可编写VBA宏代码一键生成完整工资条列表，提升效率避免手动错误。
如果您需要为员工批量生成工资条，但手动操作耗时且容易出错，可以通过Excel的多种功能快速实现自动化处理。以下是几种高效制作工资条的方法。
本文运行环境：联想ThinkPad X1 Carbon，Windows 11。
一、利用辅助列与排序法
通过插入辅助列标记每行数据，并结合排序功能分离工资条内容，适合对公式和排序操作较熟悉的用户。
1、在原始工资表的最后一列插入一个新列，命名为“辅助列”。
2、在辅助列第一行输入数字0，第二行输入1，然后选中这两个单元格，向下拖动填充序列，使每个员工对应一个递增编号。
3、复制整个工资表标题行（包含字段名），粘贴到所有员工数据之后，形成一组新的空行。
4、在新增的空行中，将每个员工的工资数据与其上方的标题行组合成独立的工资条结构。
5、使用“升序排序”按辅助列重新排列，确保每个员工与对应的标题行相邻。
二、使用INDEX函数自动生成
通过INDEX函数引用原始数据动态生成工资条，适用于希望保持原始数据不变并自动更新的场景。
1、新建一个工作表用于存放生成的工资条。
2、设定每两条记录之间插入一条标题行，例如第1行为标题，第2行为第一个员工数据。
3、在目标单元格输入公式：=INDEX(原始表!A:A,INT((ROW()+1)/2))，其中ROW()判断当前行位置，INT控制数据读取频率。
4、将公式向右拖动以填充其他列，覆盖所有工资项目。
5、向下复制公式至所需行数，系统将自动交替显示标题和员工数据。
三、借助VBA宏一键生成
对于大量数据，使用VBA编写宏程序可实现一键生成完整工资条列表，大幅提升效率。
1、按下Alt + F11打开VBA编辑器，在当前工作簿中插入一个新模块。
2、输入以下代码：
Sub 生成工资条()
Dim i As Integer, LastRow As Integer
LastRow = Sheets("原始数据").Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LastRow
Sheets("结果").Range("A" & (i * 2 - 1)) = Sheets("原始数据").Range("A1:Z1").Value
Sheets("结果").Range("A" & (i * 2)) = Sheets("原始数据").Range("A" & i & ":Z" & i).Value
Next i
End Sub
3、关闭编辑器，返回Excel界面，按Alt + F8运行宏程序。
4、检查“结果”工作表是否已正确生成交替式工资条布局。
