VBA Code for numbering an array

[way15126]

Hi all,

I am looking for a VBA code to generate the following arrays:

Input array:

array1(12 , 5 , 12 , 5 , 5 , 3 , 4 , 3 , 4)

Output array:

array2( 1,  1 ,  2 , 2 , 3 , 1 , 1 , 2 , 2)

The output array numbers the number of times the respective array input has been shown before.
Eg.
array1(1) = 12, and is the first time its showing, thus array2(1) = 1
array1(2) = 5, and is the first time its showing, thus array2(2) = 1
array1(3) = 12, and is the second time its showing, thus array2(3) = 2
array1(4) = 5, and is the second time its showing, thus array2(4) = 2

and so on so forth.

I am thinking of considering the first x elements of the array through a loop, and counting the number of occurrences of that particular element in array1 and then storing it in array2, but I am unsure of how to consider only the first x elements of an array.

Appreciate any help at all! Thank you.

 

[veyselemre]

Hi.
Try this.

Sub test()
    Dim array1, array2, i%
    array1 = Array(12, 5, 12, 5, 5, 3, 4, 3, 4)
    ReDim array2(LBound(array1) To UBound(array1))
    With CreateObject("Scripting.Dictionary")
        For i = LBound(array1) To UBound(array1)
            krt = array1(i)
            .Item(krt) = .Item(krt) + 1
            array2(i) = .Item(krt)
        Next i
    End With
    
    MsgBox Join(array1, ", ") & vbCr & Join(array2, ", ")
End Sub

 

[way15126]

Hi.
Try this.

Sub test()
    Dim array1, array2, i%
    array1 = Array(12, 5, 12, 5, 5, 3, 4, 3, 4)
    ReDim array2(LBound(array1) To UBound(array1))
    With CreateObject("Scripting.Dictionary")
        For i = LBound(array1) To UBound(array1)
            krt = array1(i)
            .Item(krt) = .Item(krt) + 1
            array2(i) = .Item(krt)
        Next i
    End With
   
    MsgBox Join(array1, ", ") & vbCr & Join(array2, ", ")
End Sub

Hi veyselemre,

Thanks! The code works perfectly.

way15126