在VBA中根据行的最大值扩展列宽

Sub ExpandColumnWidth()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim lastCol As Long
    Dim i As Long
    
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    For i = 1 To lastCol
        ws.Columns(i).AutoFit
        ws.Columns(i).ColumnWidth = ws.Columns(i).ColumnWidth + 5 '可以根据需要调整扩展的宽度
    Next i
End Sub