Excel多个Sheet合并方法详解：从基础到进阶的全面指南

创作时间:

作者:

@小白创作中心

Excel多个Sheet合并方法详解：从基础到进阶的全面指南

引用

来源

https://docs.pingcode.com/baike/4886453

在日常工作中，我们常常需要将Excel中的多个Sheet合并到一个Sheet中，以便更好地管理和分析数据。本文将详细介绍几种常见的合并方法，包括使用Excel内置功能、Power Query、VBA代码以及第三方工具，帮助你快速掌握这一实用技能。

要将Excel的多个Sheet合并，可以使用以下方法：使用Excel内置功能、使用Power Query、使用VBA代码。其中，使用Power Query是一种比较高效且灵活的方法。Power Query是一种数据连接和查询技术，能够轻松地将多个Sheet中的数据合并到一个主表中。下面详细介绍如何使用Power Query来完成这一任务。

一、使用Excel内置功能

Excel内置功能可以帮助您快速合并多个Sheet，但这种方法适用于数据量较小且结构相似的Sheet。

1.1、复制粘贴方法

这是最简单的方法，但需要手动操作，适用于Sheet数量较少的情况。

打开目标工作簿。
选择要合并的第一个Sheet，按Ctrl+C复制所有数据。
切换到目标Sheet，按Ctrl+V粘贴数据。
重复上述步骤，直到所有Sheet的数据都粘贴到目标Sheet中。

1.2、使用Consolidate功能

Excel的Consolidate功能可以汇总多个Sheet的数据，但前提是这些Sheet的结构完全相同。

打开目标工作簿。
选择目标Sheet并点击“数据”选项卡。
点击“合并计算”按钮。
在“函数”下拉列表中选择合适的汇总函数（如Sum、Average等）。
在“引用区域”中，逐个添加需要合并的Sheet范围。
勾选“首行”和“左列”以确保数据结构一致。
点击“确定”完成合并。

二、使用Power Query

Power Query是Excel中的一个强大工具，特别适用于合并多个结构相同的Sheet。

2.1、启用Power Query

在Excel 2016及更高版本中，Power Query已经内置。如果您使用的是旧版本，可以从Microsoft网站下载并安装Power Query插件。

2.2、加载数据

打开Excel并选择“数据”选项卡。
点击“获取数据”下拉菜单，选择“从文件”->“从工作簿”。
选择要合并的工作簿并点击“导入”。
在Navigator窗口中，选择第一个Sheet并点击“加载”->“加载到”->“仅创建连接”。
重复上述步骤，加载所有需要合并的Sheet。

2.3、合并数据

在“查询与连接”窗口中，选择要合并的所有Sheet。
右键点击选择“追加查询”->“作为新查询”。
在打开的窗口中，选择要追加的查询并点击“确定”。
在Power Query编辑器中，可以对数据进行清洗和转换。
完成后，点击“关闭并加载”->“加载到”->“表”。
选择目标Sheet并点击“确定”完成合并。

三、使用VBA代码

如果您对编程有一定了解，可以使用VBA代码自动化合并过程。VBA代码可以处理大量Sheet，并能根据需要进行灵活调整。

3.1、打开VBA编辑器

打开Excel工作簿。
按Alt+F11打开VBA编辑器。
在VBA编辑器中，选择插入->模块，创建一个新模块。

3.2、输入VBA代码

在新模块中输入以下代码：

  
Sub 合并多个Sheet()
  
    Dim ws As Worksheet  
    Dim tgtWs As Worksheet  
    Dim lastRow As Long  
    Dim tgtRow As Long  
    ' 创建目标Sheet  
    Set tgtWs = ThisWorkbook.Worksheets.Add  
    tgtWs.Name = "合并结果"  
    tgtRow = 1  
    ' 遍历所有Sheet  
    For Each ws In ThisWorkbook.Worksheets  
        If ws.Name <> "合并结果" Then  
            lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row  
            ws.Range("A1:A" & lastRow).Copy tgtWs.Cells(tgtRow, 1)  
            tgtRow = tgtRow + lastRow  
        End If  
    Next ws  
    MsgBox "合并完成！"  
End Sub