VBA 宏：生成汇总大表（或任意工作簿）全工作表列宽自适应
|
日期：2026-09-08
|
说明：打开要处理的 xlsx → Alt+F11 → 菜单“插入→模块” → 粘贴以下代码 → 关闭编辑器 → Alt+F8 运行 AutoFitAllSheets。
|
也可将本文件另存为 .bas，在 VBA 编辑器里“文件→导入文件”。
|
|
--------------------------------------------------------------------------------
|
Option Explicit
|
|
' 主宏：对全部工作表做整列列宽自适应（公式先整体重算，以显示值宽度为准）
|
Public Sub AutoFitAllSheets()
|
Application.ScreenUpdating = False
|
Application.Calculation = xlCalculationAutomatic
|
Application.CalculateFullRebuild
|
Dim ws As Worksheet
|
For Each ws In ThisWorkbook.Worksheets
|
ws.Activate
|
On Error Resume Next
|
' 自动适应整列宽度（隐藏行/列不影响；合并单元格内的文字不会被 Excel 自动计入）
|
ws.Cells.EntireColumn.AutoFit
|
On Error GoTo 0
|
Next ws
|
Application.ScreenUpdating = True
|
MsgBox "全部工作表列宽自适应完成。", vbInformation, "完成"
|
End Sub
|
|
' 备用宏：只对“当前选中的工作表”执行自适应
|
Public Sub AutoFitActiveSheet()
|
Application.ScreenUpdating = False
|
Application.CalculateFullRebuild
|
ActiveSheet.Cells.EntireColumn.AutoFit
|
Application.ScreenUpdating = True
|
MsgBox "当前表列宽自适应完成。", vbInformation, "完成"
|
End Sub
|
--------------------------------------------------------------------------------
|
|
注意：
|
1) 运行前先全选看一遍是否有“###”溢出列；若个别列因合并标题仍偏窄，可手动拖一下该列。
|
2) 本宏只改列宽，不改任何数据、公式、底色与边框。
|
3) 建议生成后立刻运行一次，再另存为正式交付文件。
|
