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

End Sub

对日项目中的文档满天飞，有一个批处理工具还是很有必要的

步骤如下：

1：点击查看代码

2：粘贴进去点击保存（弹框不用管）

3：按alt+f8 然后选中再执行。

注：以上的操作，请新建一个空的excel作为工具比较好。不要再客户的文档中添加宏代码。

使用的时候就打开他放在一边就好了。