VBA来select工作表中的所有列,并自动调整Excel 2010中的所有列宽

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

Sheets(1).Select Selection.EntireColumn.AutoFit 

但它没有工作。 有任何想法吗?

尝试这个…

 Sheets(1).UsedRange.Columns.AutoFit 

Cells.Columns.Autofit

或者,如果你不在活动页面上

表(name_or_number).Columns.Autofit