课程表分工汇总

多少后？

依据课表汇总教师任课情况，请指教

糖↗小冷

你别说，任课老师的名字起得都诗情画意的，哈哈哈

quqiyuan

1. =COUNT(0/($B$6:$S$24=V6)/($B$7:$S$25=$U6))

复制代码

多少后？

quqiyuan 发表于 2024-2-22 16:41

感谢分享：此公式可以计算出已知的科目数量，我的本意是，只知道姓名，科目，数量、年级需要电脑统计，

3190496160

课表只有两天的？？？

多少后？

3190496160 发表于 2024-2-22 17:07
课表只有两天的？？？

只选择了部分，依次类推

quqiyuan

多少后？ 发表于 2024-2-22 17:05
感谢分享：此公式可以计算出已知的科目数量，我的本意是，只知道姓名，科目，数量、年级需要电脑统计，

你能用的最高的版本是哪个？

橒♂蝣

V6下拉=LET(m,REDUCE("",B7:S25,LAMBDA(x,y,VSTACK(x,IF(y=U6,HSTACK(OFFSET(y,-1,),OFFSET(y,-1,-COLUMN(y)+1)),"")))),
n,FILTER(m,INDEX(m,,1)<>""),
DROP(REDUCE("",UNIQUE(INDEX(n,,1)),LAMBDA(s,t,HSTACK(s,HSTACK(t,SUM(1*(INDEX(n,,1)=t)),LEFT(XLOOKUP(t,INDEX(n,,1),INDEX(n,,2)),1)&"年级")))),,1)
)

橒♂蝣

V6=DROP(REDUCE("",U6:U15,LAMBDA(i,j,                             VSTACK(i,LET(m,REDUCE("",B7:S25,LAMBDA(x,y,VSTACK(x,IF(y=j,HSTACK(OFFSET(y,-1,),OFFSET(y,-1,-COLUMN(y)+1)),"")))),
n,FILTER(m,INDEX(m,,1)<>""),                                                       IFERROR(DROP(REDUCE("",UNIQUE(INDEX(n,,1)),LAMBDA(s,t,HSTACK(s,HSTACK(t,SUM(1*(INDEX(n,,1)=t)),LEFT(XLOOKUP(t,INDEX(n,,1), INDEX(n,,2)),1)&"年级")))),,1),"")

3190496160

Sub tj()
Application.ScreenUpdating = False
Dim ar As Variant
Dim d As Object, dc As Object
Set d = CreateObject("scripting.dictionary")
Set dc = CreateObject("scripting.dictionary")
Dim br()
With Sheets("sheet1")
    r = .Cells(Rows.Count, 2).End(xlUp).Row
    yy = .Cells(5, Columns.Count).End(xlToLeft).Column
    If r < 7 Or yy < 3 Then MsgBox "课程表为空！": End
    ar = .Range(.Cells(3, 1), .Cells(r, yy))
End With
ReDim br(1 To 1000, 1 To 500)
y = -1: k = 1
For i = 5 To UBound(ar) Step 2
    For j = 2 To UBound(ar, 2) Step 1
        If ar(i, j) <> "" Then
            If ar(i, j) <> "/" Then
                t = d(ar(i, j))
                If t = "" Then
                    k = k + 1
                    d(ar(i, j)) = k
                    t = k
                    br(k, 1) = ar(i, j)
                End If
                h = d(ar(i - 1, j))
                If h = "" Then
                    y = y + 3
                    d(ar(i - 1, j)) = y
                    h = y
                    br(1, y) = ar(i - 1, j)
                    br(1, y + 1) = "数量"
                    br(1, y + 2) = "年级"
                End If
                br(t, y + 1) = br(t, y + 1) + 1
                br(t, y + 2) = Left(ar(i, 1), 1) & "年级"
            End If
        End If
    Next j
Next i
With Sheets("统计")
    .UsedRange = Empty
    .[a1].Resize(k, y + 2) = br
End With
Application.ScreenUpdating = True
               


End Sub