在excel工作簿中查找最宽的列宽

我有一本excel工作簿，大约有150页。 有没有办法找到最宽的列（在本例中为C列），然后将工作簿中的每一页中的“C”列设置为该宽度？ 提前谢谢

---

查兹

是的，有办法。你试过什么？嘿，托马斯，我只是手动检查了每个标签，并检查了“C”列的每个宽度。我不知道如何自动完成，所以问题的原因是您应该始终尝试在问题中发布一些代码。你想让最宽的列自动适应它的实际宽度还是只使用它的当前列宽度？嗨，托马斯。我做了一些工作。Sub C_Merge_To_Master（）'将所有图纸合并为一个主图纸尺寸J，作为错误恢复下一张图纸（2）时的整数。选择图纸（2）。为J=3选择图纸。计数图纸（J）。激活范围（“A2”）。选择Selection.CurrentRegion.Select Selection.Offset（1，0）。调整大小（Selection.Rows.Count-1）.选择Selection.Copy Destination:=图纸（2）.范围（“A130000”）.结束（xlUp）（2）下一个结束Sub@Chaz，你通过了吗？@User3598756我最终把这些表合并在一起，完成了我需要的工作。干杯

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