如何在宏中适配列宽？

Sub FitColumnWidth()
    Dim targetRange As Range
    Dim cell As Range
    Dim maxWidth As Double
    
    ' 设置目标列范围，此处为第一列的数据范围
    Set targetRange = Range("A1").CurrentRegion.Columns(1)
    
    ' 初始化最大宽度为0
    maxWidth = 0
    
    ' 遍历目标列中的每个单元格
    For Each cell In targetRange
        ' 获取单元格的文本长度，并更新最大宽度值
        maxWidth = WorksheetFunction.Max(maxWidth, Len(cell.Value))
    Next cell
    
    ' 将最大宽度值转换为列宽值，并应用于目标列
    targetRange.ColumnWidth = maxWidth / 2
    
    ' 清除对象引用
    Set targetRange = Nothing
End Sub