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

Question

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

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

Answer 1

假设您在A1单元格中有数据验证。使用以下 sub 提取验证列表以从B1, B1, B3 ….. Column B均值

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