Windows11/Office2021批量插入列卡顿求助：跳过指定列重复插入A列

我在Windows 11 / Office 2021环境中，需要将A列内容重复插入51次，且插入过程需跳过D列、F列、H列和CZ列。使用以下VBA宏代码时运行缓慢：

Sub 列挿入()

Dim stepNo As Integer
Dim copyStart As Integer
Dim copyEnd As Integer
Dim y As Integer
Dim i As Integer

stepNo = 3    '入力：１つの列幅
copyStart = 1 '入力：コピーする列の最初の列No
copyEnd = 1    '入力：コピーする列の最後の列No
y = 52 '入力：繰り返す数

For i = stepNo + 1 To stepNo * y Step stepNo
    Range (Columns(copyStart), Columns(copyEnd)). Copy
    Columns(i). Insert xlShiftToRight
Next i

End Sub

我已经试过以下操作，但问题未解决：

• 安全模式启动
• 取消勾选“Enable real-time preview display function”
• 取消勾选“LinkedIN function”

优化方案 #

1. 关闭系统冗余功能，减少界面开销

在宏执行前后关闭屏幕刷新、事件触发和自动计算，避免每一步操作都触发界面更新和公式计算，这是提升VBA运行速度的基础优化手段：

Sub 列挿入()
    ' 临时关闭系统功能
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual

    Dim stepNo As Integer
    Dim copyStart As Integer
    Dim copyEnd As Integer
    Dim y As Integer
    Dim i As Integer
    ' 定义需要跳过的列号（D=4、F=6、H=8、CZ=104）
    Dim skipColumns As Variant
    skipColumns = Array(4, 6, 8, 104)

    stepNo = 3    '入力：１つの列幅
    copyStart = 1 '入力：コピーする列の最初の列No
    copyEnd = 1    '入力：コピーする列の最後の列No
    y = 52 '入力：繰り返す数

    ' 提前复制目标列，避免循环内重复复制
    Dim copyRange As Range
    Set copyRange = Range(Columns(copyStart), Columns(copyEnd))
    
    For i = stepNo + 1 To stepNo * y Step stepNo
        ' 判断当前列是否需要跳过
        If IsError(Application.Match(i, skipColumns, 0)) Then
            copyRange.Copy
            Columns(i).Insert xlShiftToRight
        End If
    Next i

    ' 恢复系统默认设置
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
    Application.CutCopyMode = False
End Sub

2. 优化复制粘贴逻辑

如果A列包含复杂格式（条件格式、数据验证、单元格样式等），会大幅拖慢复制速度，可按需选择仅粘贴必要内容，而非全部属性：

' 将循环内的复制插入代码替换为以下内容（仅粘贴值和数字格式）
copyRange.Copy
Columns(i).Insert xlShiftToRight
Columns(i).PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False

也可根据需求选择xlPasteValues（仅值）、xlPasteFormats（仅格式）等粘贴类型。

3. 减少循环内的IO操作

原代码每次循环都重新复制A列，优化后提前将A列存入copyRange对象，循环内直接复用，减少对工作表的重复读写操作，进一步提升效率。

内容的提问来源于stack exchange，提问作者水戸孝洋