EXCEL - 同工作表的固定插入

Sub 插入() ‘ 固定5列 做10 次
Dim i
For i = 0 To 10 Step 1
x = ActiveCell.Row
Rows(x + 5).Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(1, 0).Select
Next
End Sub