如何将 excel 中经过数据验证的单元格中的所有下拉值提取到每个值的单个单元格中?

How to extract all drop down values from a data validated cell in excel to single cells for each value?

我在 Excel 中有一个下拉列表,其中包含 500 个值。如何将这些值放入每个值的单个单元格中?基本上,500 个不同单元格中的 500 个值,我可以从中使用这些值,而无需搜索整个下拉列表。

注意:我无法使用数据验证对话框,因为这些值是从我无法访问的另一个工作簿中引用的

假设您在 A1 单元格中进行了数据验证。使用以下 sub 将验证列表提取到 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