如何在指定单元格上方快速插入多行？VBA性能优化求助

你的代码慢的核心原因是循环逐行插入——每插一行，Excel都要刷新界面、处理格式和计算，1000次操作会累积大量不必要的耗时。直接一次性插入目标行数，再配合关闭Excel的自动功能，能把速度提升几十倍甚至上百倍。

优化后的代码 #

Option Explicit
Public Sub Insert_Rows_Fast()
    Dim insertCount As Long
    Dim inputVal As Variant
    
    ' 获取输入的行数，处理空输入情况
    inputVal = InputBox("How many rows would you like to insert?", "Insert Rows")
    insertCount = IIf(inputVal = "", 1, CLng(inputVal))
    
    ' 关闭Excel自动功能，减少中间过程的耗时
    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
        .EnableEvents = False
    End With
    
    On Error GoTo Cleanup ' 确保出错时也能恢复Excel默认设置
    
    ' 一次性插入指定行数，彻底避免循环操作
    ActiveCell.Resize(insertCount).EntireRow.Insert _
        Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    
Cleanup:
    ' 恢复Excel的自动功能
    With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
    End With
    
    ' 处理可能出现的错误提示
    If Err.Number <> 0 Then
        MsgBox "插入失败：" & Err.Description, vbExclamation
    End If
End Sub

关键优化点 #

• 一次性插入多行：用Resize(insertCount)直接选中目标行数，一次完成插入操作，避免1000次重复的循环开销。
• 关闭自动功能：临时关闭屏幕刷新、自动计算和事件触发，这些功能在批量操作时会大幅拖慢速度，操作完成后必须恢复默认设置。
• 避免Select/Selection：直接操作单元格对象，跳过手动选择的步骤，减少Excel的交互型开销。

内容的提问来源于stack exchange，提问作者Mo007