表格常用提取不重复值方法

本软件下载地址未录入，如想要软件请评论，我们会补上！
  表格常用提取不重复值方法代码如下：

Sub 取不重复值()

    Dim data, temp1

    Dim d

    Dim i&

    Set d = CreateObject("s cripting.dictionary")

    data = Sheets("VBA方法").[a1].CurrentRegion

    For i = 1 To UBound(data)

        d(data(i, 1) & "") = ""

    Next

    temp1 = d.keys

    Sheets("VBA方法").[H1].Resize(d.Count, 1) = Application.Transpose(temp1)

End Sub