excel如何用代码筛选重复的数据,只留下一个

问题补充说明：如图：下拉列表完全引用了E列的数据，现在我只想重复的数据只出现一个，如何增加代码？（下拉列表是用代码完成的，不是通过有效性做的）... 如图：下拉列表完全引用了E列的数据，现在我只想重复的数据只出现一个，如何增加代码？（下拉列表是用代码完成的，不是通过有效性做的） 展开

Sub FilterDicValid()    Dim arr, lRo来自ws As Long    Dim myDic As Object

    Dim i As Long

    Application.Scre360问答enUpdating = F何门必条换孔胞听抗alse

'-----------------------------------------------------

    With Range("E2", Range("E2").End(xlDown))

        lRows = .Rows.Count

        arr = .Value

    End With

'-----------------------------------------------------

    Set myDic = CreateObject("Scripting.Dictionar值挥y")

    For i = 1 To UBound(arr)

        myDic(arr(i, 1)) = ""

    Next

'-----------------------------------------------------

    With Ran满茶谈伤增秋助ge("B2").V否本alidation

        .Delete

        .Add Type:=x纸lValidateList, AlertStyle:=xlValidAlertStop, _

        Operator:=xlBetw航维呀丝胶经候盐件een, Formula1:=Join(myDic.keys, ",")

    E及刘止露必械nd With

    Set myDic = Nothing

'-------------广执培标西四财----------------------------------------

    Application.Screen非位维食女品源Updating = True

End Sub

 用字典+欢呀烈沿卫专突找急太有效性可以实现，在B2单元格可以下拉选择映推，且列表数据具有唯一性