：Excel如何快速将工作簿中多个工作表拆分成独立文件

在Excel一个工作簿中有多个工作表，想把里面的每个工作表拆分出来，生成单独的文件保存起来，要怎么要操作呢？如果只有几个工作表还好，一个个保存，但是有几十个甚至上百个，一个个的保存可就太费劲了。今天给你介绍用VBA的方法，秒将多个工作表变成独立文件。

操作步骤如下：
1、打开文件，按下快捷键“Alt”+“F11”，打开VBA编辑器。

2、在VBA编辑器中，点击“插入”菜单，选择“模块”。

3、在新建的模块中，添加下面的宏代码：

Sub SaveAllSheetsAsWorkbooks()

Dim i

Dim sht As Worksheet

Application.DisplayAlerts = False

For Each sht In Sheets

sht.Copy

i = ThisWorkbook.Path & "\" & sht.Name & ".xlsx"

ActiveWorkbook.SaveAs i

ActiveWorkbook.Close

Next

Application.DisplayAlerts = True

MsgBox "工作表拆分文件完成！", vbOKOnly, "提示"

End Sub

以上代码会遍历当前工作簿中的所有工作表，并逐个复制为新工作簿并进行保存。

注意：如果未开启宏，需要点击“文件”菜单，选择“选项”，进入Excel选项窗口，选择“信任中心”-“宏设置”，将“宏的安全性”选项设置为“启用所有宏”，才能执行以上代码。

4、在宏代码编辑窗口中，点击运行按钮（绿色小三角），即可执行宏代码，并依次保存所有工作表为单独的Excel文件。

以上就是今天的全部内容，操作简单快捷，你学会了吗？赶紧去动手试试吧（不试怎么知道会没会呢）。如果文章对你有帮助，身边正好也有需要的朋友，推荐你将本文分享给他。