☰

限制 Excel 列的最大数量

tag-icon • tag-icon microsoft-excel worksheet-function
限制 Excel 列的最大数量

在我导入一个 csv 文件并双击以使列宽足够大以便按上下文显示每列的数据后，许多列都太宽了。

我可以在 xlsx 文件中运行一个例程吗？该例程说“对于每一列，如果其宽度大于 60，则将其大小调整为 60”？

更好的方法是使用一步到位的例程，“将列宽设置为其数据宽度，但不超过 60”

理想情况下，可以保存它，以便我可以在任何电子表格中运行它 - 并且使用60我上面提到的变量作为默认值 60 输入。

谢谢

答案1

这需要 VBA 代码。

从如何自动调整列宽至最大尺寸？

  1. 按 Alt+F11
  2. 点击插入>模块

（措辞比原文更好：）
3.复制此代码，然后将其粘贴到应该打开的新窗口中：

   Sub mAutoWidth()
   Dim mCell As Range
   Application.ScreenUpdating = False
 
   For Each mCell In ActiveSheet.UsedRange.Rows(1).Cells
     mCell.EntireColumn.AutoFit
     If mCell.EntireColumn.ColumnWidth > 50 Then _
     mCell.EntireColumn.ColumnWidth = 50
   Next mCell
 
   Application.ScreenUpdating = True
   End Sub
  1. 使用 Alt+F4 关闭 VBA 编辑器
  2. 返回 Excel，使用 Alt + F8 查看可用宏的列表
  3. 选择mAutoWidth并单击运行

替换上述代码中50的。60

相关内容