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

方法一：使用VBA宏拆分工作簿

步骤 1：打开VBA编辑器

• 在Excel中，按下 Alt + F11 打开VBA编辑器。
• 在菜单栏选择 插入 > 模块，创建一个新的模块。

步骤 2：编写VBA代码

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

Sub SplitWorkbook()
    Dim ws As Worksheet
    Dim newWb As Workbook
    Dim savePath As String
    
    ' 设置保存新工作簿的路径
    savePath = "C:\path\to\save\" ' 修改为实际路径
    
    For Each ws In ThisWorkbook.Worksheets
        ' 复制工作表到新工作簿
        ws.Copy
        Set newWb = ActiveWorkbook
        
        ' 保存新工作簿
        newWb.SaveAs Filename:=savePath & ws.Name & ".xlsx"
        
        ' 关闭新工作簿
        newWb.Close SaveChanges:=False
    Next ws
    
    MsgBox "拆分完成！"
End Sub

• 修改 savePath 变量为您的目标文件夹路径。

步骤 3：运行宏

• 按下 F5 运行宏或在VBA编辑器中选择 运行 > 运行子程序/用户窗体。

方法二：手动拆分工作表

如果您不想使用VBA，可以手动将每个工作表保存为一个新的工作簿：

步骤 1：打开工作簿

• 打开包含多个工作表的Excel工作簿。

步骤 2：拆分工作表

• 右键点击需要拆分的工作表标签。
• 选择 移动或复制。
• 在弹出的对话框中，选择 (新工作簿)，然后点击 确定。

步骤 3：保存新工作簿

• Excel会自动为每个工作表创建一个新的工作簿。
• 保存每个新工作簿到您希望的位置。

方法三：使用第三方工具

还有一些第三方工具和插件可以实现工作簿的拆分，这些工具通常提供图形用户界面，操作起来更为直观简单。使用这些工具时，通常只需选择拆分选项，指定保存路径，然后一键完成拆分。

注意事项

• 在拆分之前，请确保所有工作表的数据都是独立的，没有跨工作表的公式引用。
• 使用VBA宏时，请确保您的宏设置允许运行宏。
• 手动拆分工作表时，确保每个工作表的数据都是完整的，并且在保存前检查数据。
• 使用第三方工具时，请从可信赖的来源下载，并注意隐私和数据安全。

通过上述方法，您可以根据自己的需求和偏好选择最适合的方式来拆分Excel工作簿。

AI办公助手：WPS灵犀

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

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