Как извлечь все выпадающие значения из проверенной ячейки данных в Excel в отдельные ячейки для каждого значения?

Question

У меня есть выпадающий список в Excel с 500 значениями в нем.Как мне получить эти значения в отдельные ячейки для каждого значения?В основном, 500 значений в 500 различных ячейках, из которых я могу использовать эти значения без необходимости поиска по всему раскрывающемуся списку.

ПРИМЕЧАНИЕ. Я не могу использовать диалоговое окно проверки данных, так как на значения ссылаются из другой книгик которому у меня нет доступа

Answer 1

Предположим, у вас есть проверка данных в ячейке A1.Используйте следующую подпункт для извлечения списка проверки в Column B означает из B1, B1, B3 …..

Sub ExtractValidationList()
Dim x() As String

   x = Split(Range("A1").Validation.Formula1, ",")
   For i = 0 To UBound(x)
        Cells(i + 1, 2) = x(i)
   Next

End Sub