从宏中读取Excel单元格下拉值

Question

我有一个excel文件，其中我有一个列表的单元格，其值为“USA”，“India”，“Europe”，“London”。 我想从宏中读取这个单元格中存在的所有下拉值......任何人都可以帮助我吗？

Answer 1

我假设您的Excel工作表中的列表已使用Data＆gt;创建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

希望有所帮助