如何從excel中的數據驗證單元格中提取所有下拉值到每個值的單個單元格？

Question

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

注意：我無法使用數據驗證對話框，因為這些值是從我無權訪問的另一個工作簿中引用的

Answer 1

假設您在A1單元格中有數據驗證。 使用以下子從B1, B1, B3 …..提取驗證列表到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