一种是使用邮件合并
1、将现在工资表表头复制到word中，调整格式
2、现有表取消合并，留最下面一项做字段名称
3、在复制了表头的word文件中点邮件，选择收件人或数据源
4、选现有列表，文件类型选电子表格，找到文件，选择对应的工作表
5、对应表头依次插入字段域
6、在下一行插入 规则 下一记录 复制上面 的表头和插入的域
7、重复第6步直到填满当前页，保存这个word文档就可以作为合并模板，以后可重复使用
8、点开始邮寄合并，就可以得到可以打印的工资表了
另一个是写公式
能用插入（复制）表头的办法。这是个参考的
http://www.docin.com/p-71917579.html
EXCEL制作工资条时,如何复制表头到每一行。
方法1：
选中除了标题行外的所有工资信息，“插入行”，就可以在标题行下面一次性插入与你工资人数相等的空行，然后使用填充柄复制标题行在这些空行中，这样，上面就是标题行，行数和下面的人数相等（其实还多一行，就是最先的那行），下面是数据行。现在插入一个辅助列，继续使用填充柄在前面的标题行中填充奇数1、3、5、7……，在下面的数据行里填充偶数2、4、6、8……，然后在这个辅助列里升序排序即可把原先复制的标题行排列在数据行中间并交替间隔，删除这个复制列即可。
方法2：
用vba写两函数搞定
Sub InsertHeader()
Dim r As Long, LastRow As Long
Application.ScreenUpdating = False
LastRow = ActiveSheet.Range("A65536").End(xlUp).Row
r = 3
Do While r <= LastRow
ActiveSheet.Rows(1).Copy
ActiveSheet.Rows(r).Insert Shift:=xlDown
LastRow = LastRow + 1
r = r + 2
Loop
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Sub DeleteHeader()
Dim r As Long, LastRow As Long
Application.ScreenUpdating = False
LastRow = ActiveSheet.Range("A65536").End(xlUp).Row
r = 3
Do While r <= LastRow
ActiveSheet.Rows(r).Delete
r = r + 1
LastRow = LastRow - 1
Loop
Application.ScreenUpdating = True
End Sub
