宏代码

 Sub 宏()
Dim i As Long
For i = 2 To 10
ActiveCell.Row("1:1").EntireRow.Select
Selection.Copy
ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select
Selection.Insert Shift:=x1Down
Next
End Sub