標題: [發問] 型態不符合，錯誤13 [打印本頁]

---

作者: jesscc    時間: 2019-9-19 16:23     標題: 型態不符合，錯誤13

我在Office 2016可以正常執行以下程式碼，但在Office 2010就出現這一行
  [AF7].Resize(d.Count, 1) = Application.Transpose(d.items)
型態不符合，錯誤13的偵錯
檢查的結果是因為T.Offset(, -5)這一欄(純文字)有空白的儲存格，要怎麼樣在Office 2010避開這樣的錯誤?

1. Set d = CreateObject("Scripting.Dictionary")
   
2. For Each T In Range([T7], [T300].End(xlUp))
   
3.    If d(T.Value) = "" Then
   
4.       d(T.Value) = T.Offset(, -5) & " " & T.Offset(, -4) & " " & T.Offset(, -3)
   
5.       Else
   
6.       d(T.Value) = d(T.Value) & ", " & T.Offset(, -5) & " " & T.Offset(, -4) & " " & T.Offset(, -3)
   
7.    End If
   
8. Next
   
9. 
   
10. [AF7].Resize(d.Count, 1) = Application.Transpose(d.items)
    
11. Set d = Nothing

複製代碼

---

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