词典与数组的应用求教，我想把A,C列装入字典后，再对应到处F列，存在多对多，求教

吴茌伍

词典与数组的应用求教，我想把A,C列装入字典后，再对应到处F列，存在多对多，求教


附件已上传，每次运行总有问题，但是找不到原因，录入字典，然后split取出，然后想数组对应取出，总是有问题，求教

chxw68

修改好了。

网海遨游

……
For i = 1 To UBound(arr)
        key = arr(i, 1) & ""
        If Not dic.exists(key) Then
          dic(key) = i
        Else
          dic(key) = dic(key) & "#" & i
        End If
    Next
……

吴茌伍

chxw68 发表于 2020-2-10 09:19
修改好了。

帅哥，你这个多列去重的方法挺好的，但是我想练一下VBA字典实现多查找，如附件的格式，请教一下我的文件该怎么改呢

吴茌伍

网海遨游 发表于 2020-2-10 09:44
……
For i = 1 To UBound(arr)
        key = arr(i, 1) & ""

帅哥，没写全呀

吴茌伍

chxw68 发表于 2020-2-10 09:19
修改好了。

帅哥，我想用词典的多对多查找，我的哪个程序应该怎么写呢？

chxw68

吴茌伍 发表于 2020-2-10 13:11
帅哥，我想用词典的多对多查找，我的哪个程序应该怎么写呢？

不明白你怎么查找？

吴茌伍

chxw68 发表于 2020-2-10 13:13
不明白你怎么查找？

就是 key = A列，dic（key）= C列，由于有重复项，所以 dic（key） = dic（key）&”#"&c(i)或者dic（key） = dic（key）&”#"&i（i是行号）录入字典，再通过for循环，split拆分数组将录入字典的dic（key）与key对应导入G列

chxw68

猜测着做的。

吴茌伍

chxw68 发表于 2020-2-10 13:26
猜测着做的。

就是这样，但是我想让他竖着放，简单的用transpose又不行，还得麻烦您，下面的截图是我希望出现的结果