早上学了一招：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 = LastR
方法1：
方法2：
Sub InsertHeader()
