2021-10-22 技巧1_自动移动每页光标到A1单元格

Public Sub InitCells()  
    Dim iSheet As Long    
    For iSheet = Sheets.Count To 1 Step -1    
        Sheets(iSheet).Activate
        'ActiveWindow.Zoom = 100
        ActiveWindow.ScrollRow = 1
        ActiveWindow.ScrollColumn = 1
        Sheets(iSheet).Range("A1").Activate  
    Next iSheet
End Sub

个人宏工作簿
C:\Users\user\AppData\Roaming\Microsoft\Excel\XLSTART

宏运行
Alt + F8