（１）在Excel中打开需要制作工资条的工资表文件．

（２）执行“工具”—＞“宏”命令，选择“Visuai Basic 编辑器”打开VBA编辑器窗口，在VBAProject的工程资源管理器中双击Sheets1,会出现代码编辑窗口，在其中输入如下代码：

Sub gongzibiao()
Application.ScreenUpdating = False
'为避免破坏表一,将表一内容完整复制到表二
Sheets(1).[A1].CurrentRegion.Copy Sheets(2).[A1]
'定义循环变量的最大值不小于表二中职工数的二倍
a = (Application.WorksheetFunction.CountA(Sheets(2).[a1:a2600]) * 2)
'如果第一列(职工的工资电脑序号)上下单元格的值不相等,则在它们之间插入一个空白行
For I = 3 To a
If Sheets(2).Cells(I, 1) <> Sheets(2).Cells(i+ 1, 1) And (Sheets(2).Cells(I, 1) <> "") Then
Sheets(2).Rows(i+ 1).Insert
End If
'如果第一列中的单元格为空.则将表中[A2:M2](工资清单表头项目)复制到此行
If Sheets(2).Cells(I, 1) = "" Then
Sheets(2).[A2:M2].Copy Sheets(2).Cells(I, 1)
End If
Next
Application.ScreenUpdating = True
End Sub

(3)检查源代码编辑无误后，在VBA窗口中单击“运行”－＞“运行宏”命令，将弹出“宏”对话框，你只要单击“运行”按钮即可。

（４）等待宏运行完毕，再回到Excel,单击工资表下方上方的“Sheet2”,于是在每两个相邻职工之间就插入了工资清单项目。