两个excel表格怎么合并到一个表

将两个Excel表格合并到一个表格的方法有多种：使用VLOOKUP函数、使用INDEX-MATCH函数、使用Power Query、使用VBA宏。 其中，使用Power Query 是一个非常强大且灵活的工具，尤其适合处理大量数据和复杂的数据操作。以下将详细描述如何使用Power Query来合并两个Excel表格。

一、使用VLOOKUP函数合并

1.1、准备数据

首先，将需要合并的两个表格放在同一个Excel工作簿中。假设有两个表格，表格1在Sheet1中，表格2在Sheet2中，并且它们都有一个共同的列，比如“ID”。

1.2、在表格1中使用VLOOKUP

在表格1的右侧新建一列，用于存放从表格2中查找的数据。在新列的第一个单元格中输入以下公式：

=VLOOKUP(A2, Sheet2!$A$1:$D$100, 2, FALSE)

其中：

A2 是表格1中用于查找的关键列。
Sheet2!$A$1:$D$100 是表格2中的数据范围。
2 表示要返回的列号，即在表格2中查找到匹配值后，返回第2列的值。
FALSE 表示精确匹配。

1.3、拖动公式

将公式向下拖动，应用到所有需要合并的数据行。

1.4、检查并完成合并

检查合并后的数据是否正确，然后可以将公式的结果复制并粘贴为值，以便以后对数据进行进一步处理。

二、使用INDEX-MATCH函数合并

2.1、准备数据

同样，将需要合并的两个表格放在同一个Excel工作簿中，并确保它们都有一个共同的列，比如“ID”。

2.2、在表格1中使用INDEX-MATCH

在表格1的右侧新建一列，用于存放从表格2中查找的数据。在新列的第一个单元格中输入以下公式：

=INDEX(Sheet2!$B$2:$B$100, MATCH(A2, Sheet2!$A$2:$A$100, 0))

其中：

Sheet2!$B$2:$B$100 是表格2中的数据列，即需要返回的值所在的列。
MATCH(A2, Sheet2!$A$2:$A$100, 0) 用于在表格2中查找匹配的关键列。
0 表示精确匹配。

2.3、拖动公式

将公式向下拖动，应用到所有需要合并的数据行。

2.4、检查并完成合并

检查合并后的数据是否正确，然后可以将公式的结果复制并粘贴为值，以便以后对数据进行进一步处理。

三、使用Power Query合并

3.1、加载数据到Power Query

首先，将两个表格加载到Power Query中。在Excel中，选择“数据”选项卡，点击“从表格/范围”以加载每个表格。

3.2、合并查询

在Power Query编辑器中，选择“合并查询”功能。选择需要合并的两个表格，并指定匹配的列（如“ID”列）。

3.3、选择合并类型

选择合并类型（如“左外连接”或“内连接”），根据需要选择适当的合并类型。

3.4、展开列

合并完成后，选择需要从第二个表格中添加的列，点击“展开”按钮，将这些列添加到第一个表格中。

3.5、加载数据回Excel

完成合并后，点击“关闭并加载”，将合并后的数据加载回Excel工作簿。

四、使用VBA宏合并

4.1、打开VBA编辑器

按下 Alt + F11 打开VBA编辑器。

4.2、编写VBA代码

在VBA编辑器中，插入一个新的模块，并编写以下代码：

Sub MergeTables()
    Dim ws1 As Worksheet, ws2 As Worksheet, wsResult As Worksheet
    Dim lastRow1 As Long, lastRow2 As Long, i As Long, j As Long
    Dim dict As Object
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    Set wsResult = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    lastRow1 = ws1.Cells(ws1.Rows.Count, "A").End(xlUp).Row
    lastRow2 = ws2.Cells(ws2.Rows.Count, "A").End(xlUp).Row
    Set dict = CreateObject("Scripting.Dictionary")
    For i = 2 To lastRow1
        dict(ws1.Cells(i, 1).Value) = ws1.Cells(i, 2).Value
    Next i
    wsResult.Cells(1, 1).Value = "ID"
    wsResult.Cells(1, 2).Value = "Value1"
    wsResult.Cells(1, 3).Value = "Value2"
    j = 2
    For i = 2 To lastRow2
        If dict.exists(ws2.Cells(i, 1).Value) Then
            wsResult.Cells(j, 1).Value = ws2.Cells(i, 1).Value
            wsResult.Cells(j, 2).Value = dict(ws2.Cells(i, 1).Value)
            wsResult.Cells(j, 3).Value = ws2.Cells(i, 2).Value
            j = j + 1
        End If
    Next i
End Sub

4.3、运行宏

关闭VBA编辑器，返回Excel工作簿。按下 Alt + F8 打开宏对话框，选择刚才编写的宏“MergeTables”，点击“运行”。

4.4、检查并完成合并

检查合并后的数据是否正确，并根据需要进行进一步处理。

五、总结

合并两个Excel表格到一个表的方法有多种，每种方法都有其优缺点。使用VLOOKUP和INDEX-MATCH函数适合处理简单的合并任务，而Power Query则非常适合处理复杂的数据操作和大量数据。VBA宏则提供了最大程度的灵活性，可以根据具体需求编写自定义的合并逻辑。根据具体情况选择适合的方法，可以大大提高工作效率。