一个Excel文件中包含了几十个工作表，每一个工作表都是分页预览的模式查看的。现在想要将它们全部设成普通模式，有批量完成的方法吗？
    image.png

    有！按下ALT+F11，将下面这段代码完整复制到VBA编辑器里，然后按F5或运行代码按钮，执行命令就可以了：

    Sub 全部切换至普通视图() Application.ScreenUpdating = False ‘关闭屏幕刷新功能 For Each s In ThisWorkbook.Sheets s.Select [b2].Select ‘选定当前工作表中的b2单元格 ActiveWindow.View = xlNormalView

    Next ‘切换至下一个工作表 Application.ScreenUpdating = True ‘开启屏幕刷新功能 End Sub

    那如果想把所有普通视图的工作表，全部切换至分页预览视图呢？按下ALT+F11后，把下面这段代码完整复制到编辑框里，然后按F5或运行打码按钮，就可以了。

    Sub 全部切换至分页预览() Application.ScreenUpdating = False ‘关闭屏幕刷新功能 For Each s In ThisWorkbook.Sheets s.Select [b2].Select ‘选定当前工作表中的b2单元格 ActiveWindow.View = xlPageBreakPreview Next ‘切换至下一个工作表 Application.ScreenUpdating = True ‘开启屏幕刷新功能 End Sub