麻烦大神帮忙看看这个VAB代码哪里出错了，

Corachung

我在需要先把A列去重，创建字典值，查找B列的内容并将单元格内容合并到一个单元格。

但是填写代码后，一直显示 type not match。

代码如下：


Sub 合并连接单元格内容()
Dim d As Object
Dim arr, i%, n%
Set d = CreateObject("Scripting.Dictionary") '创建字典
arr = Range("A1").CurrentRegion '将与A1相连的矩形区域写入数组arr
For i = 1 To UBound(arr) '从数组arr的第一行到最后一行循环
          If Not d.exists(arr(i, 1)) Then '如果字典的d中不存在键arr(i,1)，则
                 d(arr(i, 1)) = arr(i, 2) '将arr(i,2)的值赋给d(arr(i, 1))
          Else:
                 d(arr(i, 1)) = d(arr(i, 1)) & "," & arr(i, 2)
          End If
Next
n = d.Count '将字典d中项的总数赋给n
Range("G1").Resize(n) = Application.Transpose(d.keys) '在G1:Gn区域输出字典d的键
Range("H1").Resize(n) = Application.Transpose(d.items) '在H1:Hn区域输出字典d的值
End Sub


以下为出错的提示。

哎哟哥哥

代码没有问题

三分醉，七分醒

正常运行                     

半百

组合的字符串中有超过255个字符的。

xunanming

office2016 运行正常,没有错误提示.

沈默00

这是字典的基础用法，代码没问题呀，正常运行。

沈默00

我WPS也正常运行的

cyq4896

修改一下，原d.item,trabsoise支持不了

cyq4896

已修改好了

ご浅若★清风﹌

厉害，学习了！！！