根据两个数值范围查询对应数据

一念成佛

求助一个问题，请各位老师帮助解决一下，谢谢！

根据给出的两个不同数值及两个附加条件，查询对应的数据，并显示在一个单元格内，数据之间用顿号隔开，见附件，谢谢！

一念成佛

我查询了很多函数公式，都不能解决，所以就没有公式可以参考，请求老师们，费费心，劳劳神！

袁勇

如果版本支持textjion函数，可用textjoin解决。

无关岁月

1. =TEXTJOIN("、",,IF((E4=A$8:A$28)*(F4=B$8:B$28)*(E$8:E$28>=G2)*(E$8:E$28<=H2),C$8:C$28,""))

复制代码

solextrade

=TEXTJOIN("、",1,IF(IF(A$8:A$28&B$8:B$28=E2&F2,MMULT(SIGN(E$8:E$28-G2:H2),{1;1})^2<4),C$8:C$28,""))

boyuanoffice

1. =TEXTJOIN("、",,FILTER($C$8:$C$28,($A$8:$A$28&$B$8:$B$28=E4&F4)*($E$8:$E$28>=G2)*($E$8:$E$28<=H2)))

复制代码

一念成佛

再次感谢各位老师们，感觉再棘手的问题也不是问题！

swl4561255

1. Sub 统计()
   
2. ar = Range("A7").End(4).Row
   
3. arr = Range("A8:E" & ar)
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. For i = 1 To ar - 7
   
6.   If arr(i, 2) = "上" Then
   
7.       m = Range("G2").Value
   
8.       n = Range("H2").Value
   
9.   Else
   
10.     If arr(i, 2) = "单" Then
    
11.       m = Range("H3").Value
    
12.       n = Range("G3").Value
    
13.     End If
    
14.   End If
    
15.   If arr(i, 5) >= m And arr(i, 5) <= n Then
    
16.      d(arr(i, 1) & arr(i, 2)) = d(arr(i, 1) & arr(i, 2)) & "、" & arr(i, 3)
    
17.   End If
    
18. Next
    
19. k = d.keys
    
20. For j = 4 To 5
    
21.   Range("G" & j) = Mid(d(Cells(j, "E") & Cells(j, "F")), 2)
    
22. Next
    
23. End Sub
    

复制代码

swl4561255

上面代码稍做优化。

1. Sub 统计()
   
2. ar = Range("A7").End(4).Row
   
3. arr = Range("A8:E" & ar)
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. For i = 1 To ar - 7
   
6.   If arr(i, 2) = "上" Then
   
7.       m = Range("G2").Value
   
8.       n = Range("H2").Value
   
9.   Else
   
10.     If arr(i, 2) = "单" Then
    
11.       m = Range("H3").Value
    
12.       n = Range("G3").Value
    
13.     End If
    
14.   End If
    
15.   If arr(i, 5) >= m And arr(i, 5) <= n Then
    
16.      d(arr(i, 1) & arr(i, 2)) = d(arr(i, 1) & arr(i, 2)) & "、" & arr(i, 3)
    
17.   End If
    
18. Next
    
19. For j = 4 To 5
    
20.   Range("G" & j) = Mid(d(Cells(j, "E") & Cells(j, "F")), 2)
    
21. Next
    
22. Set d = Nothing
    
23. End Sub

复制代码

tmplinshi

1. =REPLACE(CONCAT(IF(($A$8:$A$28=E2)*($B$8:$B$28=F2)*($E$8:$E$28>=MIN(G2:H2))*($E$8:$E$28<=MAX(G2:H2)),"、"&$C$8:$C$28,"")),1,1,)

复制代码