如何在 Excel 中合并两个列表且不包含重复项？

您的工作表中有两个列表，其中一些值是重复的，您希望合并这两个列表并只保留唯一值，如下方截图所示，您该如何操作呢？

使用 Excel 中的“删除重复项”功能合并列表且不包含重复项

使用 VBA 合并列表且不包含重复项

使用 Kutools for Excel 合并列表且不包含重复项

使用 Excel 中的“删除重复项”功能合并列表且不包含重复项

要在 Excel 中合并两个列表并删除重复值，您可以按照以下步骤操作：

1. 复制两个列表中的一个，并将其粘贴到另一个列表的底部，见截图：

2. 选择列表并点击 数据 > 删除重复项，见截图：

3. 在“ 删除重复项”对话框中，如果您的列没有标题，请取消选中 数据包含标题，然后点击 确定。见截图：

4. 然后屏幕上会弹出一个对话框，告诉您重复项已被删除，点击 确定。见截图：

您可以看到结果：

使用 VBA 合并列表且不包含重复项

在 Excel 中，VBA 也可以帮助您合并两个列表且不包含重复项。

1. 按住 ALT 键并在键盘上按 F11 打开 Microsoft Visual Basic for Applications 窗口。

2. 点击 插入 > 模块，并将 VBA 代码复制到模块中。

VBA：合并列表且不包含重复项

Sub FindUniques()
'Updateby20140313
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set dic = CreateObject("Scripting.Dictionary")
For j = 1 To InputRng.Columns.Count
    For i = 1 To InputRng.Rows.Count
        xValue = InputRng.Cells(i, j).Value
        If xValue <> "" And Not dic.Exists(xValue) Then
            OutRng.Value = xValue
            dic(xValue) = ""
            Set OutRng = OutRng.Offset(1, 0)
        End If
    Next
Next
End Sub

3. 点击 运行 按钮或按 F5 键运行 VBA。

4. 屏幕上会显示一个对话框，您可以选择要合并的区域。见截图：

5. 点击 确定，然后会弹出另一个对话框，供您选择一个单元格以输出合并结果。见截图：

6. 点击 确定。您可以看到列表已合并。

提示：运行上述 VBA 后，结果无法保留单元格格式。

使用 Kutools for Excel 合并列表且不包含重复项

安装 Kutools for Excel 后，您可以使用 选择重复项和唯一单元格 功能来解决合并两个列表且不包含重复项的问题。

Kutools for Excel 包含 300 多种便捷的 Excel 工具。免费试用 30 天无任何限制。立即获取

1. 复制两个列表中的一个，并将其粘贴到另一个列表的底部，选择新列表，然后点击 Kutools > 选择 > 选择重复项和唯一单元格。见截图：

2. 在“ 选择重复项和唯一单元格”对话框中，勾选 所有唯一值（包括第一个重复项），点击 确定。

3. 然后会弹出一个对话框，告诉您已选择了多少个唯一值，点击 确定 和 取消 关闭两个对话框。见截图：

4. 复制所选的唯一值并将其粘贴到新列中。见截图：

点击此处了解更多关于 选择重复项和唯一单元格 的信息。

相关文章：

• 查找两列之间的唯一值
• 查找两列中的重复值