Excel VBA：仅对可见行自动调整W列宽度并设上限50

EntireColumn.AutoFit会直接基于整列所有单元格（包括隐藏行）计算宽度，这就是你当前代码失效的核心原因。以下是两种可行的解决方案，仅针对可见行计算列宽，并满足最大宽度不超过50的需求：

方法1：使用临时工作表计算（高效可靠） #

通过将可见行内容复制到临时工作表，对临时列执行AutoFit后获取宽度，再应用回原W列，适合大量可见行的场景：

Sub AdjustWColumnWidth_ForVisibleRows()
    Dim visibleRange As Range
    Dim tempSheet As Worksheet
    Dim targetWidth As Double
    
    ' 获取W列指定范围内的可见单元格（可根据实际需求调整范围）
    On Error Resume Next ' 处理无可见单元格的异常
    Set visibleRange = Range("W4:W1400").SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    If visibleRange Is Nothing Then
        ' 无可见行时设置默认列宽，可自行修改数值
        Range("W:W").ColumnWidth = 10
        Exit Sub
    End If
    
    ' 创建临时工作表
    Set tempSheet = ThisWorkbook.Sheets.Add
    ' 复制可见单元格的内容与格式到临时表A列
    visibleRange.Copy Destination:=tempSheet.Range("A1")
    ' 对临时列执行AutoFit
    tempSheet.Columns("A").AutoFit
    ' 获取临时列的宽度值
    targetWidth = tempSheet.Columns("A").ColumnWidth
    
    ' 删除临时工作表，关闭删除提示
    Application.DisplayAlerts = False
    tempSheet.Delete
    Application.DisplayAlerts = True
    
    ' 设置W列宽度，最大不超过50
    Range("W:W").ColumnWidth = WorksheetFunction.Min(targetWidth, 50)
End Sub

方法2：遍历可见单元格计算宽度（无需额外工作表） #

直接遍历每个可见单元格，计算其所需宽度并取最大值，适合可见行较少的场景：

Sub CalculateWColumnWidth_Manually()
    Dim visibleRange As Range
    Dim cell As Range
    Dim maxWidth As Double
    Dim tempCell As Range
    
    ' 获取W列可见单元格范围
    On Error Resume Next
    Set visibleRange = Range("W4:W1400").SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    If visibleRange Is Nothing Then
        Range("W:W").ColumnWidth = 10
        Exit Sub
    End If
    
    maxWidth = 0
    ' 用右侧空白列的单元格临时计算宽度（这里用第101列，可根据实际调整）
    Set tempCell = Cells(1, 101)
    tempCell.EntireColumn.ColumnWidth = 0 ' 初始化临时列宽度
    
    For Each cell In visibleRange
        ' 复制当前单元格的内容与格式到临时单元格
        tempCell.Value = cell.Value
        tempCell.Font = cell.Font
        ' 对临时列AutoFit
        tempCell.EntireColumn.AutoFit
        ' 记录当前单元格所需宽度
        If tempCell.EntireColumn.ColumnWidth > maxWidth Then
            maxWidth = tempCell.EntireColumn.ColumnWidth
        End If
        ' 清空临时单元格
        tempCell.ClearContents
    Next cell
    
    ' 恢复临时列宽度
    tempCell.EntireColumn.ColumnWidth = 0
    ' 设置W列宽度，最大限制为50
    Range("W:W").ColumnWidth = WorksheetFunction.Min(maxWidth, 50)
End Sub

原代码问题说明 #

• 第一种代码：Range("W4:W1400").SpecialCells(xlCellTypeVisible).EntireColumn.AutoFit 中，.EntireColumn指向整个W列，AutoFit操作仍会基于整列所有单元格（包括隐藏行）计算宽度，无法实现仅考虑可见行的需求。
• 第二种代码：仅遍历了W2:W2单个单元格，且同样调用了EntireColumn.AutoFit，既无法覆盖所有可见行，也解决不了隐藏行影响计算的问题。

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