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

Question

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

Answer 1

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

这是您必须复制粘贴到文件 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

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