Чтение выпадающих значений ячейки 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 

Надежда, что помогает