方法
打开表格，如下一个工作簿中有多个工作表
点击进入工作表
右击任意一个工作表标签，在弹出的下拉列表中选择【查看代码】
之后进入弹出的空白区域
空白处，复制黏贴如下信息：
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
点击运行-运行子过程/用户窗体。
完成后，保存
到此就成功拆分成多个了。
声明：本文由用户 东莞老黄 上传分享，本网页内容旨在传播知识，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
