跳到主要內容

如何在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。 您可以看到列表已合併。


提示:運行上述VBA後,結果將無法保留單元格格式。


箭頭藍色右氣泡 用Kutools for Excel合併沒有重複的列表

隨裝 Excel的Kutools,你可以使用 選擇重複項和唯一單元格 函數解決合併兩個沒有重複的列表的問題。

Excel的Kutools 包括300多個便捷的Excel工具。 30天免費試用,不受限制。 立即獲取

1.複製兩個列表之一,並將其粘貼到另一個列表的底部,選擇新列表,然後單擊 庫工具 > 選擇工具 > 選擇重複項和唯一單元格。 看截圖:


2。 在裡面 選擇重複項和唯一單元格 對話框,檢查 所有唯一身份(包括第一個重複項)點擊此處成為Trail Hunter Ok.


3.然後會彈出一個對話框,告訴您已選擇了多少個唯一值,單擊 OK取消 關閉兩個對話框。 看截圖:


4.複製選定的唯一值並將其粘貼到新列中。 看截圖:


單擊此處以了解有關選擇重複項和唯一單元格的更多信息。


相關文章:

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations