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

方法一：手动拆分工作簿

步骤1：打开原始工作簿

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

步骤2：复制工作表

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

步骤3：保存新工作簿

在每个新创建的工作簿中，点击“文件”菜单，选择“保存”或“另存为”，为每个工作簿指定一个文件名，并保存到您希望的位置。

方法二：使用VBA宏自动拆分工作簿

如果您需要拆分的工作簿数量较多，手动操作会非常耗时。在这种情况下，可以使用VBA（Visual Basic for Applications）编写一个宏来自动化这一过程。

步骤1：打开VBA编辑器

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

步骤2：插入新模块

在VBA编辑器中，右键点击“VBAProject (您的工作簿名称)”选择“插入” -> “模块”，在新模块中粘贴以下代码：

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:\路径\"替换为您希望保存新工作簿的实际路径。

步骤3：运行宏

点击“运行”按钮或按下F5键运行宏。宏会遍历工作簿中的每个工作表，将它们复制到新的工作簿中，并保存到指定路径。

方法三：使用第三方工具

市面上也有许多第三方工具和插件可以帮助您快速拆分工作簿，这些工具通常提供图形用户界面，操作简单直观。使用这些工具时，您只需选择原始工作簿，指定拆分选项，然后一键执行即可。

总结

以上提供了三种在Excel中将一个工作簿拆分成多个工作簿的方法。手动拆分适合工作表数量较少的情况，使用VBA宏拆分适合需要处理大量工作表的情况，而第三方工具则适合希望快速简便完成任务的用户。选择合适的方法，可以有效提高工作效率并满足不同的业务需求。

AI办公助手：WPS灵犀

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

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