这不会给予你一个神奇的答案，但它可能会使它快速得到一个答案，没有任何VBA。
1)在文档顶部插入一个空行
2)在单元格A1中，输入以下公式：

=CELL("width", A1)

3)通过拖动A1的细长黑色十字准线（鼠标悬停在单元格右下角时，十字准线会出现），将公式应用于所有其他列。
您将得到的是每列宽度的四舍五入像素值。然后，只需选择第一行中的所有要添加的列的单元格，并查看Excel窗口的底部。在进行选择时，您应该会看到值的总和。例如，如果要对列A、B和D的宽度求和，请选择“A1”，按住Ctrl键并单击“B1”，然后按住Ctrl键并单击“D1”。在右下角，你会看到它们的宽度总和。
希望这能帮上忙。

你可以通过给一个单元格一个定义好的名字来按点数选取列宽。参考下文，以单元格A1为例：
1.将单元格A1设置为已定义的名称，例如ColumnWidth
1.在RefersTo中，输入=get。细胞（16，A1）
1.在单元格A1或任何其他单元格中，使其等于定义的名称ColumnWidth，即。=列宽
1.将公式拖过列，列宽将显示在每个相应的列上
注意：请确保在步骤2中不锁定单元格名称。
希望这能帮上忙。

选择整个列并右键单击，您可以看到一个名为Column width的选项。

单击Column width，您可以在新窗口中看到列的宽度。

Sub ColumnAuto4()

     '    Paul Pfau -- 8.02

     Dim Column_ As Integer
     Dim ColumnMin_ As Integer
     Dim Loop_ As Integer

     Cells.EntireColumn.AutoFit
     Column_ = 1

          For Loop_ = 1 To 20

          Cells(1, Column_).Select
          ActiveCell = "=CELL(""width"")"
          ColumnMin_ = ActiveCell.Value

               If ColumnMin_ < 4 Then
               ActiveCell.ColumnWidth = 4
               End If

          Column_ = Column_ + 1

          Next Loop_

End Sub