Count Duplicates from VBA Array?

[mfleming]

Hi.

I currently have an array and I want to count the number of duplicates in this array, but I'm not sure exactly the best approach for this.

Current Array
Array: arry(i,count)

arry(1,count) = 'ISB2-01"
arry(2,count) = 'ISB2-01"
arry(3,count) = 'ISB2-02"
arry(4,count) = 'ISB2-02"
arry(4,count) = 'ISB2-02"
arry(5,count) = 'ISB2-03"

New Array Result (this is what I want to end up with)

newarry(string,count) = newarry("ISB2-01",2)
newarry(string,count) = newarry("ISB2-02",3)
newarry(string,count) = newarry("ISB2-03",1)


I know this is pretty easy but I can't rap my head around it to get this.

[Colin Legg]

Hi,

You could consider using a dictionary object to do this. For example:

Please Login or Register  to view this content.

Results in immediate window:

Please Login or Register  to view this content.

This example uses early binding so it requires a reference to the Microsoft Scripting Runtime library.

[mfleming]

Is there any downfall with using this MS reference?

[Colin Legg]

No, not really. Here's a late bound version if you don't want to add the reference...

Please Login or Register  to view this content.