求指导，这个代码能否简化，数据类型不一样怎么办啊？

wds1061

各位老师好，我刚接触字典，平时在论坛中看到大佬们用字典6得飞起，我非常的佩服，也按照论坛的的方法慢慢的学习，现在绞尽脑汁写了一个，但是发现非常的长，我觉得应该不是这样的，应该能更简练，求各位老师指导，我这样写是不是错了？

然后发现有的数据类型不对的，也匹配不了，麻烦各位老师指导一下，感谢！！
具体见附件。


Sub 字典计算()
t = Timer
Dim d As Object, d1 As Object, arr, brr
Set d = CreateObject("scripting.dictionary")
Set d1 = CreateObject("scripting.dictionary")
Set qdgh = Sheets("做字典")
Set xrw = Sheets("第一个")
Set kd = Sheets("第二个")
Set qyb = Sheets("第三个")
arr = qdgh.[a1].CurrentRegion
    For i = 1 To UBound(arr)
        d(arr(i, 1)) = arr(i, 2)
    Next i
    For j = 1 To UBound(arr)
        d1(arr(j, 1)) = arr(j, 3)
    Next j
r = xrw.Cells(Rows.Count, "A").End(3).Row
brr = xrw.Range("A2:A" & r)
     For k = 1 To UBound(brr)
        brr(k, 1) = d(brr(k, 1))
     Next k
xrw.Range("B2:B" & r) = brr
brr = xrw.Range("A2:A" & r)
     k = 1
     For k = 1 To UBound(brr)
        brr(k, 1) = d1(brr(k, 1))
     Next k
xrw.Range("C2:C" & r) = brr

r = kd.Cells(Rows.Count, "A").End(3).Row
brr = kd.Range("A2:A" & r)
     k = 1
     For k = 1 To UBound(brr)
        brr(k, 1) = d(brr(k, 1))
     Next k
kd.Range("B2:B" & r) = brr

brr = kd.Range("A2:A" & r)
     k = 1
     For k = 1 To UBound(brr)
        brr(k, 1) = d1(brr(k, 1))
     Next k
kd.Range("C2:C" & r) = brr

r = qyb.Cells(Rows.Count, "A").End(3).Row
brr = qyb.Range("A2:A" & r)
     k = 1
     For k = 1 To UBound(brr)
        brr(k, 1) = d(brr(k, 1))
     Next k
qyb.Range("B2:B" & r) = brr

brr = qyb.Range("A2:A" & r)
     k = 1
     For k = 1 To UBound(brr)
        brr(k, 1) = d1(brr(k, 1))
     Next k
qyb.Range("C2:C" & r) = brr

MsgBox "匹配完成：" & Format(Timer - t, "0.000秒")

End Sub

小凡、、、

提供一下几点建议：
1.字典和数组的结合使用（学习字典必须得会）
2.字符的类型转换函数使用
3.多维数组一起处理减少循环

loirol

1. 字典嵌套，不用定义两个字典，这里只有匹配1和匹配2，如果有50列不得定义50个字典
一定要定义两个字典，两个字典的循环也不需要分开写

1. for i= 2 to ubound(arr)
   
2.     d(arr(i,1)) = arr(i,2)
   
3.     d1(arr(i,1))= arr(i,3)
   
4. next

复制代码

2. 另外a列有数值有文本，需要转换
3. sheets一样可以遍历，不用每个定义

z865593849

练习字典

wds1061

小凡、、、 发表于 2024-11-20 13:45
提供一下几点建议：
1.字典和数组的结合使用（学习字典必须得会）
2.字符的类型转换函数使用

感谢您的指导，谢谢！

wds1061

loirol 发表于 2024-11-20 13:55
1. 字典嵌套，不用定义两个字典，这里只有匹配1和匹配2，如果有50列不得定义50个字典
一定要定义两个字典 ...

好的，我慢慢看下才行，我也觉得我用得太啰嗦了，哈哈，感谢您的指导！

wds1061

z865593849 发表于 2024-11-20 14:29
练习字典

感谢您的指导！

wds1061

loirol 发表于 2024-11-20 13:55
1. 字典嵌套，不用定义两个字典，这里只有匹配1和匹配2，如果有50列不得定义50个字典
一定要定义两个字典 ...

对了，麻烦再问下，如果需要匹对的数据每个表都不在同一列，最终的匹配结果不是都固定在B和C了，而是都在不同列，那应该怎么写呢？

wds1061

z865593849 发表于 2024-11-20 14:29
练习字典

那能再请教一个问题吗？如果需要匹对的列和结算输出的列都不同，如第一个是要按C列匹对，结果输出到F、G列，第二个表是按T列匹配，要输出到Y、Z列，第二个表是按S列匹配，要输出到AB、AC列，这个是应该怎么写呢？

sxbjzjf110