excel怎么给两列表格做并集

如何在Excel中给两列表格做并集

在Excel中给两列表格做并集的主要方法有：使用公式、使用Power Query、使用VBA代码。使用公式是最简单和直接的方法之一，但如果你需要处理大数据集或更加复杂的数据，可以考虑使用Power Query或VBA代码。以下将详细介绍使用公式的方法。

使用公式的方法：

将两个列表合并到一个新的列表中。
使用函数删除重复项。

一、合并两个列表

在Excel中，你可以通过简单的复制和粘贴将两个列表合并到一个新的列表中。假设你有两个列表，分别在A列和B列。

选择A列中的所有数据并复制。
将其粘贴到C列中。
选择B列中的所有数据并复制。
将其粘贴到C列的末尾。

这样，你就得到了一个合并后的列表。

二、删除重复项

现在，你需要删除合并列表中的重复项。可以使用Excel的内置功能来完成这一任务。

选择合并后的列表（C列）。
在“数据”选项卡中，点击“删除重复项”。
确保只选择C列，然后点击“确定”。

此时，你将得到一个没有重复项的列表，这就是两个列表的并集。

使用公式的方法

如果你想通过公式自动完成这一任务，你可以使用Excel的数组公式。假设你的数据在A2:A10和B2:B10。

在C2单元格中输入以下公式：

=IFERROR(INDEX($A$2:$A$10, MATCH(0, COUNTIF($C$1:C1, $A$2:$A$10), 0)), IFERROR(INDEX($B$2:$B$10, MATCH(0, COUNTIF($C$1:C1, $B$2:$B$10), 0)), ""))

按下Ctrl+Shift+Enter键，使其成为数组公式。
向下拖动填充手柄，直到你看到空白单元格。

三、使用Power Query

Power Query是Excel中的一个强大工具，特别适合处理大数据集和复杂的数据操作。

在Excel中，选择“数据”选项卡，然后选择“从表/范围”。
将两个列表加载到Power Query编辑器中。
选择“追加查询”以合并两个列表。
使用“删除重复项”功能删除重复项。
将结果加载回Excel。

四、使用VBA代码

如果你对编程有一定了解，可以使用VBA代码来完成这一任务。以下是一个简单的VBA代码示例：

Sub UnionLists()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Dim list1 As Range
    Set list1 = ws.Range("A2:A10")
    Dim list2 As Range
    Set list2 = ws.Range("B2:B10")
    Dim unionList As Collection
    Set unionList = New Collection
    Dim cell As Range
    On Error Resume Next
    For Each cell In list1
        unionList.Add cell.Value, CStr(cell.Value)
    Next cell
    For Each cell In list2
        unionList.Add cell.Value, CStr(cell.Value)
    Next cell
    On Error GoTo 0
    Dim i As Integer
    For i = 1 To unionList.Count
        ws.Cells(i + 1, 3).Value = unionList(i)
    Next i
End Sub

将以上代码粘贴到VBA编辑器中，然后运行宏。它将把A列和B列的并集放到C列中。

五、具体操作步骤详解

1. 使用公式方法

合并两个列表

首先，将两个列表合并到一个新的列表中。假设你的第一个列表在A列，第二个列表在B列。你可以通过简单的复制和粘贴来完成这个步骤。

选择A列中的所有数据并复制。
将其粘贴到C列中。
选择B列中的所有数据并复制。
将其粘贴到C列的末尾。

删除重复项

现在，你需要删除合并列表中的重复项。可以使用Excel的内置功能来完成这一任务。

选择合并后的列表（C列）。
在“数据”选项卡中，点击“删除重复项”。
确保只选择C列，然后点击“确定”。

此时，你将得到一个没有重复项的列表，这就是两个列表的并集。

使用数组公式

如果你想通过公式自动完成这一任务，可以使用数组公式。假设你的数据在A2:A10和B2:B10。

在C2单元格中输入以下公式：

=IFERROR(INDEX($A$2:$A$10, MATCH(0, COUNTIF($C$1:C1, $A$2:$A$10), 0)), IFERROR(INDEX($B$2:$B$10, MATCH(0, COUNTIF($C$1:C1, $B$2:$B$10), 0)), ""))

按下Ctrl+Shift+Enter键，使其成为数组公式。
向下拖动填充手柄，直到你看到空白单元格。

2. 使用Power Query

Power Query是Excel中的一个强大工具，特别适合处理大数据集和复杂的数据操作。

加载数据到Power Query

在Excel中，选择“数据”选项卡，然后选择“从表/范围”。
将两个列表加载到Power Query编辑器中。

追加查询

在Power Query编辑器中，选择“追加查询”以合并两个列表。
选择“删除重复项”功能删除重复项。

加载结果回Excel

将处理后的结果加载回Excel。

3. 使用VBA代码

如果你对编程有一定了解，可以使用VBA代码来完成这一任务。

编写VBA代码

以下是一个简单的VBA代码示例：

Sub UnionLists()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Dim list1 As Range
    Set list1 = ws.Range("A2:A10")
    Dim list2 As Range
    Set list2 = ws.Range("B2:B10")
    Dim unionList As Collection
    Set unionList = New Collection
    Dim cell As Range
    On Error Resume Next
    For Each cell In list1
        unionList.Add cell.Value, CStr(cell.Value)
    Next cell
    For Each cell In list2
        unionList.Add cell.Value, CStr(cell.Value)
    Next cell
    On Error GoTo 0
    Dim i As Integer
    For i = 1 To unionList.Count
        ws.Cells(i + 1, 3).Value = unionList(i)
    Next i
End Sub

运行宏