Excel將下拉列表的所有數據提取到Column中

Question

我已經從其他工作表中復制了一個下拉列表單元格，並試圖獲取其所有項目名稱。 下拉列表是通過excel屬性通過此鏈接創建的，而不是使用Combo Box 。 有什么方法可以獲取下拉列表中的所有項目？ 均值獲取映射到下拉列表的原始列表。

我也嘗試通過VB腳本來獲取它，但是它不起作用。

Dim dd As DropDown
Set dd = ActiveSheet.DropDowns("MyDropDown")

當我調試該代碼時，它顯示“無法獲取工作表類的dropdowns屬性”錯誤

Set dd = ActiveSheet.DropDowns("MyDropDown")

行和VBA中的此Excel下拉列表：“無法獲取Worksheet類的DropDowns屬性”對我沒有幫助。 ActiveSheet.DropDowns（“ MyDropDown”）僅適用於組合框嗎？ 然后，如何使用excel屬性或VB腳本獲取所有項目？

Answer 1

嗯，您最初的問題並不清楚您使用的是數據驗證。 要遍歷數據驗證列表中的所有項目，可以使用以下代碼：

Sub loopthroughvalidationlist()
     Dim inputRange As Range
     Dim c As Range
     ' Change range below to first cell in your list
     Set inputRange = Evaluate(Range("J6").Validation.Formula1)
     For Each c In inputRange
        MsgBox (c)
     Next c
End Sub