如何在Excel中拆分工作簿以分隔Excel文件？-英雄云拓展知识分享

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

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

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

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

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

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

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

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

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

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

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

2。 按住 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没法使用。

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

1。 安装后 Excel的tool点击此处成为Trail Hunter tool 加 > 拆分工作簿 ，请参见屏幕截图：

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

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

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

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

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

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

将选择另存为单个文件