用字典方式获取非重复值

泓()

1. Sub GetOnly()
   
2.     Dim mDic, mKey, i&, mArr
   
3.     mArr = Sheet2.Range("A2:A" & Sheet2.Cells(Rows.Count, 1).End(3).Row)
   
4.     Set mDic = CreateObject("Scripting.Dictionary")
   
5.     For i = 1 To UBound(mArr)
   
6.         mDic(mArr(i, 1)) = Empty
   
7.     Next
   
8.     Sheet2.Cells(2, 2).Resize(mDic.Count, 1) = Application.Transpose(mDic.keys)
   
9.     Set mDic = Nothing
   
10. End Sub

复制代码