指定条件求和

327809732

一个单元格里面有两个或者更多，如何把每个人的工时进行求和计算

良良

=SUMPRODUCT(MMULT(1-ISERR(FIND(B18,B$2:J$11)),ROW($1:$9)^0),M$1:M$10)
或
=SUMPRODUCT(COUNTIF(OFFSET(A$2:A$11,,ROW($1:$7)),"*"&B18&"*"))*8

zhangcheng6688

学习一下字典，打扰了
Sub test()
lastr = Cells(Rows.Count, "a").End(xlUp).Row
arr = Range("a1:m" & lastr)
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr) Step 3
   For j = 2 To 8 Step 2
      ss = Split(arr(i, j), "、")
      For k = 0 To UBound(ss)
         d(ss(k)) = d(ss(k)) + arr(i - 1, 13)
      Next
   Next
Next
brr = [b18].CurrentRegion
For i = 2 To UBound(brr)
   If d.exists(brr(i, 1)) Then
      brr(i, 2) = d(brr(i, 1))
   Else
      brr(i, 2) = 0
   End If
Next
[b18].CurrentRegion = brr
End Sub

327809732

良良 发表于 2024-9-9 11:34
=SUMPRODUCT(MMULT(1-ISERR(FIND(B18,B$2:J$11)),ROW($1:$9)^0),M$1:M$10)
或
=SUMPRODUCT(COUNTIF(OFFSE ...

收到，我试试谢谢

niko88819

zhangcheng6688 发表于 2024-9-9 12:33
学习一下字典，打扰了
Sub test()
lastr = Cells(Rows.Count, "a").End(xlUp).Row

VBA得到答案不正确呢

wp231957

327809732 发表于 2024-9-9 12:51
收到，我试试谢谢

=REDUCE(0,$B$2:$J$11,LAMBDA(x,y,x+IF(IFERROR(FIND(B18,y),0),1,0)))*8

沈默00

=LET(t,REDUCE(,TOCOL(B2:J11,3),LAMBDA(x,y,UNIQUE(TOCOL(VSTACK(x,TEXTSPLIT(y,"、")),3)))),HSTACK(t,DROP(REDUCE("",t,LAMBDA(a,b,VSTACK(a,SUM(TOROW(IF(ISNUMBER(FIND(b,$B$2:$H$11))=TRUE,1,x)*$M$1:$M$10,3))))),1)))

沈默00

沈默00

VBA做起来更加方便，试试

zhangcheng6688

niko88819 发表于 2024-9-9 14:35
VBA得到答案不正确呢

可以的呀，按照楼主附件里面的姓名查询出来，所以没有包含赵倩。