Excel-VBA隔行插入

应用场景

有时为了打印出的文件便于浏览或切割，或者隔行填充内容，需要对工作表隔行插入

知识要点

1：Application.ScreenUpdating = False 关闭屏幕刷新，提升执行效率

2：Application.Calculation = xlManual  手工重算，提升效率

Sub 隔一行插入行()

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

    Application.Calculation = xlManual  '手工重算

    Dim i As Integer

    For i = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1

        Rows(i).Insert

    Next

    Application.Calculation = xlAutomatic '自动重算

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

End Sub