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

初学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条回答 默认 最新

  • lyhsdy 2018-09-20 06:50
    关注

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

    评论

报告相同问题?

悬赏问题

  • ¥15 Arcgis相交分析无法绘制一个或多个图形
  • ¥15 seatunnel-web使用SQL组件时候后台报错,无法找到表格
  • ¥15 fpga自动售货机数码管(相关搜索:数字时钟)
  • ¥15 用前端向数据库插入数据,通过debug发现数据能走到后端,但是放行之后就会提示错误
  • ¥30 3天&7天&&15天&销量如何统计同一行
  • ¥30 帮我写一段可以读取LD2450数据并计算距离的Arduino代码
  • ¥15 飞机曲面部件如机翼,壁板等具体的孔位模型
  • ¥15 vs2019中数据导出问题
  • ¥20 云服务Linux系统TCP-MSS值修改?
  • ¥20 关于#单片机#的问题:项目:使用模拟iic与ov2640通讯环境:F407问题:读取的ID号总是0xff,自己调了调发现在读从机数据时,SDA线上并未有信号变化(语言-c语言)