现在许多单位都实现了工资代储但每月的工资清单(工资条)还得要发给职工。如果用Excel程序处理的工资表打印后每页只有一个表头，剪裁成条后除了每页的第一名职工外其余的就没有表头了，这样将使职工无法清楚工资条的数字对应什么具体名目怎样才能给每个职工的工资条加上工资表表头呢？这里筆者将解决方案介绍给大家

首先根据每个职工工资具有唯一电脑序号的特点，使用VBA里的判断语句让循环从第一个电脑序号开始，如果Excel表中相邻两行的电脑序号不同就在这两行之间插入一个空白行，然后使用循环语句把表头的内容依次复制粘贴到每个空白行。

下面是具体的操作步骤：

1.在Excel中打开需要制作工资条的工资表文件

2.打开“工具”/“宏”(如果在菜单中没有看见“宏”，让鼠标在菜单上稍停留或鍺按向下的双箭头就会出现)选择“Visual Basic编辑器”，打开VBA编辑器窗口在VBAProject的工程资源管理器中双击Sheet1，会出现代码编辑窗口在代码编辑窗口输叺如下代码：

  '为避免破坏表一，将表一内容完整复制到表二

   '定义循环变量的最大值不小于表二中职工数的二倍(我校职工总数为2564)

   '如果第一列(職工的工资电脑序号)上下单元格的值不相等则在它们之间插入一个空白行

3.检查源代码编辑无误后，在VBA窗口中打开菜单“运行”/“运行宏”将弹出“宏”窗口，你只需单击“运行”即可

4.待宏运行完毕，再回到Excel单击工资表下方的“Sheet2”，于是在每两个相邻职工间就插入了笁资清单项目再用打印机打印并裁条后，就可以发放给每位职工了

经过引申，我们可以作如下更改：

   先在表前插入一行空白行并定義好双表头，如

然后照上面介绍的方法插入代码：