Excel：如何在启动时自动调整列？

有没有一种方法来自动填充包含数据的开始工作表中的所有列？ 我正在寻找一个解决scheme，不依赖于某个excel文件的修改，但它适用于每个excel文件，并在excel启动时运行。

Answer 1

您可以使用将收到应用程序事件的对象模块（请参阅Chip Pearson网站上的更多信息）。

这是您必须复制的代码 – 粘贴到文件PERSONAL.XLSB的模块ThisWorkbook ：

 Option Explicit Private WithEvents App As Application Private Sub Workbook_Open() Set App = Application End Sub Private Sub App_WorkbookOpen(ByVal Wb As Workbook) 'Statement to show that it works MsgBox "Opened Workbook: " & Wb.Name 'Statement to autofit columns ActiveSheet.UsedRange.Columns.AutoFit End Sub 

您也可以在工作簿工作表上添加一个循环。