UniqueValue

Arr Can Be Array Or Rang

 خروجی میتواند آرایه ای از ولیوهای بدون تکرار باشد 

Dim E As Variant

Dim Unique() As Variant

Dim NotMatch As Boolean 

Dim Num As Long

Num=0

(  For Each E In Arr  '  ( Array Or Range

NotMatch=True

For i=1 To Num                   

if E=U ique(i) Then                            

NotMatch=False                           

 goto NextPos                              

End If                           

Next                    

  NextPos  :  ' AddItem

if NotMatch Then 

Num=Num+1

Redim'

Unique(i)=E

End if

Next