AutoFit功能异常：按表头宽度适配，需按数据行最长内容适配

你当前的Worksheets("Sheet1").Cells.EntireColumn.AutoFit会计算列内所有单元格的显示宽度，包括表头行。如果表头的显示宽度（比如带换行、特殊格式）大于数据行，就会出现仅适配表头的情况。以下两种方法可解决：

方法1：临时隐藏表头行 #

隐藏表头后，AutoFit会仅基于数据行计算宽度，之后恢复表头显示：

With Worksheets("Sheet1")
    .Rows(1).Hidden = True
    .Cells.EntireColumn.AutoFit
    .Rows(1).Hidden = False
End With

方法2：指定数据区域适配 #

直接针对第2行到最后一行的有效数据区域执行AutoFit，无需隐藏行：

Dim ws As Worksheet
Set ws = Worksheets("Sheet1")

' 定位第2行至最后一行的有效数据范围
Dim dataRange As Range
Set dataRange = ws.Range(ws.Rows(2), ws.Rows(ws.Cells(ws.Rows.Count, "A").End(xlUp).Row))

' 适配对应列宽
dataRange.EntireColumn.AutoFit

两种方法都会让列宽自动适配列内最长文本的宽度，无论最长文本位于哪一行数据行。

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