arrays count unique items?

[zrx1200]

Hello folks,

I have an array of say (s,e,se,sw,s,n,ne,ne,s,e,se) and would like the count of the unique items in that array using VBA. 7 in this example I believe.

Is this possible and how would it be done?

 

[Peter_SSs]

... offering what I see as a more direct method without the need for that extra 'object' whether it be a collection or a dictionary.

However, what I saw as "more direct" is relatively slow. This 'string manipulation' method is considerably faster ...

Sub CountUnique_v2()
  Dim myArray As Variant
  Dim Joined As String
 
  myArray = Array("s", "e", "se", "sw", "s", "n", "ne", "ne", "s", "e", "se")
  Joined = "|" & Join(myArray, "||") & "|"
  Do Until Replace(Joined, ".", "") = ""
    Joined = Replace(Joined, Left(Joined, InStr(2, Joined, "|")), "") & "."
  Loop
  MsgBox "Unique count = " & Len(Joined)
End Sub

... however, if speed was an issue, I think I would go for the 'collection' code of post 8.