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