怎么把一个excel里的多个表格单分出来

在Excel中将一个文件中的多个表格单独分离出来，可以通过以下几种方式：手动复制粘贴、使用VBA脚本、通过Power Query或使用第三方插件。 其中，使用VBA脚本是一种高效且自动化的方式。下面将详细介绍如何使用VBA脚本来实现这个过程。

一、手动复制粘贴

手动复制粘贴是最简单的方式，适用于表格数量较少的情况。具体步骤如下：

1. 打开Excel文件。
2. 选择需要分离的表格。
3. 复制选中的表格（Ctrl+C）。
4. 新建一个Excel文件。
5. 在新文件中粘贴表格（Ctrl+V）。
6. 重复上述步骤，直到所有表格都分离出来。

尽管这种方法简单，但对于表格数量较多的情况，手动复制粘贴会显得非常繁琐。

二、使用VBA脚本

使用VBA脚本是一种高效的自动化方式，适用于处理大量表格。以下是具体步骤：

1. 启用开发工具

1. 打开Excel。
2. 选择“文件”->“选项”。
3. 在“自定义功能区”中，勾选“开发工具”选项。

2. 编写VBA脚本

1. 点击“开发工具”选项卡中的“Visual Basic”按钮，打开VBA编辑器。

2. 在VBA编辑器中，点击“插入”->“模块”。

3. 在模块中输入以下代码：

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

4. 关闭VBA编辑器。

5. 回到Excel，按Alt+F8，选择“SplitSheetsToWorkbooks”宏并运行。

3. 解释代码

代码功能： 该脚本会遍历当前工作簿中的每一个工作表，将每个工作表复制到一个新的工作簿中，并根据工作表的名称保存为单独的Excel文件。

• Dim ws As Worksheet: 声明工作表对象。
• Dim wb As Workbook: 声明当前工作簿对象。
• Dim newWb As Workbook: 声明新的工作簿对象。
• Set wb = ThisWorkbook: 设置当前工作簿对象。
• For Each ws In wb.Worksheets: 遍历当前工作簿中的每一个工作表。
• ws.Copy: 复制当前工作表。
• Set newWb = ActiveWorkbook: 将新工作簿对象设置为活动工作簿。
• newWb.SaveAs Filename:=wb.Path & "" & ws.Name & ".xlsx": 保存新工作簿，文件名为当前工作表的名称。
• newWb.Close False: 关闭新工作簿。

使用VBA脚本可以极大地提高效率，特别是当你需要处理大量工作表时。

三、通过Power Query

Power Query是Excel中的一个强大工具，适用于数据的提取、转换和加载。以下是使用Power Query将多个表格分离到单独工作簿的方法：

1. 导入数据

1. 打开Excel文件。
2. 选择“数据”->“获取数据”->“从文件”->“从工作簿”。
3. 选择需要导入的Excel文件。

2. 转换数据

1. 在Power Query编辑器中，选择需要分离的表格。
2. 选择“转换”->“拆分列”。
3. 按照分隔符或者其他条件拆分列，以便将数据分离到不同的表格。

3. 加载数据

1. 选择“关闭并加载”->“关闭并加载到”。
2. 选择“现有工作表”或者“新工作表”。

通过Power Query，你可以更灵活地处理和转换数据，但需要一定的学习成本。

四、使用第三方插件

使用第三方插件也是一种可行的方法。以下是一些常用的Excel插件：

1. Kutools for Excel

Kutools for Excel是一款功能强大的Excel插件，提供了丰富的工具和功能，包括将多个表格分离到单独工作簿的功能。

1. 下载并安装Kutools for Excel。
2. 打开Excel文件。
3. 选择Kutools for Excel选项卡中的“工作簿和工作表”->“拆分工作簿”。
4. 选择需要分离的工作表，点击“确定”。

2. ASAP Utilities

ASAP Utilities是另一款功能强大的Excel插件，提供了许多实用工具。

1. 下载并安装ASAP Utilities。
2. 打开Excel文件。
3. 选择ASAP Utilities选项卡中的“工作簿和工作表”->“拆分工作簿”。
4. 选择需要分离的工作表，点击“确定”。

使用第三方插件可以大大简化操作，但需要注意插件的兼容性和安全性。

结论

手动复制粘贴、使用VBA脚本、通过Power Query或使用第三方插件，都是将Excel文件中的多个表格单独分离出来的有效方法。手动复制粘贴适用于表格数量较少的情况，而使用VBA脚本、Power Query和第三方插件则适用于处理大量表格的情况。具体选择哪种方法，取决于你的实际需求和熟悉程度。无论选择哪种方法，都可以大大提高工作效率，帮助你快速完成表格的分离工作。

相关问答FAQs：

1. 如何将一个Excel文件中的多个表格拆分成独立的单个表格？

• 问题： 我有一个包含多个表格的Excel文件，我想将每个表格分别拆分成独立的单个表格，应该怎么操作？
• 回答： 您可以按照以下步骤来拆分Excel文件中的多个表格：
  1. 打开Excel文件并定位到包含多个表格的工作表。
  2. 选择您想要拆分的第一个表格，并复制它（Ctrl+C）。
  3. 在新的工作表中，粘贴（Ctrl+V）刚才复制的表格。
  4. 将该新工作表重命名为适当的名称，以反映该表格的内容。
  5. 重复步骤2到4，以拆分其他表格。
  6. 最终，您将会拥有多个独立的单个表格，每个表格都保存在不同的工作表中。

2. 如何将Excel中的多个表格分别保存为单独的文件？

• 问题： 我在一个Excel文件中有多个表格，我想将每个表格分别保存为单独的文件，应该怎么操作？
• 回答： 要将Excel中的多个表格分别保存为单独的文件，您可以按照以下步骤进行：
  1. 打开Excel文件并定位到包含多个表格的工作表。
  2. 选择您想要保存的第一个表格，并复制它（Ctrl+C）。
  3. 在新的工作簿中，粘贴（Ctrl+V）刚才复制的表格。
  4. 将该新工作簿另存为适当的名称和格式，以反映该表格的内容。
  5. 重复步骤2到4，以保存其他表格。
  6. 最终，您将会有多个单独的文件，每个文件都包含一个表格。

3. 如何在Excel中将多个表格分别打印出来？

• 问题： 我在一个Excel文件中有多个表格，我想将每个表格分别打印出来，应该怎么操作？
• 回答： 想要将Excel中的多个表格分别打印出来，您可以按照以下步骤进行：
  1. 打开Excel文件并定位到包含多个表格的工作表。
  2. 选择您想要打印的第一个表格，并设置打印区域（可通过选择表格范围或手动设置打印区域）。
  3. 在打印设置中，选择适当的打印机和打印选项，然后点击打印。
  4. 重复步骤2到3，以打印其他表格。
  5. 最终，您将会有多个打印出来的纸质文件，每个文件都包含一个表格的打印内容。