怎样快速地把一个EXCEL表格里的多个工作表分开成单个的文件

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

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

3、显示如下页面。

4、空白处，复制黏贴如下代码：

PrivateSub分拆工作表()

DimshtAsWorksheet

DimMyBookAsWorkbook

SetMyBook=ActiveWorkbook

ForEachshtInMyBook.Sheets

sht.Copy

ActiveWorkbook.SaveAsFilename:=MyBook.Path&"\"&sht.Name,FileFormat:=xlNormal'将工作簿另存为EXCEL默认格式

ActiveWorkbook.Close

Next

MsgBox"文件已经被分拆完毕!"

EndSub

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

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