多种数据匹配查询

转角处的沉思

请教如图两种模式查询匹配数据，1.模式一是正向查询，当替换模式一表中A列行数据等于查询表对应A列行数据时，替换模式一表C列数据返回查询表B列右侧区域右侧存在的最后一列对应数据，模拟效果见效果一表。2.模式二是反向查询，当替换模式二表中A列行数据等于查询表对应B列右侧区域右侧对应行中任一列数据时，替换模式二表C列数据返回查询表B列A列对应行数据，模拟效果见效果二表。

半百

清风竹-

请看附件。

转角处的沉思

清风竹- 发表于 2024-2-4 19:20
请看附件。

感谢帮助，效果很棒。

转角处的沉思

半百 发表于 2024-2-4 18:52

感谢帮助，效果很棒。

转角处的沉思

半百 发表于 2024-2-4 18:52

你好，刚测试了下，模式一这边好像稍微有点问题，最终结果替换后A1-A4对应行数据被清空了。

半百

转角处的沉思 发表于 2024-2-5 09:47
你好，刚测试了下，模式一这边好像稍微有点问题，最终结果替换后A1-A4对应行数据被清空了。

是不是哪里抄错了？

转角处的沉思

半百 发表于 2024-2-5 10:40
是不是哪里抄错了？

抄写如下

1. Sub 模式一()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. arr = Sheets("查询表").[a1].CurrentRegion
   
4.     For i = 2 To UBound(arr)
   
5.         For j = 2 To UBound(arr, 2)
   
6.         If arr(i, j) <> " " Then d(arr(i, 1)) = arr(i, j)
   
7.         Next
   
8.     Next
   
9. arr = Sheets("替换模式一").[a1].CurrentRegion
   
10.     For i = 2 To UBound(arr)
    
11.     arr(i, 3) = d(arr(i, 1))
    
12.     Next
    
13. Sheets("替换模式一").[a1].CurrentRegion = arr
    
14. End Sub
    
15. Sub 模式二()
    
16. Set d = CreateObject("Scripting.Dictionary")
    
17. arr = Sheets("查询表").[a1].CurrentRegion
    
18.     For i = 2 To UBound(arr)
    
19.         For j = 2 To UBound(arr, 2)
    
20.         d(arr(i, j)) = arr(i, 1)
    
21.         Next
    
22.     Next
    
23. arr = Sheets("替换模式二").[a1].CurrentRegion
    
24.     For i = 2 To UBound(arr)
    
25.     arr(i, 3) = d(arr(i, 1))
    
26.     Next
    
27. Sheets("替换模式二").[a1].CurrentRegion = arr
    
28. End Sub
    
29. 
    

复制代码

半百

转角处的沉思 发表于 2024-2-5 10:48
抄写如下

双引号里没有空格，就是连起的一对双引号，表示空字符，就是单元格为空。

转角处的沉思

半百 发表于 2024-2-5 10:52
双引号里没有空格，就是连起的一对双引号，表示空字符，就是单元格为空。

明白了，感谢帮助。