[求助]一个行插入的难题（急求）

金刀

我有一个工资明细表（上图），3000多行。

想把第一行的表头复制插入到每一条记录前面，作为工资发放的个人明细表。

怎么办才好？不胜感激！！！！

mrtang

如果你不会用vba编程的话，有一个还算简单的办法：将第一行标题在数据的上方复制与工资表的记录一样多，即３０００多行。在A列前加一列，在标题行的此列中递增输入1，2，3，4，...，3000在数据行的此列亦递增输入1，2，3，4，...，3000然后将所有表格按此列排序，删去该列即成！

情比金坚

运行这只宏:Sub 宏1()

Dim i, n As Integer

Rows("1:1").Select

For i = 3 To 30

If i Mod 2 = 1 Then

Selection.Copy

Rows(i).Select

Selection.Insert Shift:=xlDown

End If

Next

End Sub

老鬼

二楼的方法挺不错的~~~~~

金刀

代表3000名兄弟谢谢列位老大！！！

vzx

二楼方法很好啊，简单易用。