给每列下拉列表去重

雷雷爸

各位大神好，我这边有张工作表，下拉列表需要去重，因为是动态的是否可以不留空白行，其他还有几列是引用的数据源内容，也可以用vba实现吗？我用的是WPS，很多函数不能用，用过数组函数导致工作簿太卡，没法使用，请问各位老师能否用VBA的方法解决，第三行用的VLOOKUP函数根据序号查找的下方函数，也可以用VBA解决吗？谢谢各位老师

全党

Sub shishi()
    Dim Rng As Range
    Set dic = CreateObject("scripting.dictionary")
    With Worksheets("生产日志")
    For i = 4 To 6
        rn = .Cells(.Rows.Count, i).End(xlUp).Row
        For j = 5 To rn
        dic(.Cells(j, i).Value) = ""
        Next
        ar = dic.Keys
            With .Range(Cells(4, i), Cells(rn, i)).Validation
                 .Delete
                 .Add Type:=xlValidateList, Formula1:=Join(ar, ",")
            End With
    dic.RemoveAll
    Next
    End With
End Sub

全党

试试。。。。。。。。。。。。。。

suntao2000

~~~~~~~~~~~~~~~~~

雷雷爸

suntao2000 发表于 2023-6-6 15:12
~~~~~~~~~~~~~~~~~

感谢老师老师的帮助，基本已经解决，就是鼠标点击有点灵敏，应该是事件触发的原因吧

雷雷爸

全党 发表于 2023-6-6 15:04
试试。。。。。。。。。。。。。。

感谢老师的帮忙，代码实现了去重但是下方单元格无法输入新的内容了

洋务德雷

不用vba，使用SQL完美解决。就是需要新建一个工作表，放一下基础数据。看一下吧。有用给个鲜花呗。

shiruiqiang

洋务德雷 发表于 2023-6-6 20:41
不用vba，使用SQL完美解决。就是需要新建一个工作表，放一下基础数据。看一下吧。有用给个鲜花呗。

看楼主历史记录，没送过花

洋务德雷

shiruiqiang 发表于 2023-6-6 21:00
看楼主历史记录，没送过花

谢谢！！！！！

雷雷爸

shiruiqiang 发表于 2023-6-6 21:00
看楼主历史记录，没送过花

不会送啊老师，我来试试啊，才知道这个平台