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

Question

有没有办法自动调整开头表中包含数据的所有列？我正在寻找一种解决方案，它不依赖于对某个excel文件的修改，但适用于每个excel文件并在excel启动时运行。

Answer 1

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

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

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

您还可以在工作簿表上添加循环。