文章浏览阅读1.3k次。'http://club.excelhome.net/thread-1452376-1-1.htmlAttribute VB_Name = "NewMacros"Option ExplicitSub AutoOpen() On Error Resume Next Dim y$, x$, s As Section, i&, j& With Active..._activewindow.activepane.view.zoom.pagefit...