如何在所有工作表中使用Cells.EntireColumn.AutoFit方法？

要批量对工作簿内所有工作表执行列宽自动调整，可通过VBA代码遍历每个工作表，调用Cells.EntireColumn.AutoFit实现。

优化后的VBA代码 #

Sub AutoFitAllSheetsColumns()
    Dim ws As Worksheet
    
    ' 遍历当前工作簿中的每一个工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 直接对目标工作表执行列宽自动调整，无需激活工作表
        ws.Cells.EntireColumn.AutoFit
    Next ws
End Sub

代码说明 #

• Dim ws As Worksheet：声明工作表对象变量，用于存储遍历过程中的单个工作表
• For Each ws In ThisWorkbook.Worksheets：循环覆盖当前工作簿内的所有工作表
• ws.Cells.EntireColumn.AutoFit：对当前遍历到的工作表所有列执行自动调宽操作，避免激活工作表的冗余步骤，提升执行效率

内容的提问来源于stack exchange，提问作者Bruno Ishikawa Silva