[已解决]请教一个名单筛选的问题

xzwdk

      工作表中A列是不断更新的人员名单，且输入格式也不同，如附件。打算在B列中将不同姓名列出清单，排序可以没有规律（如果能按姓氏排列最好）。最后是想在C列做一个下拉菜单，对每一位参培人员可以选择，如果A列中有新增人员出现，希望这个C列中下拉菜单中的内容能够自动更新，并且下拉选项中不希望出现空格。望朋友帮忙解决。

最佳答案

月排行榜 / 总排行榜

JLxiangwei

2013-8-21 15:31

xzwdk 发表于 2013-8-21 15:17
谢谢。我想要在B列首先显示结果，因为B列的结果我需要首先引用，才用到C列的功能，谢谢支持。

不是不可以，只是说，B列现在不需要你引用，自动就生成了数据有效性
你引用是什么意思


筛选名单.rar (10.2 KB, 下载次数: 7)

2013-8-21 15:34 上传

点击文件名下载附件

跳转到最佳答案楼层

sliang28

统一数据源格式，使用分列，然后去重，去重你懂得。

xzwdk

sliang28 发表于 2013-8-19 14:01
统一数据源格式，使用分列，然后去重，去重你懂得。

本人刚入托，最好采用函数实现，请上附件指导,谢谢！

sliang28

xzwdk 发表于 2013-8-19 14:14
本人刚入托，最好采用函数实现，请上附件指导,谢谢！

说的已经很明白了，入托不是理由。
想：如何统一数据格式。
查：如何分列，如何去重。

xzwdk

有能解决的方案吗？谢谢！

JLxiangwei

筛选名单.rar (10.93 KB, 下载次数: 2)

2013-8-21 14:41 上传

点击文件名下载附件


试试看呢


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim arr, arr1, arr2
    Dim x&, y&, k&, d As New Dictionary
    arr = Range("A1").CurrentRegion
    If Target.Address = "$C$1" Then
        For x = 2 To UBound(arr)
            arr(x, 1) = Replace(Replace(arr(x, 1), "、", "/"), " ", "/")
            arr1 = Split(arr(x, 1), "/")
            For y = 0 To UBound(arr1)
                If Not d.Exists(arr1(y)) Then
                    k = k + 1
                    d.Add arr1(y), ""
                End If
            Next
        Next
        With Range("C1").Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                                                                               xlBetween, Formula1:=Join(d.Keys, ",")
        End With
    End If
End Sub

xzwdk

JLxiangwei 发表于 2013-8-21 14:43
试试看呢

谢谢老师的帮助。请问老师程序运行后，能不能先在B列显示出唯一性名单的结果，然后再用C1进行有效性选择呢？

JLxiangwei

xzwdk 发表于 2013-8-21 15:00
谢谢老师的帮助。请问老师程序运行后，能不能先在B列显示出唯一性名单的结果，然后再用C1进行有效性选择呢 ...

筛选名单.rar (10.23 KB, 下载次数: 2)

2013-8-21 15:10 上传

点击文件名下载附件

再试试，单你点C1单元格时，不重复记录就会在B列出现

xzwdk

JLxiangwei 发表于 2013-8-21 15:11
再试试，单你点C1单元格时，不重复记录就会在B列出现

谢谢。我想要在B列首先显示结果，因为B列的结果我需要首先引用，才用到C列的功能，谢谢支持。

JLxiangwei

xzwdk 发表于 2013-8-21 15:17
谢谢。我想要在B列首先显示结果，因为B列的结果我需要首先引用，才用到C列的功能，谢谢支持。

不是不可以，只是说，B列现在不需要你引用，自动就生成了数据有效性
你引用是什么意思


筛选名单.rar (10.2 KB, 下载次数: 7)

2013-8-21 15:34 上传

点击文件名下载附件