Excel更新后ListRows.Add执行缓慢问题求助

以下是针对你遇到的新建表格后首次添加行卡顿、Excel无响应的具体解决方案：

• 临时禁用Excel自动后台操作
  首次添加行时，Excel会自动触发屏幕更新、公式计算、事件响应等操作，这些会大幅拖慢速度。在代码执行前后关闭这些功能，完成后再恢复：

  ' 关闭自动功能
  Application.ScreenUpdating = False
  Application.Calculation = xlCalculationManual
  Application.EnableEvents = False
  
  Set tExDividends = ws.ListObjects.Add(xlSrcRange, ws.Range(ws.Cells(iHeaderRow, iStartCol), ws.Cells(iHeaderRow, iStartCol + iCol - 1)), False, xlYes, 0)
  tExDividends.Name = "ExDividends"
  Dim lrow As ListRow
  Set lrow = tExDividends.ListRows.Add
  
  ' 恢复自动功能
  Application.ScreenUpdating = True
  Application.Calculation = xlCalculationAutomatic
  Application.EnableEvents = True
  

• 跳过默认表格样式渲染
  新建ListObject时Excel会自动套用表格样式，首次添加行时样式同步的过程可能耗时极久。可以先设置表格为无样式，添加行后再按需应用样式：

  Set tExDividends = ws.ListObjects.Add(xlSrcRange, ws.Range(ws.Cells(iHeaderRow, iStartCol), ws.Cells(iHeaderRow, iStartCol + iCol - 1)), False, xlYes, 0)
  tExDividends.Name = "ExDividends"
  ' 先移除默认样式
  tExDividends.TableStyle = ""
  ' 执行添加行操作
  Set lrow = tExDividends.ListRows.Add
  ' 后续需要样式再重新设置
  tExDividends.TableStyle = "TableStyleMedium2" ' 替换为你需要的样式名称
  

• 清理工作簿隐性冗余内容
  即使工作表看起来简单，也可能存在隐藏的命名范围、整列冗余格式（比如不必要的条件格式、单元格格式）拖慢操作：

  • 打开「公式」选项卡 → 「名称管理器」，删除所有无用的命名范围
  • 选中空白区域（比如表格下方/右侧的整行整列），点击「开始」→「清除」→「清除格式」

• 修复或重建工作簿
  工作簿可能存在隐性损坏，导致操作异常：

  • 新建空白工作簿，复制当前工作表的内容（不包含VBA），重新编写代码测试
  • 打开原文件，点击「文件」→「信息」→「检查问题」→「检查工作簿」，修复检测到的问题

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