如何在 Excel 中創建動態級聯列表框？

Author Siluvia Last modified 2025-08-23

您可能知道如何在 Excel 中創建級聯驗證下拉列表。然而，如何在 Excel 中創建動態級聯列表框呢？本文介紹了一種使用 VBA 方法來實現這一功能的方法。

使用 VBA 代碼創建動態級聯列表框

如下圖所示，您需要創建一個父列表框，其中包含「飲料」列的唯一值，並根據父列表框中的選擇，在第二個列表框中顯示所有對應的值。以下 VBA 代碼可幫助您實現此功能。請按照以下步驟操作：

dynamic cascading list boxes

1. 首先，您需要從「飲料」列中提取所有唯一值。選擇一個空白單元格，在編輯欄中輸入數組公式 =IFERROR(INDEX($A$2:$A$11, MATCH(0,COUNTIF($J$1:J1, $A$2:$A$11), 0)),"") ，然後按下 Ctrl + Shift + Enter 鍵。然後拖動填充柄以獲取所有唯一值。見截圖：

list all unique values with formula

備註：在公式中，$A$2:$A$11 是您要提取唯一值的區域。J1 是公式所在位置上方的單元格。

提示：如果公式太難記住和處理，Kutools for Excel 的「選擇重複與唯一單元格」工具將是快速從一列中提取所有唯一值的好選擇。

請選擇包含您要提取的唯一值的列。然後通過點擊 Kutools > 選擇 > 選擇重複與唯一單元格 啟用該工具。在「選擇重複與唯一單元格」對話框中，選擇「唯一值（包括第一個重複值）」選項並點擊「確定」按鈕。然後列中的所有唯一值都被選中。請將它們複製並粘貼到新位置。見截圖：

select unique values with kutools

Kutools for Excel：擁有超過 200 個實用的 Excel 增益集，免費試用 60 天無任何限制。 立即下載並免費試用！

2. 分別插入兩個列表框，方法是點擊 開發工具 > 插入 > 列表框（ActiveX 控件）。見截圖：

click List Box from Developer tab

3. 右鍵單擊父列表框，並從上下文菜單中選擇屬性。在屬性對話框中，將（名稱）字段更改為Drink或其他您需要的名稱，將包含提取的唯一值的單元格範圍輸入到ListFillRange字段中，然後關閉對話框。

specify the options in the Properties pane

4. 重複步驟 3，將第二個列表框的（名稱）字段在屬性對話框中更改為 Item。

5. 右鍵單擊工作表標籤，並從右鍵菜單中選擇 查看代碼。然後將以下 VBA 代碼複製到代碼窗口中。見截圖：

VBA 代碼：在 Excel 中創建動態級聯列表框

Dim xPreStr As String
Private Sub Drink_Click()
'Update by Extendoffice 2018/06/04
    Dim I, xRows As Long
    Dim xRg As Range
    Dim xRegStr As String
    Application.ScreenUpdating = False
    xRegStr = Me.Drink.Text
    Set xRg = Range("A2:A11")
    xRows = xRg.Rows.Count
    If xRegStr <> xPreStr Then
    Me.Item.Clear
   'Me.OtherListBoxName.Clear
    Set xRg = xRg(1)
    For I = 1 To xRows
        If xRg.Offset(I - 1).Value = xRegStr Then
            Me.Item.AddItem xRg.Offset(I - 1, 1).Value
            'Me.OtherListBoxName.AddItem xRg.Offset(I - 1, 2).Value
        End If
    Next
    xPreStr = xRegStr
    End If
    Application.ScreenUpdating = True
End Sub

注意：在代碼中，Drink 和 Item 是兩個列表框的名稱，將它們更改為您自己的名稱。

click View Code to pate the code into the module

6. 按下 Alt + Q 鍵以關閉 Microsoft Visual Basic for Applications 窗口。

7. 點擊 開發工具 > 設計模式 以關閉設計模式。

從現在開始，當在父列表框中選擇任何一種飲料（例如咖啡）時，所有咖啡項目將在第二個列表框中顯示。選擇茶或酒只會在第二個列表框中顯示茶或酒的項目。見截圖：

dynamic cascading list boxes are created

太棒了！在 Excel 中像 Chrome、Edge、Firefox 和 Safari 一樣使用 Efficient Tabs！
每天為您節省 50% 的時間，並減少數以千計的滑鼠點擊！

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多