统计每个月里出现出现3次及3次以上的姓名个数

我走我流

=COUNT(0/(FREQUENCY(IF(MONTH($A$2:$A$10)=F$1,MATCH($B$2:$B$10,$B:$B,)),ROW(1:99))>2))

mykitami

=REPT(1,SUM(N((MONTH($A$2:$A$10)=F$1)*($B$2:$B$10<>"")))>2)

=LET(a,"2024-"&F$1,REPT(1,SUM(COUNTIFS($A:$A,SEQUENCE(DAY(EOMONTH(a,0)),,a),$B:$B,"<>"))>2))

inrever

1. =IFERROR(LET(x,FILTER($B$2:$B$15,MONTH($A$2:$A$15)=F1),REDUCE(0,UNIQUE(x),LAMBDA(a,n,IF(SUM(--(x=n))<3,a,a+1)))),"无数据")

复制代码

一杯绿茶来了

=REPT(1,SUM(N(MONTH($A$2:$A$10)=F1))>2)

zhangcheng6688

学习一下字典，打扰了
Sub test()
arr = [a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
   s = Split(arr(i, 1), "/")(1)
   If Not d.exists(s) Then Set d(s) = CreateObject("scripting.dictionary")
   d(s)(arr(i, 2)) = d(s)(arr(i, 2)) + 1
Next
brr = [e1].CurrentRegion
For i = 2 To UBound(brr)
   For j = 2 To UBound(brr, 2)
      s = CStr(brr(1, j))
      If d.exists(s) Then
         For Each strkey In d(s).keys
            If d(s)(strkey) >= 3 Then
               brr(i, j) = brr(i, j) + 1
            End If
         Next
      End If
   Next
Next
[e1].CurrentRegion = brr
End Sub

你是那块小饼干

1. =IF(COUNT(IF(MONTH($A$2:$A$10)=F1,MONTH($A$2:$A$10)*1,""))>=3,1,"")

复制代码