求助，数据验证下拉框问题。

RayJ · 发表于 2014-4-25 11:57

请教论坛大师，我想通过数据验证做个下拉框，数据源不是单列的内容，由多列组成。但我不想添加辅助列，或把所有列复制粘贴到一列来实现，请问这个语句如何写，或有何其他办法。多谢！如下图。
excel dropdown list.PNG

juicylele · 发表于 2014-4-27 16:03

先将第一列数据命名数据有效性选择序列之后下面的引用范围直接输入你命名的名称这时第一列数据就在下拉列表中
然后选择公式-数据重新命名将所有数据范围都变成你刚才的命名然后就可以了我用的是03版没具体找到重新命名那个按键到底在哪里但是原理就是这样子

juicylele · 发表于 2014-4-27 16:08

http://jingyan.baidu.com/album/9 ... 67e.html?picindex=4
这个更直白你看下吧

RayJ · 发表于 2014-4-28 11:31

本帖最后由 RayJ 于 2014-4-28 11:46 编辑

juicylele 发表于 2014-4-27 16:08
http://jingyan.baidu.com/album/925f8cb833d265c0dce0567e.html?picindex=4
这个更直白你看下吧

多谢 juicylele!
你说的方法可以实施，不过这要基于每列数据行数相等的情况效果比较好。我的情况是每列行数不等，这样做出来就会有很多的空白单元格，请看图

excel dropdown list1.PNG

已经勾选忽略空格，不过似乎不起作用
excel dropdown list2.PNG

另外，我希望能同时对下拉列表里的内容进行排序。

RayJ · 发表于 2014-4-28 11:33

本帖最后由 RayJ 于 2014-4-28 11:37 编辑

我找到下面这段用vba的方法可以达到要求，但是显示出来的数据不能按排序列出，不知哪里需要修改，本人是vba新手。谢谢。

Dim i%, j%, k%, d As Object, arr()
Set d = CreateObject("scripting.dictionary")
For j = 1 To 33
i = Cells(65536, j).End(xlUp).Row
For k = 2 To i
      m = m + 1
      ReDim Preserve arr(1 To m)
      arr(m) = Cells(k, j)
      If Not d.exists(arr(m)) Then d.Add (arr(m)), ""
Next k
Next j
With [A1:D4].Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Join(d.keys, ",")
End With

tq014s4 · 发表于 2014-7-2 21:02

这个方法和INDIRECT大致一样，也会出现，如果第一列是两行第二列是三行，就会在数据有效性的选择区域里出现空白

		自动登录	找回密码
密码			免费注册