jacky
问题补充说明：如图：下拉列表完全引用了E列的数据，现在我只想重复的数据只出现一个，如何增加代码？（下拉列表是用代码完成的，不是通过有效性做的）... 如图：下拉列表完全引用了E列的数据，现在我只想重复的数据只出现一个，如何增加代码？（下拉列表是用代码完成的，不是通过有效性做的） 展开
Sub FilterDicValid() D够im arr, lRows As Long Dim myDic As O本曾互倍岩致跑声审立章bject
D来自im i As Long
Application.ScreenUpdating = False
'--------------------坐坐甲持言班威兵---------------------------------
With Range("E2", Range("E2").End(xlDown))
lRows = .固我坏混选Rows.Count
arr = .Value
End With
'---------------------------------席克露每担成军真练士--------------------
Set myDic = CreateObject("Scripting.Dictionary")
For i = 1 To UB360问答ound(arr)
myDic(arr(i, 1)) = ""
Next
'-----------------------------------------------------
With Range("B2").Validation
.Delete
.Add Type:=检xlValidateL真ist, AlertStyle:=xlValidAlertStop, _
Operator:=xlBetween, Formula1:=Join(myDic.keys, ",")
End With
Set myDic = Nothing
'--------------------------跑深住议压顶-------------械色出发--------------
Appl应约看农胜井今ication.ScreenUpdating = True
End Sub
用字典+有效性可以实现，在B2单元格可以下拉选择，且列表数据具有唯一性
