数据有效性能否使用数组公式？

gvntw

想让单元格提供一个下拉菜单，数字1900—2100，但不想用辅助列，就在数据有效性里输入数组公式：=row(1900:2100)，但出现源目前包含错误，是否继续的对话框，改用名称输入也不行，请问，有效性不能输入数组公式吗？

[此贴子已经被作者于2007-6-13 10:30:59编辑过]

gdliyy

可以使用数组公式，但必须是引用，不能是用数组来生成的常量数组！

我原来也想偷懒，想直接用你的那种方法来生成序列，结果当然就不对了，这是规定，没办法！呵呵~~~

鱼之乐

但在数据有效性对话框中如何输入数组公式呢?难道直接输入{}吗?我试过这样是不行的

前几天正好遇到这个问题,是想把不重复值的公式输入到数据有效性中,试验了几次也没成功

tanshirong

我也曾试过不行。

失心

可用文本长度中的最小值与最大值 ，就可以

gvntw

以下是引用chenjun在2004-6-5 0:20:00的发言： 你除了直接一个一个写入有效性的来源中，就要引用已写好数据的单行或单列区域，不能引用一个内存中的数组，有效性中的引用必须是对单元格区域的引用（用OFFSET、INDIRECT函数指定的也行）。否则用VBA按上一楼的方法。

如果用控件，代码该如何写呢？如果直接一个一个写入有效性的来源中，是否有个数的限制？

狡兔〇Ｏｏ

好东西

但是有的看不懂啊

liyh67

以下是引用狡兔〇Ｏｏ在2004-12-27 16:43:00的发言：

好东西

但是有的看不懂啊

深有同感

Bruce_xu

前天也碰到了，用的是陈版主的方法。呵呵。

chenjun

不是的，是用add方法的key开关设置唯一性，给一个excel2002宝典中的例子。 Sub RemoveDuplicatest() Dim Allcells As Range,Cell As Range Dim NoDupes As New Collection

On Error Resume Next For Each Cell In Range("B1:B100") NoDupes.Add Cell.Value,CStr(Cell.Value) Next Cell For Each Item In NoDupes UserForm1.ListBox1.AddItem Item Next Item UserForm1.Show End Sub