天计数，求公式或其他方法

00JTR00

solextrade

=SUMPRODUCT((C$2:C$8-B$2:B$8)*(A$2:A$8=F11))

00JTR00

solextrade 发表于 2024-7-18 12:06
=SUMPRODUCT((C$2:C$8-B$2:B$8)*(A$2:A$8=F11))

哈哈 ，踩坑了

part98

00JTR00 发表于 2024-7-18 12:28
哈哈 ，踩坑了

自己不说是要去掉重复天数

zhangcheng6688

学习一下字典，打扰了
Sub test()
arr = [a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
ReDim brr(1 To UBound(arr), 1 To 2)
For i = 2 To UBound(arr)
   If Not d.exists(arr(i, 1)) Then
      m = m + 1
      brr(m, 1) = arr(i, 1)
      brr(m, 2) = arr(i, 3) - arr(i, 2)
      d(arr(i, 1)) = m
   Else
      r = d(arr(i, 1))
      brr(r, 2) = brr(r, 2) + (arr(i, 3) - arr(i, 2))
   End If
Next
[f10].CurrentRegion.Offset(1).ClearContents
[f11].Resize(m, 2) = brr
End Sub

part98

1. =ROWS(UNIQUE(DROP(REDUCE("",BYROW(FILTER($B$2:$C$8,$A$2:$A$8=F11),LAMBDA(x,TEXTJOIN(":",,x))),LAMBDA(m,n,VSTACK(m,ROW(INDIRECT(n))))),1)))

复制代码

jivy1212

1. =COUNT(MMULT(1-ISERR(VDB(,,TRANSPOSE($C$2:$C$8),TRANSPOSE($B$2:$B$8),ROW($42736:$60789))/(TRANSPOSE($A$2:$A$8)=F11)),{1;1;1;1;1;1;1})^0)

复制代码

飞天篮球猪

00JTR00

飞天篮球猪 发表于 2024-7-19 08:25

2021不支持

飞天篮球猪

00JTR00 发表于 2024-7-19 15:25
2021不支持

打扰了，兄弟。我用的是一个插件--集算器。