求助查找合并单元格一对多满足的数据

夏大妞

miaojohn45 发表于 2024-3-17 18:55

加了一列节数能求和出来吗，我想要这样纵向显示出来

swl4561255

1. Sub 测试()
   
2. Application.ScreenUpdating = False
   
3. Columns("P:R").ClearContents
   
4. ar = Range("A1").CurrentRegion.Rows.Count
   
5. arr = Range("A1").CurrentRegion
   
6. Set d = CreateObject("Scripting.Dictionary")
   
7. For i = 2 To ar
   
8. If arr(i, 1) <> "" Then
   
9.   m = i
   
10. End If
    
11. If arr(i, 7) <> "" Then
    
12.   n = i
    
13. End If
    
14. d(arr(m, 1) & "-" & arr(n, 7) & "-" & arr(i, 9)) = ""
    
15. Next
    
16. k = d.keys
    
17. Range("P:R").HorizontalAlignment = xlCenter
    
18. [P10].Resize(1, 3) = Array("查询条件", "合同编号", "课程名称")
    
19. [P11].Resize(d.Count, 1) = Application.Transpose(k)
    
20. Set d = Nothing
    
21. For j = 11 To Range("P11").End(4).Row
    
22.   br = Split(Range("P" & j), "-")
    
23.   Cells(j, 16) = br(0)
    
24.   Cells(j, 17) = br(2)
    
25.   Cells(j, 18) = br(1)
    
26. Next
    
27. Application.ScreenUpdating = True
    
28. End Sub

复制代码

cnmlgb9998

PQ轻松搞定！！！！！！ 放弃函数 ！

miaojohn45

夏大妞 发表于 2024-3-17 19:24
加了一列节数能求和出来吗，我想要这样纵向显示出来

1. =LET(x,LOOKUP(ROW($1:$255),ROW($1:$255)/($A$2:$A$256<>"")),SUM(IF(MATCH(P11,A$2:A$256,)=x,K$2:K$256,0)))

复制代码

夏大妞

cnmlgb9998 发表于 2024-3-17 19:33
PQ轻松搞定！！！！！！ 放弃函数 ！

对于小白不行，只能用固定函数套进去

夏大妞

quqiyuan 发表于 2024-3-17 17:56
自动溢出

=UNIQUE(FILTER(I2:I256,LOOKUP(ROW($2:$256),ROW($2:$256)/($A$2:$A$256""),$A$2:$A$256)=P11 ...

节数能同时满足符禾沐和合同编号求和吗

quqiyuan

夏大妞 发表于 2024-3-17 21:18
节数能同时满足符禾沐和合同编号求和吗

合同编号是某个人独有，这样最简单
=SUMIF(I:I,Q11,K:K)

夏大妞

quqiyuan 发表于 2024-3-17 21:33
合同编号是某个人独有，这样最简单
=SUMIF(I:I,Q11,K:K)

不，会涉及到合同编号是一样的，但是前面的教练不一样

quqiyuan

夏大妞 发表于 2024-3-17 21:41
不，会涉及到合同编号是一样的，但是前面的教练不一样

=SUMPRODUCT((LOOKUP(ROW($2:$256),ROW($2:$256)/($A$2:$A$256<>""),$A$2:$A$256)=$P$11)*($I$2:$I$256=Q11)*$K$2:$K$256)

夏大妞

quqiyuan 发表于 2024-3-17 21:49
=SUMPRODUCT((LOOKUP(ROW($2:$256),ROW($2:$256)/($A$2:$A$256""),$A$2:$A$256)=$P$11)*($I$2:$I$256=Q11 ...

谢谢，又学习了。我用了sumifs,不行