Excel将下拉列表的所有数据提取到列中答案

【问题标题】：Excel extract all data of drop down list into ColumnExcel将下拉列表的所有数据提取到列中
【发布时间】：2016-02-18 21:39:41
【问题描述】：

我从其他工作表复制了一个下拉列表单元格并尝试获取其所有项目名称。下拉列表是通过this 链接的excel 属性创建的，而不是使用Combo Box。有没有办法获取下拉列表的所有项目？表示获取映射到下拉列表的原始列表。

我也尝试通过 VB 脚本来获取它，但它不起作用。

Dim dd As DropDown
Set dd = ActiveSheet.DropDowns("MyDropDown")

当我调试该代码时，它在

处显示“无法获取工作表类的下拉列表属性”错误

Set dd = ActiveSheet.DropDowns("MyDropDown")

线和这个Excel dropdowns in VBA: "Unable to get the DropDowns property of the Worksheet class" 没有帮助我。 ActiveSheet.DropDowns("MyDropDown") 是否仅适用于组合框？那么我如何使用 excel 属性或 VB 脚本获取所有项目？

【问题讨论】：

标签： vba excel

【解决方案1】：

啊，您最初的问题并没有明确说明您正在使用数据验证。要遍历数据验证列表中的所有项目，您可以使用以下代码：

Sub loopthroughvalidationlist()
     Dim inputRange As Range
     Dim c As Range
     ' Change range below to first cell in your list
     Set inputRange = Evaluate(Range("J6").Validation.Formula1)
     For Each c In inputRange
        MsgBox (c)
     Next c
End Sub

【讨论】：