excel - Excel VBA 代码优化，使用公式和代码添加新行

Question

我是擅长 VBA 的新手。我创建了一个宏来在表格顶部插入一行，它还将从下面的行中复制字体和公式。公式就是这样，它们从另一个 excel 文件中导入数据。但是现在我遇到了一个问题，它变得非常慢并且闪烁等。我在互联网上查看以优化我的 VBA 代码，但我真的找不到有用的东西。

这是我的代码，我该如何优化：

Sub Add_row()
'Add_row Macro

    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    Application.DisplayStatusBar = False
    Application.EnableEvents = False

    Range("A4:R4").Select
    Selection.ListObject.ListRows.Add (1)
    Range("A5:A8").Select
    Range("A8").Activate
    Selection.AutoFill Destination:=Range("A4:A8"), Type:=xlFillDefault
    Range("A4:A8").Select
    Range("B5:I5").Select
    Selection.AutoFill Destination:=Range("B4:I5"), Type:=xlFillDefault
    Range("B5:I5").Select
    Range("J5:R5").Select
    Selection.AutoFill Destination:=Range("J4:R5"), Type:=xlFillDefault
    Range("J5:R5").Select
    ActiveWindow.SmallScroll Down:=-2

    'Application.Calculation = xlCalculationAutomatic

    Application.ScreenUpdating = True
    Application.DisplayStatusBar = True
    Application.EnableEvents = True

End Sub

谢谢

标签： excelvbaformulas