使用辅助列、公式、Power Query或VBA可将Excel工资表转为工资条。1、辅助列法：添加序号列，复制数据并插入表头行，按序号排序生成交替结构；2、公式法：在新表用“=工资表!A$1”引用标题，下行为数据，第三行再引标题，形成三行一组的工资条模式并批量填充；3、Power Query法：导入数据后添加索引与表头列，展开字段并通过追加查询组合每条记录与标题，导出标准化工资条；4、VBA宏法：编写代码遍历原表每行，依次复制表头和员工数据到新工作表，一键生成完整工资条，适用于高频操作，需保存为.xlsm格式启用宏。
如果您需要将现有的Excel工资表转换为便于打印和分发的工资条格式，但不确定如何操作，可以通过几种高效的方法实现自动化排版。以下是具体的操作步骤。
本文运行环境：联想ThinkPad X1 Carbon，Windows 11
一、使用辅助列插入法生成工资条
通过添加辅助列标记行号，再利用排序功能插入工资条标题行，可以快速生成每条记录对应的工资条结构。
1、在原始工资表的最后一列（例如G列）输入辅助列标题“序号”，然后从G2开始依次输入数字1、2、3……对应每一员工的行号。
2、选中整个数据区域，包括表头和所有员工数据，复制一份到下方空白区域作为待插入的工资条内容。
3、在每个员工数据下方手动插入一行，并将原表头（如姓名、基本工资等）复制粘贴到该行。
4、重新对包含工资条和原始数据的整表按“序号”进行排序，使每条工资条与对应员工信息交替排列。
5、删除不需要的辅助列或隐藏，完成工资条布局。
二、利用公式拼接生成工资条
通过构建公式动态引用原始表格中的数据，可以在新工作表中逐行生成带有表头的工资条，适合批量输出。
1、新建一个工作表命名为“工资条输出”，在A1单元格输入“=工资表!A$1”以引用原表的字段标题。
2、在A2单元格输入“=工资表!A2”引用第一个员工的第一项数据。
3、向右拖动填充公式至其他列，确保整行数据都被引用过来。
4、在A3单元格输入“=工资表!A$1”，再次引入表头，形成一条完整的工资条三行结构：标题行 + 数据行 + 空白间隔控制。
5、继续向下复制这三行模式，调整公式中的行号偏移量，使得每三条记录对应一个员工的完整工资条。
6、检查输出结果是否正确显示每位员工的独立工资条，必要时使用IF函数嵌套避免空值重复。
三、使用Power Query拆分合并生成工资条
Power Query具备强大的数据转换能力，可通过加载数据后添加索引并展开结构，自动生成标准化工资条。
1、选择原始工资表的数据区域，点击“数据”选项卡下的“从表格/区域”导入Power Query编辑器。
2、在Power Query中添加自定义列，内容为整个表头行，用于后续作为每条工资条的标题部分。
3、对每一行数据执行“展开”操作，将结构化字段逐项列出。
4、使用“追加查询”功能将表头行与每条员工数据组合成一组三行记录（标题+数据+分隔）。
5、导出结果到新工作表，即可得到已排好顺序的工资条列表。
6、注意设置正确的列类型以防止数字格式错乱。
四、VBA宏一键生成工资条
对于频繁制作工资条的用户，编写一段VBA代码可实现一键生成，极大提升效率。
1、按下Alt + F11打开VBA编辑器，在当前工作簿中插入一个新模块。
2、粘贴以下代码：
Sub 生成工资条()
Dim wsData As Worksheet, wsOutput As Worksheet
Set wsData = ThisWorkbook.Sheets("工资表")
Set wsOutput = ThisWorkbook.Sheets.Add
wsOutput.Name = "工资条"
Dim LastRow As Long, i As Long, OutputRow As Long
LastRow = wsData.Cells(wsData.Rows.Count, "A").End(xlUp).Row
OutputRow = 1
For i = 1 To LastRow
wsData.Rows(1).Copy Destination:=wsOutput.Rows(OutputRow)
OutputRow = OutputRow + 1
wsData.Rows(i).Copy Destination:=wsOutput.Rows(OutputRow)
OutputRow = OutputRow + 1
Next i
End Sub
3、关闭编辑器，返回Excel，按Alt + F8运行宏“生成工资条”。
4、系统会自动创建新工作表并填充所有带表头的工资条。
5、确保宏安全性设置为启用所有宏，并保存文件为.xlsm格式以保留VBA功能。
