应用场景
有时为了打印出的文件便于浏览或切割,或者隔行填充内容,需要对工作表隔行插入
知识要点
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
联系客服