用函数统计跨年级的教师

lc16whj

hcm19522 发表于 2024-10-1 12:18
=REPT(1,VLOOKUP(D2,A:B,2,)LOOKUP(1,0/(A:A=D2),B:B))

没有花了，谢谢高手的帮助！

zhangcheng6688

学习一下字典
Sub test()
arr = [a1].CurrentRegion
Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
   If Not d.exists(arr(i, 1)) Then
      Set d(arr(i, 1)) = CreateObject("scripting.dictionary")
   End If
   d(arr(i, 1))(arr(i, 2)) = ""
Next
brr = [d1].CurrentRegion
For i = 2 To UBound(brr)
   If d.exists(brr(i, 1)) Then
      If d(brr(i, 1)).Count > 1 Then
         brr(i, 2) = 1
      Else
         brr(i, 2) = ""
      End If
   Else
      brr(i, 2) = "没有此位老师"
   End If
Next
[d1].CurrentRegion = brr
End Sub

一杯绿茶来了

=REPT(1,SUM(N(COUNTIFS(A:A,D2,B:B,{"七","八","九"}&"年级")>0))>1)

lc16whj

zhangcheng6688 发表于 2024-10-2 08:12
学习一下字典
Sub test()
arr = [a1].CurrentRegion

谢谢高手的帮助！函数+VBA运行太慢了，能不能有空时帮我看看我的这个贴：
https://club.excelhome.net//forum.php?mod=viewthread&tid=1702955&extra=
由VBA生成跨年级和跨学科教师的工作量统计！

橒♂蝣

=LET(x,UNIQUE($A$2:$B$409),ROWS(FILTER(x,TAKE(x,,1)=D2))-1)

忙到飞起

=IF(COUNTA(UNIQUE(FILTER($B$2:$B$409,$A$2:$A$409=D2)))=2,1,"")
向下填充