初学VBA，发现transpose存在限制，跪求大佬帮忙

1、代码目的：把相同ID的数据，合并到一行显示

2、代码如下：
Sub join()
Application.ScreenUpdating = False
arr = Sheets(1).Range("A1").CurrentRegion
Set nm = CreateObject("scripting.dictionary")
Set fp = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
If nm.exists(arr(i, 1)) Then
nm(arr(i, 1)) = nm(arr(i, 1)) & "," & Format(arr(i, 3), "yyyy-m-d")
Else
nm(arr(i, 1)) = Format(arr(i, 3), "yyyy-m-d")
End If

    If fp.exists(arr(i, 1)) Then
        fp(arr(i, 1)) = fp(arr(i, 1)) & "," & arr(i, 4)
    Else
        fp(arr(i, 1)) = arr(i, 4)
    End If

Next

    Sheets(2).Range("A2").Resize(nm.Count, 1) = Application.Transpose(Array(nm.keys))
    Sheets(2).Range("C2").Resize(nm.Count, 1) = Application.Transpose(Array(nm.items))
    Sheets(2).Range("D2").Resize(fp.Count, 1) = Application.Transpose(Array(fp.items))

For i = 2 To nm.Count + 1
    Sheets(2).Cells(i, 2) = Application.VLookup(Sheets(2).Cells(i, 1), Sheets(1).Range("A:C"), 2, False)


Next

Set nm = Nothing
Set fp = Nothing
Application.ScreenUpdating = True
End Sub

3、问题：
transpose函数有65536的限制，当同一ID行数超过限制时，跳“类型不匹配”的错误，求大佬指点？

EXCEL的单元格限制65536个字符，所以不是你的代码有问题，建议使用SQL来储存你的数据或者使用CSV文本格式储存