找到在Excel工作簿

Question

最寬的列寬我有一個Excel工作簿〜150張。 有沒有辦法找到最寬的列（在本例中爲C列），然後在每個工作表中將列「C」設置爲這個寬度？ 由於事先 查茲

Answer 1

Sub Main 
    Dim cell As Range 
    Dim maxWidth As Long 
    Dim sht As Worksheet 

    For Each sht in Worksheets 
     For Each cell In sht.UsedRange.Rows(1) 
      If cell.Width > maxWidth Then maxWidth = cell.Width 
     Next cell 
    Next sht 

    For Each sht in Worksheets 
     sht.Columns("C").ColumnWidth = maxWidth 
    Next sht 
End Sub