遍历数组批量处理Excel工作表：自动调整行列大小求助

原代码存在的问题 #

• 若数组中列出的工作表未导入（不存在），Sheets(AllReportsArray)会直接触发下标越界错误，导致程序中断
• 使用Activate和Select属于冗余操作，既拖慢执行效率，也无必要——调整行列大小无需选中单元格

优化后的可用代码 #

Sub Cleanup()
    Dim AllReportsArray As Variant
    Dim reportName As String
    Dim ws As Worksheet
    
    AllReportsArray = Array("SiteDepartmentReport", "SiteCAGroupsReport", _
    "SiteInstantAlertFieldsGroupsReport", "SiteConfigurationParametersReport", "SiteEventSpecsReport", _
    "SiteGatewaysReport", "SiteCustomPropertiesReport", "SiteHealthcareZonesReport", "SiteCategoriesReport", _
    "SiteStructureReport", "SiteCustomizedValuesReport", "SiteInstantAlertFieldsReport", _
    "SiteBusinessStatusReport", "SiteUsersReport", "SiteRolesReport", "SiteExcitersReport", "SiteZonesReport", _
    "SitePatientListViewsReport")
    
    ' 遍历数组内的所有报表名称
    For Each reportName In AllReportsArray
        ' 检查当前工作簿中是否存在该工作表
        On Error Resume Next
        Set ws = ThisWorkbook.Sheets(reportName)
        On Error GoTo 0
        
        ' 若工作表存在，执行自动调整操作
        If Not ws Is Nothing Then
            ws.EntireRow.AutoFit
            ws.EntireColumn.AutoFit
            Set ws = Nothing ' 释放对象变量
        End If
    Next reportName
End Sub

优化细节说明 #

• 新增存在性校验：通过错误捕获机制跳过不存在的工作表，避免程序报错
• 移除冗余操作：直接通过工作表对象调用调整方法，无需激活或选中单元格，提升执行效率
• 明确操作范围：用ThisWorkbook限定操作当前代码所在的工作簿，防止误操作其他打开的Excel文件

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