excel一个工作簿中多个工作表拆分成多个工作簿

1、打开表格，如下一个工作簿中有多个工作表。

2、右击工作表名称，点击查看代码(V)。

3、显示如下页面。

4、空白处，复制黏贴如下信息：

　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

5、点击运行-运行子过程/用户窗体。

6、完成后，保存，显示如下。