如何在Excel中合并两个没有重复的列表？

您的工作表中有两个列表，并且列表中的某些值是重复的，并且您想要合并这两个列表并仅保留唯一的值，如以下屏幕截图所示，该怎么办？

在Excel中使用“删除重复项”合并没有重复项的列表

使用VBA合并无重复的列表

使用 Kutools for Excel 合并没有重复的列表

在Excel中使用“删除重复项”合并没有重复项的列表

要合并两个列表并在Excel中删除重复的值，可以执行以下操作：

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

2.选择列表，然后单击 时间 > 删除重复，请参见屏幕截图：

3.在 删除重复 对话框，如果您的列没有标题，请取消选中 我的数据有标题，然后单击 OK。 看截图：

4.然后在屏幕上显示一个对话框，告诉您重复项已被删除，单击 OK。 看截图：

您可以看到结果：

使用VBA合并无重复的列表

在Excel中，VBA还可以帮助您合并两个没有重复的列表。

1.按住 ALT 按钮并按下 F11 在键盘上打开一个 Microsoft Visual Basic应用程序 窗口。

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。 点击 OK，然后弹出另一个对话框，供您选择一个单元格以输出合并的结果。 看截图：

6。 点击 OK。 您可以看到列表已合并。

Tips:：运行上述VBA后，结果是无法保留单元格格式。

使用 Kutools for Excel 合并没有重复的列表

随装 Kutools for Excel，你可以使用 选择重复项和唯一单元格 函数解决合并两个没有重复的列表的问题。

Kutools for Excel 包括300多个便捷的Excel工具。 30天免费试用，不受限制。 立即获取

1.复制两个列表之一，并将其​​粘贴到另一个列表的底部，选择新列表，然后单击 库工具 > 选择 > 选择重复项和唯一单元格。 看截图：

2.在 选择重复项和唯一单元格 对话框，检查 所有唯一身份（包括第一个重复项），单击“ Ok.

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

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

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

相关文章：

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