打开excel表，ALT+F11-->打开VBA编辑器-->插入-->模块
点击菜单插入-模块 在弹出的模块对话框中 输入以下代码：
Private Sub 分拆工作表()
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook
For Each sht In MyBook.Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式
ActiveWorkbook.Close
Next
MsgBox "文件已经被分拆完毕!"
End Sub
单击运行-运行子过程|窗体 几秒过后 弹出提示窗口“文件已被拆分完毕”
返回Excel工作簿文件所在路径 查看 原先工作簿中的工作表已经成为单独的工作簿了！不信 可以对照查看图中的修改日期
本文来源：https://www.wddqw.com/doc/4d5ea67cad45b307e87101f69e3143323968f5c5.html
正在阅读：
怎样将一个excel表格的多个sheet拆分成多个excel表01-01
小学生家长简短优秀评语25则01-01
合伙经营入股协议书01-01
创新的名言警句01-01
臭名昭著的害虫,居然有这么多诗文吟咏01-01
201727 斑羚飞渡4 .doc01-01
高中关于梦想的作文800字三篇01-01
暑假里最快乐的一天_小学作文01-01
作业16 计算机中信息的表示01-01