如何從 Excel 的多個列中提取唯一值？

假設您有多個包含多個值的列，其中一些值在同一列內或不同列之間重複。現在，您需要找出在所有列中唯一的值。是否有快速的方法可以從 Excel 的多列中提取這些唯一值？讓我們來探索一些高效的解決方案。

• 使用公式從多列中提取唯一值
  • 陣列公式（適用於所有 Excel 版本）
  • 公式（適用於 Excel 365、Excel 2021 及更新版本）
• 使用 Kutools AI 助手從多列中提取唯一值
• 使用資料透視表從多列中提取唯一值
• 使用 VBA 程式碼從多列中提取唯一值

使用公式從多列中提取唯一值

本節將介紹兩個公式：一個是適用於所有 Excel 版本的陣列公式，另一個是專門用於 Excel 365 的動態陣列公式。

使用適用於所有 Excel 版本的陣列公式從多列中提取唯一值

對於任何版本的 Excel 使用者來說，陣列公式是從多列中提取唯一值的強大工具。以下是具體操作方法：

1. 假設您的數據範圍為 A2:C9，請在單元格 E2 中輸入以下公式：

=INDIRECT(TEXT(MIN(IF(($A$2:$C$9<>"")*(COUNTIF($E$1:E1,$A$2:$C$9)=0),ROW($2:$9)*100+COLUMN($A:$C),7^8)),"R0C00"),)&""

2. 然後同時按下 Shift + Ctrl + Enter 鍵，然後拖動填充柄以提取唯一值，直到出現空白單元格。請參見截圖：

使用適用於 Excel 365、Excel 2021 及更新版本的公式從多列中提取唯一值

Excel 365、Excel 2021 及更新版本支持動態陣列，使得從多列中提取唯一值變得更加容易：

請在希望放置結果的空白單元格中輸入或複製以下公式，然後按 Enter 鍵即可一次性獲取所有唯一值。請參見截圖：

=UNIQUE(TOCOL(A2:C9,1))

使用 Kutools AI 助手從多列中提取唯一值

釋放「Kutools AI 助手」的力量，輕鬆地從 Excel 的多列中提取唯一值。只需點擊幾下，這個智能工具就能篩選您的數據，識別並列出所選範圍內的所有唯一條目。忘記複雜的公式或 VBA 程式碼的麻煩；擁抱「Kutools AI 助手」的高效性，將您的 Excel 工作流程轉變為更高效且無錯誤的體驗。

安裝 Kutools for Excel 後，請點擊「Kutools AI」>「AI 助手」以打開「Kutools AI 助手」面板：

1. 在聊天框中輸入您的需求，然後點擊「發送」按鈕或按 Enter 鍵發送問題；
   "從範圍 A2:C9 中提取唯一值，忽略空白單元格，並將結果放在 E2 開始的位置："
2. 分析完成後，點擊「執行」按鈕運行。Kutools AI 助手將使用 AI 處理您的請求，並將結果直接返回到 Excel 中指定的單元格。

使用資料透視表從多列中提取唯一值

如果您熟悉資料透視表，可以通過以下步驟輕鬆地從多列中提取唯一值：

1. 首先，在數據左側插入一列新的空白列，在本例中，我將在原始數據旁邊插入 A 列。

2. 點擊數據中的任意單元格，然後按下 "Alt+D" 鍵，再立即按下 "P" 鍵以打開「資料透視表及資料透視圖向導」，在向導第一步選擇「多重合併計算區域」，請參見截圖：

3. 然後點擊下一步按鈕，在向導第二步勾選「為我創建單一面板」選項，請參見截圖：

4. 繼續點擊「下一步」按鈕，選擇包括左側新列的數據範圍，然後點擊「添加」按鈕將數據範圍添加到「所有範圍」列表框中，請參見截圖：

5. 選擇數據範圍後，繼續點擊「下一步」，在向導第三步選擇您希望放置資料透視表報告的位置。

6. 最後，點擊「完成」以完成向導，並在當前工作表中創建資料透視表。然後取消勾選「選擇要添加到報表的欄位」部分中的所有欄位，請參見截圖：

7. 然後勾選 Value 欄位或將 Value 拖到「行」標籤，這樣您就可以從多列中獲得唯一值，如下所示：

使用 VBA 程式碼從多列中提取唯一值

使用以下 VBA 程式碼，您也可以從多列中提取唯一值。

1. 按住「ALT + F11」鍵，打開「Microsoft Visual Basic for Applications」窗口。

2. 點擊「插入」>「模組」，然後將以下程式碼粘貼到模組窗口中。

VBA：從多列中提取唯一值

Sub Uniquedata()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range, OutRng As Range
Set dt = CreateObject("Scripting.Dictionary")
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)
For Each rng In InputRng
    If rng.Value <> "" Then
        dt(rng.Value) = ""
    End If
Next
OutRng.Range("A1").Resize(dt.Count) = Application.WorksheetFunction.Transpose(dt.Keys)
End Sub

3. 然後按 F5 鍵運行程式碼，將彈出一個提示框提醒您選擇要使用的數據範圍。請參見截圖：

4. 然後點擊確定，另一個提示框將出現讓您選擇放置結果的位置，請參見截圖：

5. 點擊確定關閉此對話框，所有唯一值將一次性提取出來。

更多相關文章：