如何快速将Excel工作簿中的多个工作表拆分成单独的工作簿？

在处理大量数据时，我们经常会在一个Excel工作簿中创建多个工作表。但有时，出于分享或进一步处理的需要，我们可能需要将这些工作表拆分成单独的工作簿。本文将介绍几种方法来实现这一需求。

方法一：使用Excel内置功能拆分工作表

步骤1：打开工作簿

首先，打开包含多个工作表的Excel工作簿。

步骤2：选择工作表

点击工作表底部的标签，按住Ctrl键选择所有需要拆分的工作表。

步骤3：复制工作表

右键点击选中的工作表标签，选择“移动或复制”选项。在弹出的对话框中，选择“(新工作簿)”作为目标位置，然后点击“确定”。

步骤4：保存新工作簿

此时，Excel会为每个选中的工作表创建一个新的工作簿。接下来，为每个新工作簿命名并保存。

方法二：使用VBA宏代码拆分工作表

步骤1：打开VBA编辑器

在Excel中按下Alt + F11打开VBA编辑器。

步骤2：插入新模块

在VBA编辑器中，右键点击“VBAProject(你的工作簿名称)”选择“插入” -> “模块”。

步骤3：编写宏代码

在新模块中复制并粘贴以下代码：

Sub SplitSheetsToWorkbooks()
    Dim ws As Worksheet
    Dim newBook As Workbook
    Application.ScreenUpdating = False
    For Each ws In ThisWorkbook.Worksheets
        ws.Copy
        Set newBook = ActiveWorkbook
        newBook.SaveAs Filename:=ThisWorkbook.Path & "\" & ws.Name & ".xlsx"
        newBook.Close False
    Next ws
    Application.ScreenUpdating = True
End Sub

步骤4：运行宏

点击工具栏的“运行”按钮或按下F5键执行宏。

步骤5：保存新工作簿

宏会为每个工作表创建并保存一个新的工作簿。

方法三：使用第三方工具拆分工作表

市面上有许多第三方工具可以帮助用户快速拆分Excel工作簿中的工作表。这些工具通常具有图形用户界面，操作简单直观。使用方法一般如下：

1. 下载并安装第三方拆分工具。
2. 打开工具并导入需要拆分的Excel工作簿。
3. 选择拆分选项，如拆分所有工作表或仅拆分选定的工作表。
4. 设置输出路径和文件格式。
5. 点击拆分按钮，等待工具完成操作。
6. 查看输出目录，确认所有工作表都已正确拆分。

总结

以上介绍了三种将Excel工作簿中的多个工作表拆分成单独工作簿的方法。使用Excel内置功能适合手动操作，而VBA宏代码适合需要批量处理的情况。第三方工具则适合不熟悉VBA编程的用户。根据您的具体需求和技能水平，选择最适合您的方法来完成工作。

AI办公助手：WPS灵犀

如果本文未能解决您的问题，或者您在办公领域有更多疑问，我们推荐您尝试 WPS灵犀 —— 一款强大的人工智能办公助手。

WPS灵犀 具备AI搜索、读文档、快速创作、生成PPT、长文写作、网页摘要、截图问答、上传文件等功能快来体验吧