在日常办公中，我们经常需要处理包含多个工作表的Excel工作簿。然而，有时候我们需要将这些工作表分离出来，形成独立的表格文件，以便于进一步编辑或分享。本文将详细介绍如何通过手动和自动化的方式，将一个Excel工作簿中的多个工作表拆分成独立的表格。

手动拆分方法

1. 打开目标工作簿

首先，打开包含多个工作表的Excel工作簿。确保所有需要拆分的工作表都处于激活状态。

2. 选择并复制所需工作表

单击左侧的工作表标签，选择需要拆分的工作表。然后右键单击选中的工作表标签，选择“移动或复制”选项。

3. 创建新工作簿

在弹出的对话框中，勾选“新建工作簿”选项，然后点击确定。这将把所选的工作表复制到一个新的Excel工作簿中。

4. 保存新工作簿

将新工作簿另存为独立的文件，命名为适合的名称。重复上述步骤，直到所有工作表都被拆分为独立的表格。

自动化拆分方法

如果工作簿中有大量的工作表需要拆分，手动操作可能会非常繁琐。这时可以借助VBA（Visual Basic for Applications）宏来实现自动化处理。

1. 打开VBA编辑器

按下快捷键`Alt + F11`，打开Excel的VBA编辑器。

2. 插入模块

在VBA编辑器中，选择“插入”菜单，然后点击“模块”。这将在右侧窗口中创建一个新的代码模块。

3. 编写代码

在模块中输入以下代码：

```vba

Sub SplitSheetsIntoFiles()

Dim ws As Worksheet

Dim wb As Workbook

Dim folderPath As String

' 设置保存路径

folderPath = Application.DefaultFilePath & "\SplitSheets\"

MkDir folderPath ' 如果目录不存在则创建

For Each ws In ThisWorkbook.Sheets

ws.Copy ' 复制当前工作表到新的工作簿

Set wb = ActiveWorkbook

' 保存新工作簿

wb.SaveAs Filename:=folderPath & ws.Name & ".xlsx"

wb.Close False ' 关闭新工作簿

Next ws

MsgBox "工作表已成功拆分为独立文件！"

End Sub

```

4. 运行宏

关闭VBA编辑器，返回Excel界面。按`Alt + F8`打开宏对话框，选择刚刚编写的`SplitSheetsIntoFiles`宏，点击“运行”。

5. 检查结果

宏运行完成后，所有工作表将被保存为独立的Excel文件，位于指定的文件夹中。

注意事项

- 确保目标文件夹有足够的存储空间。

- 如果工作表名称中含有特殊字符，可能会影响文件命名，请提前清理工作表名称。

- 使用VBA宏时，建议先备份原始工作簿以防意外情况发生。

通过以上两种方法，您可以轻松地将一个Excel工作簿中的多个工作表拆分成独立的表格。无论是手动还是自动化方式，都能有效提升工作效率，满足不同场景下的需求。