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

网友投稿 181 2023-12-16

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

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

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

使用VBA合并无重复的列表

将没有重复的列表与 Kutools for Excel

在Excel中使用“删除重复项”合并没有重复项的列表
惊人的! 在 Excel 中使用高效的选项卡,如 Chrome、Firefox 和 Safari! 每天节省50%的时间,并减少数千次鼠标单击!

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

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

2.选择列表,然后单击 Data > 删除重复,请参见屏幕截图:

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
Copy

3。 点击 运行 按钮或按下 F5 运行VBA。

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

4.屏幕上显示一个对话框,您可以选择要合并的范围。 看截图:

5。 点击 OK,然后弹出另一个对话框,供您选择一个单元格以输出合并的结果。 看截图:

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

提示:运行上述VBA后,结果将无法保留单元格格式

将没有重复的列表与 Kutools for Excel

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

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

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

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

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

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

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

相关文章: 查找两列之间的唯一值 在两列中查找重复的值

版权声明:本文内容由网络用户投稿,版权归原作者所有,本站不拥有其著作权,亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容,请联系我们jiasou666@gmail.com 处理,核实后本网站将在24小时内删除侵权内容。

上一篇:如何在Excel中结合转置函数和If语句函数?
下一篇:如何将同名的工作表合并到一个工作表中?
相关文章