复制6个简单单元格耗时12秒，如何加速Excel VBA代码？

一、代码优化：绕过剪贴板彻底提速 #

你当前的代码反复调用Copy/PasteSpecial，严重依赖系统剪贴板，这是导致执行变慢的核心原因之一。直接单元格赋值的方式完全避开剪贴板，速度会提升几个量级，同时避免剪贴板冲突：

Sub RunTime_Seconds()
    Dim StartTime As Double
    Dim SecondsElapsed As Double
    Dim lzCalc As XlCalculation ' 明确变量类型，减少隐性开销
    StartTime = Timer

    lzCalc = Application.Calculation

    With Application
        .Calculation = xlCalculationManual
        .ScreenUpdating = False
        .DisplayAlerts = False
        .EnableEvents = False ' 新增：禁用事件触发，进一步降低执行耗时
    End With

    ' 直接批量赋值，替代多次复制粘贴
    With ActiveSheet
        .Range("B1:B6").Value = .Range("A1:A6").Value
    End With

    With Application
        .Calculation = lzCalc
        .ScreenUpdating = True
        .DisplayAlerts = True
        .EnableEvents = True ' 恢复事件触发
    End With

    SecondsElapsed = Round(Timer - StartTime, 2)
    MsgBox "This code ran successfully in " & SecondsElapsed & " seconds", vbInformation
End Sub

二、环境排查：解决剪贴板占用与内存异常 #

结合你提到的错误提示，系统层面的剪贴板占用或Office环境异常是主要诱因，按以下步骤排查：

• 关闭剪贴板占用软件：后台运行的截图工具（如Snipaste、微信截图）、即时通讯软件（微信、QQ）、剪贴板管理工具（如ClipboardFusion）、PDF阅读器等，都是常见的剪贴板占用源，全部关闭后测试宏执行速度。
• 修复Office安装：打开控制面板→程序和功能→找到Microsoft Office→右键选择「更改」→先尝试「快速修复」，无效则选择「联机修复」，完成后重启电脑。
• 禁用非必要加载项：打开Excel→文件→选项→加载项→点击「转到」（COM加载项），禁用所有第三方插件、PDF转换类插件等非必需加载项，重启Excel后测试。
• 释放系统内存：关闭后台闲置程序，若长期未重启电脑，直接重启后再运行宏，排除内存碎片化问题。
• 更新Office版本：打开Excel→文件→账户→更新选项→立即更新，修复官方已知的剪贴板相关BUG。

三、额外建议 #

• 避免使用ActiveSheet，尽量指定具体工作表（如ThisWorkbook.Worksheets("数据 sheet")），减少上下文切换的隐性开销。
• 若必须使用剪贴板操作，每次复制后添加Application.CutCopyMode = False主动释放剪贴板占用。

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