excel中宏编辑中，如何返回“数据有效性”设置时的每一项值

来源：百度知道 编辑：UC知道 时间：2024/06/09 05:29:28
如果单元格的“数据有效性”中设置序列为“四川省,甘肃省,山西省”。在编程时，如何获取这个单元格的每个序列，并且赋值给不同的变量？

看这段代码，就能明白了。

Dim a As Variant
a = Range(Mid(Me.Cells(10, 4).Validation.Formula1, 2)).Value

For i = LBound(a) To UBound(a)
Debug.Print a(i, 1)
Next

需要注意的是，取得的是2维数组。