如何使用VBA在单元格宽度内容纳大量标题？

Sub AdjustColumnWidth()
    Dim cell As Range
    Dim maxTextWidth As Double
    Dim adjustedWidth As Double
    
    '选择需要调整宽度的单元格范围
    Set cellRange = Range("A1:A10") '将A1:A10替换为你的实际单元格范围
    
    '找到最宽的文本
    maxTextWidth = 0
    For Each cell In cellRange
        If cell.ColumnWidth <> 0 Then '确保单元格不是隐藏的
            cell.WrapText = True '将文本换行
            cell.EntireRow.AutoFit '自动调整行高以适应换行后的文本
            If cell.Width > maxTextWidth Then
                maxTextWidth = cell.Width
            End If
        End If
    Next cell
    
    '调整列宽以容纳最宽的文本
    For Each cell In cellRange
        If cell.ColumnWidth <> 0 Then '确保单元格不是隐藏的
            adjustedWidth = maxTextWidth + 2 '增加2个单位的宽度，以避免文本被截断
            If adjustedWidth > cell.ColumnWidth Then
                cell.ColumnWidth = adjustedWidth
            End If
        End If
    Next cell
End Sub