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

通常情况下，使用复制命令和粘贴命令可以手动将工作簿保存为单独的Excel文件。首先，选择要保存为单独文件的整个工作表，创建一个新的工作簿，然后将其粘贴到新工作簿中，最后保存该文件。

如果您只需要将少数几个工作表拆分为单独的文件，这是一种简单易用的方法。然而，如果需要手动复制和粘贴许多工作表，这将非常耗时且繁琐。

此方法将介绍“移动或复制”功能，以将选定的工作表移动或复制到新的工作簿并保存为单独的工作簿。请按照以下步骤操作：

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

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

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

现在所有选定的工作表都被复制到了一个新的工作簿中。点击 文件 > 保存 以保存新工作簿。

如果您安装了Kutools for Excel，其分割工作簿工具可以方便快捷地将多个工作表拆分为单独的Excel文件，只需几次点击即可完成。

1安装完 Kutools for Excel后，点击 Kutools Plus > 分割工作簿 ，参见截图：

2在 分割工作簿 对话框中，执行以下操作：
(1) 默认情况下，所有工作表名称都已被勾选。如果您不想拆分其中的一些工作表，可以取消勾选它们；
(2) 勾选 保存类型 选项；
(3) 从 另存为类型 下拉列表中，选择一种您想拆分并保存的文件类型。
(4) 然后点击 分割 按钮。

注意：如果您想避免拆分隐藏或空白的工作表，可以勾选忽略隐藏工作表或忽略空白工作表复选框。

3在浏览文件夹对话框中，请指定一个目标文件夹以保存拆分后的单独文件，并点击 确定 按钮。

现在被勾选的工作表已保存为新的独立工作簿。每个新工作簿都以原始工作表名称命名。参见截图：

Kutools for Excel的分割工作簿工具可以轻松将当前工作簿拆分为单独的Excel文件（一个文件包含一个工作表）、CSV文件、TXT文件或PDF文件，满足您的需求。您可以设置跳过所有空白和隐藏的工作表。立即免费试用！

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

为要拆分的工作簿创建一个新文件夹，因为拆分后的Excel文件将与主工作簿位于同一文件夹中。

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

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

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无法正常工作。

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

将选定区域保存为单独的文件