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

如果只需要将几个工作表拆分为单独的文件，则这是一种易于使用的方法。 但是，通过手动复制和粘贴来拆分许多工作表必须非常耗时且乏味。

此方法将引入“移动或复制”功能，以将选定的图纸移动或复制到新工作簿并另存为单独的工作簿。 请执行以下操作：

1。 在“工作表”选项卡栏中选择工作表，右键单击并选择 移动或复制 从上下文菜单中。 看截图：

备注：控股 按Ctrl 键，您可以选择多个不相邻的工作表，方法是在“工作表”标签栏中逐一单击它们； 保持 转移 键，您可以通过单击“工作表”选项卡栏中的第一个和最后一个来选择多个相邻的工作表。

2。 在“移动或复制”对话框中，选择 （新书） 来自 预订 下拉列表中，检查 建立副本 选项，然后单击 OK 按钮。 看截图：

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

快速拆分工作簿以在Excel中分离Excel / PDF / TXT / CSV文件

通常，我们可以使用 移动或复制 Excel 中的功能。但是 Kutools for Excel 的 拆分工作簿 实用程序可以帮助您轻松拆分工作簿并将每个工作表另存为单独的PDF / TEXT / CSV文件或Excel中的工作簿。

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

1。 为要拆分的工作簿创建一个新文件夹，因为拆分的Excel文件将与该主工作簿保留在同一文件夹中。

2。 按住 ALT + F11 键，然后打开 Microsoft Visual Basic应用程序 窗口。

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

如果你有 Kutools for Excel 安装，其 拆分工作簿 该工具只需单击几下，即可方便快捷地将多个工作表拆分为单独的Excel文件。

1。 安装后 Kutools for Excel，单击“ Kutools 加 > 拆分工作簿 ，请参见屏幕截图：

2。 在 拆分工作簿 对话框中，进行以下操作：
（1）默认情况下检查所有工作表名称。 如果您不想拆分某些工作表，则可以取消选中它们；
（2）检查 保存类型 选项;
（3）从 保存类型 下拉菜单中，选择一种您想要拆分和保存的文件类型。
（4）然后点击 分裂 按钮。

备注：如果要避免拆分隐藏的工作表或空白工作表，可以检查 跳过隐藏的工作表 or 跳过空白工作表 框。

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

现在，选中的工作表将另存为新的单独的工作簿。 每个新工作簿均以原始工作表名称命名。 看截图：

Kutools for Excel's 拆分工作簿 该工具使您可以轻松地根据需要将活动工作簿拆分为单独的Excel文件（一个文件包含一个工作表），CSV文件，TXT文件或PDF文件。 您可以设置为跳过所有空白和隐藏的工作表。 免费试用！

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

将选择另存为单个文件