Excel问伊答之5：如何快速把工作簿里的若干个工作表分别保存为独立的工作簿?

1，Alt+F11 进入VBE
2，菜单：插入-模块。
3，复制下面的代码到光标处

Sub 另存所有工作表为独立工作簿()

Dim sht As Worksheet

Application.ScreenUpdating = False         '禁用屏幕刷新

mypath = ThisWorkbook.Path & '\'            '默认保存在当前文件夹
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs mypath & sht.Name & '.xls', FileFormat:=xlExcel8
ActiveWorkbook.Close

Next
Application.ScreenUpdating = True          '恢复屏幕刷新

End Sub

4，关闭VBE窗口

5，Alt+F8 选择宏“另存所有工作表为独立工作簿”,点击运行