如何在Excel中合并两个没有重复的列表？
您的工作表中有两个列表，并且列表中的某些值是重复的，并且您想要合并这两个列表并仅保留唯一的值，如以下屏幕截图所示，该怎么办？
 |
 |
 |
使用 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。 您可以看到列表已合并。
提示：运行上述VBA后，结果将无法保留单元格格式。
使用 Kutools for Excel 合并没有重复的列表
随装 Kutools for Excel，你可以使用 选择重复项和唯一单元格 函数解决合并两个没有重复的列表的问题。
Kutools for Excel 包括300多个便捷的Excel工具。 30天免费试用，不受限制。 立即获取
1.复制两个列表之一，并将其粘贴到另一个列表的底部，选择新列表，然后单击 库工具 > 选择工具 > 选择重复项和唯一单元格。 看截图：
2.在 选择重复项和唯一单元格 对话框，检查 所有唯一身份（包括第一个重复项），单击“ Ok.
3.然后会弹出一个对话框，告诉您已选择了多少个唯一值，单击 OK 和 取消 关闭两个对话框。 看截图：
4.复制选定的唯一值并将其粘贴到新列中。 看截图：
