[已解决]求助字典唯一值

罗非鱼

如果有10行3列数据，用字典方法求唯一值？

最佳答案

月排行榜 / 总排行榜

zjdh

2012-10-11 17:43

自己修改吧：
Sub TEST()
    Set D = CreateObject("scripting.dictionary")       '设置字典
    For Each RAN In Range("A1:C10")                      '可修改为你的区域
        D(RAN.Value) = ""
    Next
    Range("E1").Resize(D.Count) = Application.Transpose(D.KEYS)  '获得不重复值
End Sub

跳转到最佳答案楼层

zjdh

自己修改吧：
Sub TEST()
    Set D = CreateObject("scripting.dictionary")       '设置字典
    For Each RAN In Range("A1:C10")                      '可修改为你的区域
        D(RAN.Value) = ""
    Next
    Range("E1").Resize(D.Count) = Application.Transpose(D.KEYS)  '获得不重复值
End Sub

罗非鱼

我看了大师的代码感觉我好愚蠢啊、、、这么简单。是我把问题想复杂了