ReDim Preserve Array if string does not exist

[cocacrave]

Hi,
I'm trying to add and preserve an 2d array. Empty to start.
First column will contain string, and Second column will contain numbers of times occurred.

I have a loop that goes through part of the sheet and takes a string from each cell let's call strStat.
If strStat is not found in the first column of the array let's call arrStat then redim preserve and add to first column and 1 to second column.
If strStat already exist in the first column of arrStat then add +1 to the second column.

I really don't know where to start. Can I get some help?

[GC Excel]

Maybe you could use a dictionary instead of an array.
If the string doesn't exists add it to the dictionary else add 1.

Here's a quick example :

Sub test()
    Dim ar
    Dim Dic, a, b
    Dim i As Long

    Set Dic = CreateObject("Scripting.dictionary")
    ar = Cells(1).CurrentRegion.Value

    For i = 1 To UBound(ar, 1)
        If Not Dic.exists(ar(i, 1)) Then
            Dic.Add ar(i, 1), 1
        Else
            Dic(ar(i, 1)) = Dic(ar(i, 1)) + 1
        End If

        a = Dic.keys
        b = Dic.items
    Next i

    With Cells(1, 3)
        .Resize(Dic.Count, 1) = Application.Transpose(a)
        .Offset(0, 1).Resize(Dic.Count, 1) = Application.Transpose(b)
    End With
End Sub