標題: [發問] 型態不符合求助 [打印本頁]

---

作者: idnoidno    時間: 2017-6-23 20:39     標題: 型態不符合求助

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    時間: 2017-6-23 22:15

回復 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    時間: 2017-6-25 10:35

謝謝您的回覆

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)