VBA选择工作表中的所有列并自动调整Excel 2010中的所有列宽度

Posted 2021-04-03

我有一个超过1000列的工作表。如何选择该工作表中的所有列并自动调整每个列宽。我试过了

Sheets(1).Select
Selection.EntireColumn.AutoFit

但它没有用。有任何想法吗？

答案

试试这个...

Sheets(1).UsedRange.Columns.AutoFit

另一答案

您可以使用

Cells.Columns.Autofit

或者，如果您不在ActiveSheet上

Sheets(name_or_number).Columns.Autofit

另一答案

Option Explicit
Sub Auto_Fit()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
sh.Columns.AutoFit
Next sh
End Sub