如何在 Excel 中合併兩個清單並移除重複項目？

作者Sun修改日期2024-07-30

您的工作表中有兩個清單，部分數值重複，您希望將這兩個清單合併並僅保留唯一值（如下方截圖所示），該如何操作？

使用刪除重複在 Excel 中合併清單並去除重複項目

使用 VBA 合併清單並去除重複項目

使用 Kutools for Excel 合併清單並去除重複項目

使用刪除重複在 Excel 中合併清單並去除重複項目

太神奇了！在 Excel 中使用高效 Tabs，就像 Chrome、Edge、Firefox 和 Safari 一樣！
每天為您節省 50% 的時間，並減少數千次滑鼠點擊！

若要在 Excel 中合併兩個清單並移除重複值，可依照下列步驟操作：

1. 複製其中一個清單，並貼到另一個清單的底部，請參見下方截圖：

2. 選取該清單後，點擊資料> 刪除重複，請參見截圖：

啟用「移除重複項目」功能

3. 在刪除重複對話方塊中，若您的欄位不含標題，請取消勾選包含標題，再點擊確定。請參見截圖：

在「移除重複項目」對話框中設定選項

4. 在螢幕上顯示告知您重複項目已刪除的對話方塊後，請點擊確定。請參見截圖：

移除重複項目訊息方塊

您可看到結果如下：

移除重複項目的結果

使用 VBA 合併清單並去除重複項目

在 Excel 中，VBA 還能幫您輕鬆合併兩個清單並自動去除重複項目。

1. 按住 ALT 鍵，再按下鍵盤上的 F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

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. 螢幕上會顯示一個對話方塊，供您選取要合併的範圍。請參閱截圖：

使用 VBA 程式碼合併兩個清單且不含重複項 1

5. 點擊確定後，將彈出另一個對話方塊，讓您選取儲存格以輸出合併結果。請參見截圖：

使用 VBA 程式碼合併兩個清單且不含重複項 2

6. 點擊確定後，您即可看到清單已完成合併。

使用 VBA 程式碼合併兩個清單且不含重複項的結果

提示：執行上述 VBA 後，結果將無法保留儲存格的格式設定。

使用 Kutools for Excel 合併清單並去除重複項目

安裝 Kutools for Excel 後，即可使用選擇重複/唯一儲存格功能，輕鬆合併兩個清單並去除重複項目！

Kutools for Excel 內含超過 300 個實用的 Excel 工具，免費試用 30 天，無任何限制！立即取得

1. 將其中一個清單複製並貼到另一個清單底部，選取合併後的新清單，然後點擊 Kutools> 選取> 選擇重複/唯一儲存格。請參見截圖：

2. 在選擇重複/唯一儲存格對話方塊中，勾選所有唯一值（包含首次出現的重複項目），然後點擊確定。

使用 Kutools 合併兩個清單且不含重複項 1

3. 在彈出對話方塊告知您已選取多少個唯一值後，請點擊確定並取消以關閉兩個對話方塊。請參見截圖：

使用 Kutools 合併兩個清單且不含重複項 2

4. 接著，將所選的唯一值複製並貼到新的欄位中。請參閱截圖：

使用 Kutools 合併兩個清單且不含重複項的結果

按此處進一步了解如何選取重複或唯一的儲存格。

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多