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

Question

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

Answer 1

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

Answer 2

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

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

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

Answer 3

编写如下宏，可以做到瞬间完成。
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
Range(Cells(1, 1), Cells(1, Icol)).Copy Cells(i + 1, 1)
End If
Next i
Range("A1").Select
Application.ScreenUpdating = True
End Sub

Answer 4

http://tieba.baidu.com/f?ct=335675392&tn=baiduPostBrowser&sc=3962596529&z=294777677&pn=0&rn=30&lm=0&word=excel#3962596529

好东西!