如何在 Excel 中合併兩個列表且不包含重複值？

您的工作表中有兩個列表，其中一些值是重複的，您希望將這兩個列表合併並僅保留唯一值，如下方截圖所示，該如何操作呢？

使用 Excel 的「刪除重複」功能合併列表且不包含重複值

使用 VBA 合併列表且不包含重複值

使用 Kutools for Excel 合併列表且不包含重複值

使用 Excel 的「刪除重複」功能合併列表且不包含重複值

要在 Excel 中合併兩個列表並移除重複值，您可以按照以下步驟操作：

1. 複製兩個列表之一並將其粘貼到另一個列表的底部，請參見截圖：

2. 選擇列表並點擊 數據 > 刪除重複，請參見截圖：

3. 在「 刪除重複」對話框中，如果您的列沒有標題，請取消勾選 數據包含標題，然後點擊 確定。請參見截圖：

4. 然後屏幕上會顯示一個對話框，告訴您重複值已被刪除，點擊 確定。請參見截圖：

您可以查看結果：

使用 VBA 合併列表且不包含重複值

在 Excel 中，VBA 也可以幫助您合併兩個列表且不包含重複值。

1. 按住 ALT 鍵並按下鍵盤上的 F11 打開 Microsoft Visual Basic for Application 窗口。

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. 點擊 確定，然後會彈出另一個對話框讓您選擇一個單元格來輸出合併結果。請參見截圖：

6. 點擊 確定。您可以看到列表已經被合併。

提示：運行上述 VBA 後，結果無法保留單元格格式。

使用 Kutools for Excel 合併列表且不包含重複值

安裝了 Kutools for Excel 後，您可以使用「選擇重複與唯一單元格」功能來解決合併兩個列表且不包含重複值的問題。

Kutools for Excel 包含超過 300 種實用的 Excel 工具。免費試用 30 天無限制。立即獲取

1. 複製兩個列表之一並將其粘貼到另一個列表的底部，選擇新列表，然後點擊 Kutools > 選擇 > 選擇重複與唯一單元格。請參見截圖：

2. 在「 選擇重複與唯一單元格」對話框中，勾選 所有唯一值（包括第一個重複值），點擊 確定。

3. 然後會彈出一個對話框，告訴您有多少唯一值已被選擇，點擊 確定 和 取消 以關閉兩個對話框。請參見截圖：

4. 複製所選的唯一值並將它們粘貼到一個新列中。請參見截圖：

點擊這裡了解更多關於「選擇重複與唯一單元格」的信息。

相關文章：

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