如何在Excel中合并两个没有重复的列表？
您的工作表中有两个列表，并且列表中的某些值是重复的，并且您想要合并这两个列表并仅保留唯一的值，如以下屏幕截图所示，该怎么办？
 |
 |
 |
- 重用任何东西： 将最常用或最复杂的公式，图表等添加到您的收藏夹中，并在将来快速重用它们。
- 超过20种文字功能： 从文本字符串中提取数字； 提取或删除部分文字； 将数字和货币转换为英文单词。
- 合并工具：将多个工作簿和工作表合二为一； 合并多个单元格/行/列，而不会丢失数据； 合并重复的行和总和。
- 分割工具：根据价值将数据分割成多个工作表； 一本工作簿可转换为多个Excel，PDF或CSV文件； 一列到多列。
- 跳过粘贴 隐藏/过滤的行； 计数与求和 按背景色; 向多个收件人批量发送个性化电子邮件。
- 超级过滤器： 创建高级过滤方案并应用于任何工作表； 排序 按星期，日期，频率等 筛选器 用粗体，公式，注释...
- 超过300种强大的功能； 适用于 Office 2007-2021 和 365； 支持所有语言； 在您的企业或组织中轻松部署。
在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.复制选定的唯一值并将其粘贴到新列中。 看截图：
