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

Question

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

Answer 1

您可以使用将接收应用程序事件的对象模块(请参阅Chip Pearson网站上的更多信息).

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

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