如何在EXCEL表中一次性在每行前加一行标题栏?

我是用EXCEL造工资条,请问如何在EXCEL表中一次性在每行工资数据前加一行标题栏?
大家说的都很好,可是我还有一个不明白的地方,因为我原来的表格标题就有十几项,也就是说标题栏从A1到A10不止,有很多地方有空格,那么一楼的答案就不可行了;二楼的答案我试过了,我用的是2003版,不能用宏定义;三楼的就太复杂了,我的数据都会被改变;四楼的不适合,因为我只是插入,而不是新建.
没想到这里边还有这么多学问,真是要多多学习.

1、插入一个辅助列。
2、再复制与你开工资人数相同个数的标题栏
3、留出相同个数的空白行
4、再开资人的那些行前设2、5、8……
5、在标题栏前设置1、4、7……
6、在空白行前设置3、6、9……
7、选择排序工具进行排序就OK了。

呵呵，教你复杂的估计你也不爱学
简单的 先做标题行，做好以后把标题行和下边一行一起选 中，往下复制，就会一行标题一行空格了

哇我试过了，那个宏好好用哦！谢谢YDX

不过不知道楼主懂了没，我再给个更简单的，假设楼主的表格是从A1单元格开始的，在第一行的表格之外，把以下公式复制上去，然后向右向下拉，就会变成楼主需要的格式，之后可以把需要的部分选择性粘贴到另一张表中打印，或打印时选择打印区域。

=OFFSET($A$1,CHOOSE(MOD(ROW(),3)+1,65535,0,ROUND(ROW()/3,)),COLUMN(A1)-1)&""

编写如下宏，可以做到瞬间完成。
Sub gz()
Dim Irow As Integer, Icol As Integer
Application.ScreenUpdating = False
Irow = [A1].CurrentRegion.Rows.Count
a = (Irow - 1) * 2
Icol = [A1].CurrentRegion.Columns.Count
For i = 2 To a Step 2
If Cells(i, 1) <> "" And Cells(i + 1, 1) <> "" Then
Rows(i + 1).Insert
End If
If Cells(i, 1) <> "" And Cells(i + 1, 1) = "" Then