返回列表 上一主題 發帖

[發問] 型態不符合,錯誤13

[發問] 型態不符合,錯誤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. [AF7].Resize(d.Count, 1) = Application.Transpose(d.items)
  10. Set d = Nothing
複製代碼
Jess

        靜思自在 : 一個人不怕錯,就怕不改過,改過並不難。
返回列表 上一主題