有点难度，请各位大神帮忙,谢谢！

箫月 · 发表于 2018-3-3 19:20

根据课程设置，统计教师各个人的任课情况。其中，有的老师同一科目任教多班级，甚至跨年段，应该是这个表格的难点。请各位大神指点，不胜感激！

课程表 - 副本.zip (91.02 KB, 下载次数: 13)

hhjjpp · 发表于 2018-3-3 19:30

大胆用辅助列没什么难的，难的是excel之外的艰辛和迷茫

hhjjpp · 发表于 2018-3-3 19:35

你也恐惧得够可以的，把附件自动重算给关了！
别人叫你用数组公式吧？

看见星光 · 发表于 2018-3-3 19:59

还是建议你用VBA吧，比较简单省事~一个字典套套就搞定了

看见星光 · 发表于 2018-3-3 20:07

Sub dcount()
Dim d As Object, arr, brr, i&, j&, k&
Set d = CreateObject("scripting.dictionary")
arr = Sheets("课程设置").[a1].CurrentRegion
For i = 3 To UBound(arr)
      For j = 2 To UBound(arr, 2)
         If arr(2, j) = "姓名" Then
            t = arr(i, j)
            If Not d.exists(t) Then Set d(t) = CreateObject("scripting.dictionary")
            d(t)(arr(i, 1) & ",班") = d(t)(arr(i, 1) & ",班") & "," & arr(1, j)
            d(t)(arr(i, 1) & ",节") = d(t)(arr(i, 1) & ",节") + Val(arr(i, j + 1))
         End If
      Next
Next
ActiveSheet.UsedRange.Offset(3) = ""
kr = d.keys
For i = 0 To UBound(kr)
      t = kr(i): x = i + 4: ttl = 0: y = 0
      Cells(x, 1) = i + 1
      Cells(x, 2) = t
      br = d(t).keys
      For brx = 0 To UBound(br)
         bj = br(brx)
         If Right(bj, 2) = ",班" Then
            y = y + 3
            Cells(x, y) = Replace(bj, ",班", "")
            Cells(x, y + 1) = Mid(d(t)(bj), 2)
            Cells(x, y + 2) = d(t)(Cells(x, y).Value & ",节")
            ttl = ttl + Cells(x, y + 2).Value
         End If
      Next
      Cells(x, 18) = ttl
Next
MsgBox "ok"
Set d = Nothing
End Sub

看见星光 · 发表于 2018-3-3 20:08

附件参考

1课程表 - 副本.rar (83.77 KB, 下载次数: 5)

hhjjpp · 发表于 2018-3-3 21:16

课程表-h.rar (111.37 KB, 下载次数: 6)

箫月 · 发表于 2018-3-3 23:05

hhjjpp　看见星光：神一般的人物，顶礼膜拜。在我看来难如登天，被你们轻而易举地解决了，非常感谢。

箫月 · 发表于 2018-3-3 23:15

另：格式是一个重点。不知还有没有办法再优化一下。同一科目任多个班级的，如：一（１）、一（２）、一（３）、二（１）、二（２）更改为一（1、2、3）二（1、2）　　谢谢！

箫月 · 发表于 2018-3-3 23:22

看见星光发表于 2018-3-3 20:08
附件参考

非常感谢您无私的帮助，帮我解决了一大难题。不知在显示格式方面还有没有办法优化。如：吴小艳的科学，任教多班且跨年段，格式有没有办法显示成这样的：一（1、2、3、4、5、6、7）二（1、2、3、4、5、6）
谢谢您，辛苦了！

		自动登录	找回密码
密码			免费注册

[求助] 有点难度，请各位大神帮忙,谢谢！