EXCEL_光标百分比
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作为工具比较好。不要再客户的文档中添加宏代码。
使用的时候就打开他放在一边就好了。