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

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

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

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

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

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

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

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

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

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

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

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 是兩個列表框的名稱，將它們更改為您自己的名稱。

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

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

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

相關文章：

• 如何在 Excel 中清除依賴下拉列表單元格後選擇改變？
• 如何在 Excel 中創建依賴級聯下拉列表？
• 如何在 Excel 下拉列表中選擇值時自動填充其他單元格？
• 如何在 Excel 中創建下拉日曆列表？
• 如何在 Excel 中保存或保留 ActiveX 列表框的選擇？