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

RayJ

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

juicylele

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

juicylele

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

RayJ

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

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


已经勾选忽略空格，不过似乎不起作用

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

RayJ

我找到下面这段用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

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