如何在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.複製選定的唯一值並將其粘貼到新列中。 看截圖：

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

相關文章：

• 查找兩列之間的唯一值
• 在兩列中查找重複的值