Office中国论坛/Access中国论坛

标题: [求助]一个行插入的难题（急求） [打印本页]

作者: 金刀 时间: 2005-2-23 17:04
标题: [求助]一个行插入的难题（急求）
[attach]9048[/attach]

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

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

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

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

作者: 情比金坚 时间: 2005-2-23 22:24
运行这只宏: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

作者: 老鬼 时间: 2005-2-24 00:49
二楼的方法挺不错的~~~~~

作者: 金刀 时间: 2005-2-24 17:51
代表3000名兄弟谢谢列位老大！！！

作者: vzx 时间: 2005-2-25 21:36
二楼方法很好啊，简单易用。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)