如何从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