weixin_41710937
写了一段bug
采纳率0%
2018-09-19 06:01

初学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行数超过限制时,跳“类型不匹配”的错误,求大佬指点?
图片说明

  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 复制链接分享
  • 邀请回答

1条回答

  • weixin_39416561 lyhsdy 3年前

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

    点赞 评论 复制链接分享

相关推荐