從宏中讀取Excel單元格下拉值

Question

我有一個excel文件，其中有一個單元格，它是一個列表，並具有值「美國」，「印度」，「歐洲」，「倫敦」的單元格。 我想從宏中讀取這個單元格中存在的所有下拉值......任何人都可以幫助我？

Answer 1

我假設您的Excel表中的列表已經使用Data>Validation創建？

假設您在電子表格的單元格A1中有一個列表，以下代碼將檢索列表中的所有值。

Sub GetDropDownListValues() 
    Dim sourceList As Range 
    Set sourceList = Evaluate(Range("A1").Validation.Formula1) 

    Dim cl As Range 

    For Each cl In sourceList 
     Debug.Print cl 
    Next cl 

End Sub 

希望幫助