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
宏代码
最新推荐文章于 2024-06-26 11:02:57 发布
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