第3个回答 2010-04-26
用宏处理吧,我写了一个,代码如下。我试了,效果非常好 ^-^
Sub 自动重复第一行到其他行()
If MsgBox("确定要将第一行复制到每一行前面吗?", vbQuestion + vbYesNoCancel) _
<> vbYes Then Exit Sub
Rows("1:1").Select
Selection.Copy
ActiveCell.Offset(2, 0).Select
While Not IsEmpty(ActiveCell)
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown
Selection.Copy
ActiveCell.Offset(2, 0).Select
Wend
Application.CutCopyMode = False
End Sub
注意:运行任何宏之前,最好将工作表先保存一下。因为Excel宏所做的动作是无法撤消的,万一要撤消,你可以退出Excel并选择“不保存”,即可。
有疑问,请Hi我或给我发BaiDu消息
GoodLuck!本回答被网友采纳