Excel宏执行触发Out of memory error的排查与解决求助

• 优化VBA代码，减少不必要的资源消耗
  你的代码中使用Select和Selection会额外占用内存，直接操作Range可降低资源负载：
  原代码：

  Range("A12:A13").Select
  Selection.AutoFill Destination:=Range("A5:A13")
  

  修改为：

  Range("A12:A13").AutoFill Destination:=Range("A5:A13")
  

  同时在宏的开头和结尾添加以下代码，禁用屏幕更新和事件触发，进一步减少内存占用：

  '宏开头
  Application.ScreenUpdating = False
  Application.EnableEvents = False
  
  '宏结尾
  Application.ScreenUpdating = True
  Application.EnableEvents = True
  

• 清理文档中的隐藏资源与冗余格式

  • 删除隐藏的工作表、行/列，这类元素会在后台持续占用内存；
  • 检查并删除无效的条件格式、数据验证，尤其是隐藏单元格中残留的格式规则；
  • 删除多余的命名范围，仅保留有效且必要的命名项。

• 排查公式与引用问题

  • 替换易失性函数（如OFFSET、INDIRECT、NOW），改用非易失性函数（如INDEX），这类函数不会触发全局重算，可大幅降低内存消耗；
  • 检查是否存在循环引用，循环引用会导致Excel持续重复计算，占用大量内存；
  • 清理无效的外部链接或跨表引用，确保所有引用指向有效单元格区域。

• 修复文档与重置Excel环境

  • 将文档另存为最新的.xlsm格式，避免旧格式残留的冗余数据；
  • 使用Excel的修复功能：打开Excel，点击「打开」，选中目标文件后点击打开按钮旁的箭头，选择「打开并修复」；
  • 关闭所有不必要的程序，重启Excel或电脑，清除进程中的内存泄漏问题。

• 释放未关闭的VBA对象
  检查宏中是否有未释放的对象变量，例如使用Set创建的工作表、范围对象，在使用完毕后添加Set 对象名 = Nothing释放内存：

  Dim ws As Worksheet
  Set ws = ThisWorkbook.Sheets("数据表")
  '执行相关操作
  Set ws = Nothing '释放对象内存
  

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