想用vba做个不重复的下拉，用数据有效性做的下拉有重复项

wm863636363

想用vba做个不重复的下拉，用数据有效性做的下拉有重复项，不想要重复项，请大哥们帮忙制作一下，感激不尽

gwjkkkkk

Option Explicit
Sub TEST6()
    Dim ar, i&, dic As Object
   
    Application.ScreenUpdating = False
    Set dic = CreateObject("Scripting.Dictionary")
   
    With Sheets(2)
        ar = Range(.[B1], .Cells(Rows.Count, "B").End(xlUp)).Value
        For i = 2 To UBound(ar)
            If Len(ar(i, 1)) Then dic(ar(i, 1)) = Empty
        Next i
    End With
   
    ar = Array("A2", "F2")
    For i = 0 To UBound(ar)
        With Range(ar(i)).Validation
            .Delete
            .Add xlValidateList, xlValidAlertStop, xlEqual, Join(dic.keys, ",")
        End With
    Next i
   
    Set dic = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考。。。

鄂龙蒙

VBA做个下拉.rar (89.59 KB, 下载次数: 21)

2024-4-14 16:48 上传

点击文件名下载附件

杨建营

代码在工作表事件中，请楼主参考。

杨建营

wm863636363

鄂龙蒙 发表于 2024-4-14 16:48

感谢大哥，测试成功，已经成功引用了你制作的代码到我的表格中，谢谢！