如何從 Excel 的欄位範圍中動態提取唯一值清單？

作者Siluvia修改日期2024-08-22

若某個欄位範圍中的數值經常變動，而您又需要隨時取得該範圍內的所有唯一值，不論其如何變化，該如何建立一份動態的唯一值清單？本文將為您詳解解決之道。

使用公式從欄位範圍中動態提取唯一值清單
 使用 VBA 程式碼從欄位範圍中動態提取唯一值清單

使用公式從欄位範圍中動態提取唯一值清單

如下圖所示，您需要從 B2:B9 範圍中動態提取唯一值清單，請試用以下陣列公式。

原始資料範圍與唯一值清單的螢幕截圖

1. 選取一個空白儲存格（例如 D2），輸入下列公式，然後同時按下 Ctrl+Shift+Enter 鍵。（B2:B9 為您要提取唯一值的欄位資料，D1 為公式所在儲存格的上一格）

=IFERROR(INDEX($B$2:$B$9, MATCH(0,COUNTIF($D$1:D1, $B$2:$B$9), 0)),"")

使用陣列公式提取第一個唯一值的螢幕截圖

2. 保持選取 D2 儲存格，然後向下拖曳填滿控點，即可從限定區域提取所有唯一值。

所有唯一值的螢幕截圖

現已從欄位範圍 B2:B9 提取出所有唯一值，且當此範圍內的數值變更時，唯一值清單將立即動態更新。

「選擇重複/唯一儲存格」功能可協助您輕鬆選取並標示所有唯一值（包含首次出現的重複項目）或僅出現一次的唯一值，還能根據需求進一步處理重複值，如下圖所示。Kutools for Excel
立即下載 Kutools for Excel！（提供 30 天免費試用）

使用 Kutools for Excel 輕鬆選取並醒目提示範圍內所有唯一值的螢幕截圖

使用 VBA 程式碼從欄位範圍中動態提取唯一值清單

您也可以透過以下 VBA 程式碼，從欄位範圍中動態提取唯一值清單。

1. 同時按下 Alt+F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗！

2. 在 Microsoft Visual Basic for Applications 視窗中，點選插入 > 模組，接著將下方的 VBA 程式碼複製並貼上至模組視窗中。

VBA 程式碼：從範圍中提取唯一值清單

Sub CreateUniqueList()
Dim xRng As Range
Dim xLastRow As Long
Dim xLastRow2 As Long
Dim I As Integer
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
xRng.Copy Range("D2")
xLastRow = xRng.Rows.Count + 1
ActiveSheet.Range("D2:D" & xLastRow).RemoveDuplicates Columns:=1, Header:=xlNo
xLastRow2 = Cells(Rows.Count, "B").End(xlUp).Row
For I = 1 To xLastRow2
  If ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Value = "" Then
     ActiveSheet.Range("D2:D" & xLastRow2).Cells(I).Delete
  End If
Next
End Sub

注意：程式碼中的 D2 為您存放唯一值清單的儲存格，可依需求調整。

3. 返回工作表，點選插入 > 圖案 > 矩形。請參閱下圖：

在工作表中插入矩形的螢幕截圖

4. 在工作表中繪製一個矩形，輸入所需文字，然後右鍵點選該矩形，從右鍵選單中選擇指定巨集。在指定巨集對話方塊中，於巨集名稱框中選取 CreateUniqueList，再按一下確定按鈕。請參閱下圖：

將 VBA 程式碼指派給此矩形的螢幕截圖

5. 現在點選矩形按鈕，將彈出 Kutools for Excel 對話方塊，請選取包含您要提取之唯一值的範圍，再點擊確定按鈕。

按一下矩形後選取原始資料範圍的螢幕截圖

日後，您只需重複上述步驟 5，即可自動更新唯一值清單。

最佳 Office 生產力工具

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