如何在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。 在裡面 選擇重複項和唯一單元格 對話框,檢查 所有唯一身份(包括第一個重複項)點擊此處成為Trail Hunter Ok.
3.然後會彈出一個對話框,告訴您已選擇了多少個唯一值,單擊 OK 及 取消 關閉兩個對話框。 看截圖:
4.複製選定的唯一值並將其粘貼到新列中。 看截圖: