双条件查询双结果

2324

各位大神：

请帮帮忙，帮我看看这样的EXCEL文件，怎么利用VBA强大的功能，实现双条件查询！

原文件已重新上传。谢谢各位！

笨鸟飞不高

需要查询的地区编号和地区成绩的数据源在哪里？？

鄂龙蒙

【把表“地区编号"和"地区成绩”找出来,分别填到H列和I列】“地区编号"和"地区成绩”在那？！

ykcbf1100

没头没脑的双条件查询。

chxw68

1. Sub test()
   
2.     Dim r%, i%
   
3.     Dim arr, brr
   
4.     Dim d As Object
   
5.     Set d1 = CreateObject("scripting.dictionary")
   
6.     Set d2 = CreateObject("scripting.dictionary")
   
7.     With Worksheets("系统")
   
8.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
9.         arr = .Range("a2:d" & r)
   
10.         For i = 1 To UBound(arr)
    
11.             xm = arr(i, 1) & "+" & arr(i, 2)
    
12.             d1(xm) = Array(arr(i, 3), arr(i, 4))
    
13.         Next
    
14.     End With
    
15.     With Worksheets("地区")
    
16.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
17.         arr = .Range("a2:d" & r)
    
18.         For i = 1 To UBound(arr)
    
19.             xm = arr(i, 1) & "+" & arr(i, 2)
    
20.             d2(xm) = Array(arr(i, 3), arr(i, 4))
    
21.         Next
    
22.     End With
    
23.     With Worksheets("报名")
    
24.         r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
25.         .Range("f2:i" & r).ClearContents
    
26.         arr = .Range("a2:i" & r)
    
27.         For i = 1 To UBound(arr)
    
28.             xm = arr(i, 2) & "+" & arr(i, 3)
    
29.             If d1.exists(xm) Then
    
30.                 brr = d1(xm)
    
31.                 arr(i, 6) = brr(0)
    
32.                 arr(i, 7) = brr(1)
    
33.             Else
    
34.                 arr(i, 6) = "查无"
    
35.                 arr(i, 7) = "查无"
    
36.             End If
    
37.             xm = arr(i, 4) & "+" & arr(i, 5)
    
38.             If d2.exists(xm) Then
    
39.                 brr = d2(xm)
    
40.                 arr(i, 8) = brr(0)
    
41.                 arr(i, 9) = brr(1)
    
42.             Else
    
43.                 arr(i, 8) = "查无"
    
44.                 arr(i, 9) = "查无"
    
45.             End If
    
46.         Next
    
47.         .Range("c:c,f:f").NumberFormatLocal = "@"
    
48.         .Range("a2").Resize(UBound(arr), UBound(arr, 2)) = arr
    
49.     End With
    
50. End Sub
    

复制代码

chxw68

详见附件。

2324

笨鸟飞不高 发表于 2024-8-20 15:49
需要查询的地区编号和地区成绩的数据源在哪里？？

非常抱歉，原本想查询是F列G列在系统表中与B列C列存在对应关系，H列I列在系统表中与D列E列存在对应关系,想在报名表中把它们一次都查询出来。

2324

鄂龙蒙 发表于 2024-8-20 15:54
【把表“地区编号"和"地区成绩”找出来,分别填到H列和I列】“地区编号"和"地区成绩”在那？！

非常感谢大神指出错误！


非常抱歉，原本想查询是F列G列在系统表中与B列C列存在对应关系，H列I列在系统表中与D列E列存在对应关系,想在报名表中把它们一次都查询出来。

2324

ykcbf1100 发表于 2024-8-20 16:12
没头没脑的双条件查询。

非常感谢大神指出错误！


非常抱歉，原本想查询是F列G列在系统表中与B列C列存在对应关系，H列I列在系统表中与D列E列存在对应关系,想在报名表中把它们一次都查询出来。

2324

chxw68 发表于 2024-8-20 16:25
详见附件。

非常感谢大神的耐心解答！