- 表格制作快速入门：Excel精确替换会不会？还不会的打屁屁
- excel表格制作教程：Excel中的数据类型，一次搞明白
- excel表格教程：导入网页真奇妙，上班也能看股票
- 这么多图表类型，你让我怎么选？
要解决本列的问题，可以在过程中设置Application对象的ScreenUpdating 属性为alse，将过程改写为：
Sub 将工作表另存为工作簿()
Application.ScreenUpdating = False
Dim Sht As Worksheet
For Each Sht In Worksheets
Sht.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Sht.Name & ".xlsx"
ActiveWorkbook.Close
Next Sht
Application.ScreenUpdating = True
End Sub
上一篇：excel函数教程：用VBA删除单元格 下一篇：excel入门教程：高阶图表，是这样做出来的
郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。
