如何在 Excel 中将工作簿拆分为多个独立的 Excel 文件？

通常，使用复制和粘贴命令，即可手动将工作表另存为单独的 Excel 文件：先选中要另存为独立文件的整个工作表，创建新工作簿，将其粘贴其中，最后保存即可。

如果您只需将少量工作表拆分为单独文件，这是一种简单高效的方法；但若需手动通过复制粘贴来拆分大量工作表，则会既耗时又繁琐。

本方法将为您介绍如何使用“移动或复制”功能，将所选工作表移动或复制到新工作簿，并另存为独立的工作簿。请按以下步骤操作：

1. 在工作表标签栏中右键单击目标工作表，然后从上下文菜单中选择移动或复制。参见截图：

注意：按住 Ctrl 键，可在工作表标签栏中逐个单击以选择多个不相邻的工作表；按住 Shift 键，可单击第一个和最后一个工作表以选择多个相邻的工作表。

2. 在“移动或复制”对话框中，从工作簿下拉列表中选择（新工作簿），勾选建立副本选项，然后单击确定按钮。参见截图：

3. 所有选中的工作表现已复制到一个新工作簿中。单击文件> 另存为，立即保存该新工作簿！

如果您已安装 Kutools for Excel，即可使用其分割工作簿工具，只需几次单击，便能快速将多个工作表拆分为单独的 Excel 文件。

1. 安装完 Kutools for Excel 后，单击 KUTOOLS PLUS 选项卡中的分割工作簿按钮，参见截图：

2. 在分割工作簿对话框中，执行以下操作：
（1）默认情况下所有工作表均已勾选。如需排除某些工作表不拆分，请取消勾选；
（2）勾选保存类型选项；
（3）从指定保存格式下拉列表中选择您希望拆分后保存的文件类型；
（4）然后单击拆分按钮。

注意：如需跳过隐藏工作表或空白工作表，请勾选忽略隐藏工作表或“忽略空工作表”复选框。

3. 在“浏览文件夹”对话框中，指定用于保存拆分后单独文件的目标文件夹，然后单击确定按钮。

现在，所有已勾选的工作表均已保存为独立的新工作簿，每个新工作簿均以对应原始工作表的名称命名。参见截图：

Kutools for Excel 的分割工作簿工具可轻松将当前工作簿拆分为单独的 Excel 文件（每个文件包含一个工作表）、CSV 文件、文本文档或 PDF 文件（按需选择），还能设置跳过所有空白和隐藏的工作表。立即免费试用！

以下 VBA 代码可帮助您快速将当前工作簿的多个工作表拆分为单独的 Excel 文件，请按以下步骤操作：

1. 为待拆分的工作簿新建一个文件夹，因为拆分后的 Excel 文件将保存在与主工作簿相同的目录中。

2. 在 Excel 中按住 ALT + F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。

3. 单击插入> 模块，并将以下代码粘贴到模块窗口中。

VBA：将工作簿拆分为多个工作簿并保存在同一文件夹中

Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
    xWs.Copy
    Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
    Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

4. 按下 F5 键运行此代码，工作簿将自动拆分为多个独立的 Excel 文件，并保存在与原始工作簿相同的文件夹中。参见截图：

注意：若工作表名称与工作簿名称相同，此 VBA 代码将无法运行。

将多个工作簿合并为单个工作簿

将所选内容保存为单独文件