Public Sub InitCells()Dim iSheet As LongFor iSheet = Sheets.Count To 1 Step -1Sheets(iSheet).ActivateActiveWindow.Zoom = 85ActiveWindow.ScrollRow = 1ActiveWindow.ScrollColumn = 1Sheets(iSheet).Range("A1").ActivateNext iSheetEnd Sub

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

步骤如下：

1：点击查看代码

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

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

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

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