[發問] 型態不符合求助

idnoidno

1. Sub ts()
   
2. Dim arr, brr
   
3. Dim i As Long, m As Long
   
4. Dim dic As Object
   
5. 
   
6. Set dic = CreateObject("scripting.dictionary")
   
7. arr = Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)
   
8. For i = 1 To UBound(arr)
   
9.     If Not dic.exists(arr(i, 1)) Then
   
10.         dic.Add arr(i, 1), ""
    
11.     Else
    
12.         dic.Item(arr(i, 1)) = dic.Item(arr(i, 1)) + 1
    
13.     End If
    
14. Next i
    
15. [c1].Resize(dic.Count) = Application.Transpose(dic.keys)
    
16. [d1].Resize(dic.Count) = Application.Transpose(dic.items)
    
17. Set dic = Nothing
    
18. End Sub

複製代碼

執行時，dic.Item(arr(i, 1)) = dic.Item(arr(i, 1)) + 1
出現錯誤13，型態不符合問題
可以請教路過看到的大大，請問問題是在那裡呢

Kubi

回復 1# idnoidno
迴圈內判斷式改為如下試試看：
If Not dic.exists(arr(i, 1)) Then
    dic(arr(i, 1)) = 1
Else
    dic(arr(i, 1)) = dic(arr(i, 1)) + 1
End If

idnoidno

謝謝您的回覆