在Excel中，将一个包含多个工作表的工作簿拆分成多个独立的工作簿是一项常见的任务，尤其在需要将数据分发给不同的用户或部门时。以下是详细步骤和方法，帮助您高效地完成这一任务。

方法一：手动拆分工作簿

1. 打开原始工作簿： 首先，打开包含多个工作表的原始Excel工作簿。

2. 复制工作表： 对于要拆分的每个工作表，右键点击工作表标签，选择“移动或复制”，在弹出的对话框中选择“(新工作簿)”作为目标位置，然后点击“确定”。这会创建一个包含该工作表的新工作簿。

3. 保存新工作簿： 在新工作簿中，点击“文件”菜单，选择“保存”，为每个新工作簿命名并保存到您希望的位置。

4. 重复步骤： 对所有需要拆分的工作表重复上述步骤。

方法二：使用VBA宏自动化拆分

如果您需要拆分的工作簿数量较多，使用VBA宏可以大大加快这一过程。

1. 打开VBA编辑器： 在Excel中，按下Alt + F11打开VBA编辑器。

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

3. 编写宏代码： 在新模块中复制并粘贴以下代码：

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

请确保将"C:\路径\"替换为您希望保存新工作簿的实际路径。

1. 运行宏： 按下F5键运行宏或在VBA编辑器中选择“运行” -> “运行子程序/用户窗体”。

2. 关闭宏编辑器： 完成后关闭VBA编辑器，并保存您的原始工作簿。

方法三：使用第三方工具

市场上存在一些第三方工具，它们提供了将一个工作簿拆分成多个工作簿的功能。这些工具通常具有图形用户界面，操作简单直观。使用这些工具时，您只需选择原始工作簿，指定拆分方式（例如，按工作表拆分），然后指定保存位置即可。

总结

以上提供了三种在Excel中将一个工作簿拆分成多个工作簿的方法。手动拆分适合少量工作表的情况；使用VBA宏适合大量工作表且对Excel操作较为熟悉的用户；第三方工具则适合寻求更简便操作的用户。根据您的具体需求选择最合适的方法。在操作过程中，请确保备份原始工作簿，以防数据丢失或操作失误。

AI办公助手：WPS灵犀

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

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