在运行Autofit之前,在代码中添加以下两行:
Application.ScreenUpdating = True
Application.EnableEvents = True
这将启用屏幕更新和事件处理,让Autofit能够正常运行。完整的代码示例如下:
Sub mySub()
Application.ScreenUpdating = True
Application.EnableEvents = True
Worksheets("Sheet1").Range("A1:B10").AutoFit
End Sub