这段代码运行时出现类型不匹配（错误13）

stonelee2018

Sub ttt()
Dim d, arr
Dim i As Long
Set d = CreateObject("scripting.dictionary")
arr = Range("a3:c17908")
For i = 2 To UBound(arr)
If Not d.exists(arr(i, 1)) Then
d(arr(i, 1)) = arr(i, 2)
Else
d(arr(i, 1)) = d(arr(i, 1)) & "、" & arr(i, 2)
End If
Next
Range("f4").Resize(d.Count) = Application.Transpose(d.keys)
Range("g4").Resize(d.Count) = Application.Transpose(d.items)
End Sub
运行最后这段代码的时候出现错误

Chip_Kenny

Transpose 有256字符長度限制，改用數組載入即可。

stonelee2018

谢谢大神指教！