Determine the most frequent item in an array.

[JohnSeito]

Hello,

Does anyone have a readily code or function that determines the most frequent item in the array ?
I think it will take me a while to come up with it.

I created an array

Dim ar(50)

It stored up to 50 items, sometimes the items can all be the same, other times it could be different.
I just want to find the item that stored in there the most frequent time.
This array can be 50 or 60 or 100, I just decided to set it to 50 but maybe I will change this to more if I decided I needed to for some reason.
Thanks

 

[Peter_SSs]

My assumption is that there could be more than one item that occurs the most number of times. See if you can use this code snippet. At the end of this snippet, the variable ItemsList should contain the most frequent item(s)

Dim i As Long, maxVal As Long
Dim d As Object
Dim ItemsList As String

Set d = CreateObject("Scripting.Dictionary")
For i = LBound(ar) To UBound(ar)
  If Not IsEmpty(ar(i)) Then d(ar(i)) = d(ar(i)) + 1
Next i

For i = 1 To d.Count
  If d.Items()(i - 1) > maxVal Then
    maxVal = d.Items()(i - 1)
    ItemsList = d.Keys()(i - 1)
  ElseIf d.Items()(i - 1) = maxVal Then
    ItemsList = ItemsList & ", " & d.Keys()(i - 1)
  End If
Next i

 

[JohnSeito]

Thank you for your code example. I will give it a try.

 

[JohnSeito]

Thank you Boss. That work like a Charm.

 

[Peter_SSs]

Thank you Boss. That work like a Charm.

You are welcome.