咨询优化多工作表删除单元格并自动调整列宽至默认大小的VBA代码

你的原代码能实现核心功能，但存在重复冗余、依赖Select/Selection操作的问题——这类操作不仅运行效率低，还容易因手动切换工作表导致出错，而且没完成「自动调整所有列至默认大小」的需求。下面是优化后的代码：

Sub HM01_ClearData_Enhanced()
    Dim ws As Worksheet
    Dim targetSheets As Variant
    
    ' 定义需要处理的工作表名称数组
    targetSheets = Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5", "Sheet6")
    
    ' 关闭屏幕更新，提升运行速度并避免闪烁
    Application.ScreenUpdating = False
    
    On Error GoTo Cleanup ' 错误处理，确保异常时能恢复设置
    
    ' 循环处理每个目标工作表
    For Each ws In ThisWorkbook.Worksheets(targetSheets)
        ' 直接操作工作表对象，避免Select/Selection
        ws.Cells.Delete Shift:=xlUp
        ' 自动调整所有列至合适宽度（默认自适应内容）
        ws.Columns.AutoFit
    Next ws
    
Cleanup:
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
    ' 如果有错误，提示用户
    If Err.Number <> 0 Then
        MsgBox "处理过程中出现错误：" & Err.Description, vbExclamation
    End If
End Sub

优化点说明： #

• 消除重复代码：用数组+循环替代重复的工作表选择操作，后续要增减工作表只需修改数组即可，维护更方便
• 避免低效选择操作：直接通过工作表对象ws操作单元格，比Select+Selection的方式运行速度更快，稳定性更高
• 补充列宽调整功能：添加ws.Columns.AutoFit实现自动调整列宽的需求
• 提升运行体验：关闭ScreenUpdating避免操作过程中屏幕闪烁，同时加入错误处理，防止意外中断导致设置无法恢复

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