Excel VBA复制含大量图表的工作表失败，求可行解决方案

针对你遇到的主工作表（含100个图片化图表、7016行数据）复制崩溃问题，可尝试以下几种高效方案：

1. 分离数据与图片复制，分步骤处理 #

先快速复制核心数据，再单独批量处理图片，避免整表复制的资源过载：

' 先复制数据（已验证快速可行）
masterWorkbook.Sheets("Industry").Range("A1:M7016").Copy
industrySheet.Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
industrySheet.Range("A1").PasteSpecial xlPasteFormats

' 批量复制图片到对应位置
Dim shp As Shape
Dim count As Integer
count = 0
For Each shp In masterWorkbook.Sheets("Industry").Shapes
    shp.Copy
    ' 粘贴到原位置对应的单元格
    industrySheet.Range(shp.TopLeftCell.Address).PasteSpecial
    count = count + 1
    ' 每复制20个图片释放一次系统资源
    If count Mod 20 = 0 Then
        DoEvents
    End If
Next shp

2. 关闭Excel实时刷新与事件，减少资源消耗 #

在复制操作前后禁用屏幕刷新和事件触发，避免Excel重复渲染界面：

' 关闭刷新和事件
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual ' 若有公式可暂时禁用计算

' 执行你的复制/处理代码
' ...（比如上面的分离复制代码）

' 恢复设置
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic

3. 避免整行复制，只复制有效区域 #

整行复制会包含大量空单元格的格式信息，占用额外资源。仅复制包含数据和格式的精确范围，再单独处理图片，就是上面方案1的核心思路，比整行复制效率提升明显。

4. 优化Excel运行环境 #

• 关闭当前无关的Excel文件、浏览器及其他占用内存的程序，释放系统资源
• 打开Excel选项，进入「高级>显示」，勾选「禁用硬件图形加速」，减少界面渲染压力
• 确保你的Excel是最新版本，修复旧版本可能存在的大文件复制bug

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