excel vba error 13 mismatch

[idnoidno]

Sub ts()Dim arr, brr
Dim i As Long, m As Long
Dim dic As Object


Set dic = CreateObject("scripting.dictionary")
arr = Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)
For i = 1 To UBound(arr)
    If Not dic.exists(arr(i, 1)) Then
        dic.Add arr(i, 1), ""
    Else
        dic.Item(arr(i, 1)) = dic.Item(arr(i, 1)) + 1
    End If
Next i
[c1].Resize(dic.Count) = Application.Transpose(dic.keys)
[d1].Resize(dic.Count) = Application.Transpose(dic.items)
Set dic = Nothing
End Sub

I was in the implementation of CODE, this one CODE, dic.Item(arr(i, 1)) = dic.Item(arr(i, 1)) + 1
can not be implemented, I would like to ask for help?

[mana]

    Set dic = CreateObject("scripting.dictionary")
    arr = Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)
    For i = 1 To UBound(arr)
        dic(arr(i, 1)) = dic(arr(i, 1)) + 1
    Next i
    [c1].Resize(dic.Count) = Application.Transpose(dic.keys)
    [d1].Resize(dic.Count) = Application.Transpose(dic.items)
    Set dic = Nothing

[SamT]

Try

 
dic.Add arr(i, 1), 0

Or

CStr(Clng(dic(arr(i, 1))) + 1)

But not both at once

[idnoidno]

dic Add.arr(i,1),""
dic(arr(i,1))=dic(arr(i,1))+1

Can both not use in the sametime?

[SamT]

Can both not use in the sametime?

dic Add.arr(i,1),"" --- string
dic(arr(i,1))=dic(arr(i,1))+1 --- number

[idnoidno]

dic Add.arr(i,1),""
dic Add.arr(i,1), 0
They are string and number,why do they get the same result?

[SamT]

Only sometimes, but, you do as you want.