执行错误阶段13:形态不符合,求解?

艾浩 2021-07-02 14:35:38

程序如下:

Sub yy()
    Dim Arr, i&, d, Myr&
    Set d = CreateObject("Scripting.Dictionary")
    [c2:d65535].Clear
    Myr = [a65536].End(xlUp).Row
    Arr = Range("a1:c" & Myr)
    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
    k = d.keys
    t = d.items
    [c2].Resize(d.Count, 1) = Application.Transpose(k)
    [d2].Resize(d.Count, 1) = Application.Transpose(t)
End Sub

合并同类项并用逗号隔开,目前是超过57行以后导致报错,57行以内是正常的,感觉是赋值太小溢出,报错显示在这一行

    [d2].Resize(d.Count, 1) = Application.Transpose(t)

麻烦各位帮助解答,十分感谢!!!

 

...全文
1913 1 打赏 收藏 转发到动态 举报
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
CSDN-Ada助手 2023-01-13
  • 打赏
  • 举报
回复
您可以前往 CSDN问答-编程语言 发布问题, 以便更快地解决您的疑问

1,066

社区成员

发帖
与我相关
我的任务
社区描述
VB 资源
社区管理员
  • 资源
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧