[已解决]VBA字典匹配无效，求大神指点！！

诺然偶然

需要将工作表数据与数据表的匹配，也是大神给写的代码，看了好久，依葫芦画瓢修改了下，但是后面的比列没有匹配上，求指导，或者有更好的方法请不吝赐教，先谢过了！！！

最佳答案

月排行榜 / 总排行榜

grf1973

2017-3-9 21:26

1. Sub test()
   
2.     Application.ScreenUpdating = False
   
3.     Dim d, arr, brr, crr, r&
   
4.    
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     arr = ThisWorkbook.Sheets(2).[a1].CurrentRegion
   
7.     For r = 2 To UBound(arr)
   
8.         d(arr(r, 1)) = arr(r, 3)
   
9.     Next
   
10.     crr = ThisWorkbook.Sheets(4).[a1].CurrentRegion
    
11.     For r = 2 To UBound(crr)
    
12.         d(crr(r, 1)) = crr(r, 2)
    
13.     Next
    
14.    
    
15.     With Workbooks(2).Sheets(1)    '这里最好写workbooks(文件名)
    
16.         brr = .[a1].CurrentRegion
    
17.         For r = 2 To UBound(brr)
    
18.              brr(r, 3) = d(brr(r, 2))
    
19.              brr(r, 5) = d(brr(r, 4))
    
20.         Next
    
21.         .[a1].Resize(UBound(brr), UBound(brr, 2)) = brr
    
22.     End With
    
23.     Set d = Nothing
    
24.     Application.ScreenUpdating = True
    
25. End Sub

复制代码

跳转到最佳答案楼层

grf1973

1. Sub test()
   
2.     Application.ScreenUpdating = False
   
3.     Dim d, arr, brr, crr, r&
   
4.    
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     arr = ThisWorkbook.Sheets(2).[a1].CurrentRegion
   
7.     For r = 2 To UBound(arr)
   
8.         d(arr(r, 1)) = arr(r, 3)
   
9.     Next
   
10.     crr = ThisWorkbook.Sheets(4).[a1].CurrentRegion
    
11.     For r = 2 To UBound(crr)
    
12.         d(crr(r, 1)) = crr(r, 2)
    
13.     Next
    
14.    
    
15.     With Workbooks(2).Sheets(1)    '这里最好写workbooks(文件名)
    
16.         brr = .[a1].CurrentRegion
    
17.         For r = 2 To UBound(brr)
    
18.              brr(r, 3) = d(brr(r, 2))
    
19.              brr(r, 5) = d(brr(r, 4))
    
20.         Next
    
21.         .[a1].Resize(UBound(brr), UBound(brr, 2)) = brr
    
22.     End With
    
23.     Set d = Nothing
    
24.     Application.ScreenUpdating = True
    
25. End Sub

复制代码

today0427

这题目弄得我莫名其妙，不知道两个表靠什么条件关联到一起。小明和油条是什么关系？最近做题少，感觉自己有点傻了

诺然偶然

非常感谢，我还要回去慢慢研究一下

诺然偶然

today0427 发表于 2017-3-9 21:33
这题目弄得我莫名其妙，不知道两个表靠什么条件关联到一起。小明和油条是什么关系？最近做题少，感觉 ...

请不要在意这些细节

诺然偶然

恕我愚昧，能否解释下         
brr(r, 3) = d(brr(r, 2)) '数组第三列=？
brr(r, 5) = d(brr(r, 4)) '数组第五列=？

诺然偶然

诺然偶然 发表于 2017-3-10 18:24
恕我愚昧，能否解释下         
brr(r, 3) = d(brr(r, 2)) '数组第三列=？
brr(r, 5) = d(brr(r, 4)) ' ...

我知道了，表示数组中空缺的第三列和第二列按照字典来匹配，原谅我反应慢半拍