Sub 批量插入行()

Application.ScreenUpdating = False '关闭屏幕刷新

For i = 5 To 2 Step -1 '从第五行到第二行循环
    For n = 1 To 3 '循环3次
        Rows(i & ":" & i).Select '选中第I行
        Selection.Copy '复制
        Selection.Insert Shift:=xlDown '粘贴，活动单元格下移
    Next n
Next i
End Sub

Application.ScreenUpdating = True '恢复屏幕刷新

End Sub