求教，这个该怎么写啊？

wds1061

我是一个初学小白，尝试用一个字典，打算联系匹配一下数据，就把字典的items链接起来了，但是到后面想输出到AZ和BA列，不知道怎么写了，求各位大佬教一下


Sub zdd()
Dim i, j, k, d As Object, arr, brr
Set d = CreateObject("scripting.dictionary")
Set xrw = Sheets("123")
Set qdgh = Sheets("456")
arr = qdgh.[a2:c2800]
brr = xrw.[e2:AZ50000]
    For i = 1 To UBound(arr)
        d(arr(i, 1)) = arr(i, 2) & "," & arr(i, 3)
    Next i
    For j = 1 To UBound(brr)
        brr(j, 1) = d(brr(j, 1))
    Next j
   .[AZ2:BA20000].Value = brr  ’这句应该怎么该才对啊？
  End Sub

或者是我链接的用法错了？

liulang0808

https://club.excelhome.net/thread-1385473-1-1.html
一些字典案例的汇总，楼主可以参考下

楼主的 .[AZ2:BA20000].Value = brr  ’这句应该怎么该才对啊？ 点前面缺少对应的表对象，楼主添加上后，再看看结果是否满足需求吧

ykcbf1100

建议上传附件，便于解决问题。
.[AZ2:BA20000].Value = brr，这一句前面应该加上表名

wds1061

ykcbf1100 发表于 2024-11-6 11:17
建议上传附件，便于解决问题。
.[AZ2:BA20000].Value = brr，这一句前面应该加上表名

附件已传，就用“，”连接后，不知道怎么从数组中输出到AZ和AB两列，麻烦老师指导一下，感谢

ykcbf1100

wds1061 发表于 2024-11-6 15:27
附件已传，就用“，”连接后，不知道怎么从数组中输出到AZ和AB两列，麻烦老师指导一下，感谢

这一句改成这样就行了。
xrw.Resize(UBound(brr), 1) = brr

wds1061

ykcbf1100 发表于 2024-11-6 15:40
这一句改成这样就行了。
xrw.Resize(UBound(brr), 1) = brr

您好，改成这个了提示是运行时错误‘438’，对象不支持该属性或方法，哈哈，这怎么搞啊？

ykcbf1100

wds1061 发表于 2024-11-6 16:30
您好，改成这个了提示是运行时错误‘438’，对象不支持该属性或方法，哈哈，这怎么搞啊？

你的代码有点混乱，如果是我，代码就重写了。

wtg321

盲猜一下你的目的是按A列取最新的数据组合，所以输出的两列一个是A列，一个是你的组合列。

1. Sub zdd()
   
2. Dim i, j, k, d As Object, arr, brr
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Sheets("123").Range("a2:c" & [a65536].End(3).Row)
   
5. ReDim brr(1 To UBound(arr), 1 To 2)
   
6.     For i = 1 To UBound(arr)
   
7.         d(arr(i, 1)) = arr(i, 2) & "," & arr(i, 3)
   
8.     Next i
   
9.     For j = 1 To UBound(arr)
   
10.         brr(j, 1) = arr(j, 1)
    
11.         brr(j, 2) = d(brr(j, 1))
    
12.     Next j
    
13.    Sheets("456").[AZ2].Resize(UBound(arr), 2) = brr
    
14.   End Sub

复制代码

wds1061

wtg321 发表于 2024-11-6 16:35
盲猜一下你的目的是按A列取最新的数据组合，所以输出的两列一个是A列，一个是你的组合列。

感谢大佬帮助，我的意思是字典的items值现在我是用“，”号链接起来了，现在是想把items分割出来，分别放到AZ和BA列，像是1对多匹配那种，您这个是把key,和items输出了，不是想要的结果啊。。。。
花花今天送完了，抱歉，下次一定补，再次感谢大佬帮助

wtg321

1. Set ce = Sheets("456").Cells(j + 2, "az")
   
2. For Each tt In d
   
3.    ce.Resize(1, 2) = Split(d(tt), ",")
   
4.    Set ce = ce.Offset(1, 0)
   
5.    Next

复制代码