1、打开表格，可以看到一个工作簿中有多个工作表。

1.jpg

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

2.jpg

3、显示如下页面。

3.jpg

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

4.jpg

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

5.jpg

6、完成后，保存，显示如下，工作表已经拆分成单独的文件了。

6.jpg

*保存后的独立文件在源文件同目录下！