如何通过宏自动执行Review>Check Performance优化慢工作簿性能？

录制宏生成的Application.CommandBars("Workbook Performance").Visible = False仅用于控制命令栏的显示状态，并非触发性能检查的核心逻辑，因此无法满足你的需求。

你可以通过调用Excel对象模型中Workbook的CheckPerformance方法，直接触发Review选项卡下的「检查工作簿性能」功能，实现自动化执行：

基础代码（针对当前活动工作簿） #

Sub AutoRunPerformanceCheck()
    ' 启动当前活动工作簿的性能检查
    ActiveWorkbook.CheckPerformance
End Sub

指定工作簿的代码 #

如果需要对特定工作簿执行检查，可替换为目标工作簿对象：

Sub CheckTargetWorkbookPerformance()
    Dim targetWorkbook As Workbook
    ' 这里指定为代码所在的工作簿，可根据需求修改为其他工作簿引用
    Set targetWorkbook = ThisWorkbook
    
    ' 启动性能检查
    targetWorkbook.CheckPerformance
End Sub

执行上述代码后，会弹出与手动点击Review>Check Performance完全一致的性能检查界面，自动扫描并列出工作簿中的性能瓶颈（如冗余样式、空单元格格式、无效名称等），方便你针对性优化。

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