如何在 Excel 中建立跨多個工作表的唯一值清單？

作者曉陽修改日期2025-04-17

當您在 Excel 中處理分散於多個工作表的資料時，可能需要整合資訊並產生一份唯一值清單。雖然 Excel 未內建直接達成此目標的功能，但仍有幾種實用方法可協助您完成。本文將逐步介紹三種有效做法，助您輕鬆從多個工作表建立唯一值清單。

從多個工作表建立唯一值清單

使用 VBA 程式碼
透過 KUTOOLS AI 助手
使用公式（Excel 365）

使用 VBA 程式碼從多個工作表建立唯一值清單

若要列出所有工作表中的所有唯一值，下列 VBA 程式碼或許能助您一臂之力，請依下列步驟操作：

1. 按住「Alt + F11」鍵，即可開啟「Microsoft Visual Basic for Applications」視窗。

2. 點擊「插入」>「模組」，並將下列巨集貼上至模組視窗中。

VBA 程式碼：從多個工作表建立唯一值清單：

Sub SheelsUniqueValues()
Dim xObjNewWS As Worksheet
Dim xObjWS As Worksheet
Dim xStrAddress As String
Dim xIntRox As Long
Dim xIntN As Long
Dim xFNum As Integer
Dim xMaxC, xColumn As Integer
Dim xR As Range
xStrName = "Unique value"
Application.ScreenUpdating = False
xMaxC = 0
Application.DisplayAlerts = False
For Each xObjWS In Sheets
    If xObjWS.Name = xStrName Then
        xObjWS.Delete
        Exit For
    End If
Next
Application.DisplayAlerts = True
For xFNum = 1 To Sheets.Count
    xColumn = Sheets(xFNum).Cells.Find(What:="*", after:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    If xMaxC < xColumn Then
        xMaxC = xColumn
    End If
Next xFNum
Application.DisplayAlerts = True
Set xObjNewWS = Sheets.Add(after:=Sheets(Sheets.Count))
xObjNewWS.Name = xStrName
For xColumn = 1 To xMaxC
    xIntN = 1
    For xFNum = 1 To Sheets.Count - 1
        Set xR = Sheets(xFNum).Columns(xColumn)
        If TypeName(Sheets(xFNum).Columns(xColumn).Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious)) <> "Nothing" Then
            xIntRox = xR.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
            Sheets(xFNum).Range(Cells(1, xColumn).Address & ":" & Cells(xIntRox, xColumn).Address).Copy
            Cells(xIntN, xColumn).PasteSpecial xlValues
            xIntN = xIntRox + xIntN + 1
        End If
    Next xFNum
    If xIntRox - 1 > 0 Then
    xIntRox = xIntN - 1
    xStrAddress = Cells(1, xColumn).Address & ":" & Cells(xIntRox, xColumn).Address
    Range(xStrAddress).AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    Range(xStrAddress).Copy
    Cells(1, xColumn + 1).PasteSpecial xlValues
    Range(xStrAddress).AdvancedFilter Action:=xlFilterInPlace, Unique:=False
    Columns(xColumn).Delete
    Range(xStrAddress).Sort key1:=Cells(1, xColumn), Header:=xlNo
    End If
Next xColumn
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3. 貼上上述程式碼後，按下 F5 執行程式碼，系統會自動建立一個名為「Unique value」的新工作表名稱，並如以下截圖所示，列出所有工作表 A 欄中的唯一名稱：

顯示不同工作表中的資料以及在另一個工作表中提取的唯一值的螢幕截圖

使用 KUTOOLS AI 助手從多個工作表建立唯一值清單

本節將示範如何運用 KUTOOLS AI 助手，輕鬆從多個工作表中建立唯一值清單。

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

點擊「Kutools」>「AI 助手」以開啟「KUTOOLS AI 助手」窗格，並在窗格中執行下列操作：

在聊天框中輸入需求，例如：
從此活頁簿的所有工作表中提取 A 欄的所有唯一值，並將這些唯一值列於新工作表中
接著按下 ENTER 鍵或點擊「傳送」按鈕。KUTOOLS AI 將分析您的問題；完成後，請點擊「執行」按鈕，即可在新工作表中顯示來自多個工作表的所有唯一值。請參閱以下示範：

使用公式從多個工作表建立唯一值清單（Excel 365）

若您希望在 Excel 中使用公式從多個工作表建立唯一值清單，可透過結合 UNIQUE 與 VSTACK 等動態陣列函數，在 Excel 365 中輕鬆達成此目的。

請在空白儲存格中輸入下列公式，然後按下 ENTER 鍵，即可將多個工作表中的唯一值提取並整合至單一欄位。詳情請參閱截圖：

=UNIQUE(VSTACK(Sheet1!A1:A11, Sheet2!A1:A11, Sheet3!A1:A11, Sheet4!A1:A11))

使用公式從多個工作表提取唯一值

公式說明：

VSTACK 將多個範圍（例如 Sheet 1!A1:A11、Sheet 2!A1:A11、Sheet 3!A1:A11、Sheet 3!A1:A11）合併成單一垂直陣列。
UNIQUE 篩選出重複項目，僅從合併清單中傳回唯一值。
A1:A11：調整範圍，以涵蓋您的實際數據區域。

本文探討三種在 Excel 中從多個工作表建立唯一值清單的高效方法，各有優勢！您可以根據自己的 Excel 版本、技能程度與實際需求，選擇最適合的方式。我們的網站提供數千篇教學文章，助您深入掌握更多 Excel 技巧與秘訣！

最佳 Office 生產力工具

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