提取教师上课节次

乐乐2006201505

根据表1中黄底色区域数据，填写表2中相应老师任课节次。有几个教师的已做好示例。自己实在是做不出来。我写的代码在附件中有，但确实很糟糕。希望不吝赐教。

microyip

1. Sub 调整格式()
   
2.     Dim vData As Variant, nRow As Integer, nCol As Integer
   
3.     Dim oDic As Object
   
4.     Dim sWeek As String, nClass As Integer, nLesson As Integer, sTeacher As String
   
5.     Dim vFill As Variant
   
6.    
   
7.     Set oDic = CreateObject("Scripting.Dictionary")
   
8.     vData = Sheet1.[A19].CurrentRegion.Value
   
9.     For nCol = 4 To UBound(vData, 2)
   
10.         If vData(1, nCol) <> "" Then sWeek = Trim(vData(1, nCol))
    
11.         If vData(2, nCol) <> "" Then nClass = Val(vData(2, nCol))
    
12.         For nRow = 3 To UBound(vData)
    
13.             nLesson = Val(vData(nRow, 3))
    
14.             If vData(nRow, nCol) <> "" Then
    
15.                 sTeacher = Trim(vData(nRow, nCol))
    
16.                 oDic(sTeacher & "|" & sWeek & "|" & nLesson) = nClass
    
17.             End If
    
18.         Next
    
19.     Next
    
20.     vData = Sheet3.UsedRange.Value
    
21.     ReDim vFill(3 To UBound(vData), 3 To UBound(vData, 2))
    
22.     For nCol = 3 To UBound(vData, 2)
    
23.         If vData(2, nCol) <> "" Then
    
24.             sWeek = Trim(vData(2, nCol))
    
25.             nLesson = 1
    
26.         Else
    
27.             nLesson = nLesson + 1
    
28.         End If
    
29.         For nRow = 3 To UBound(vData)
    
30.             sTeacher = Trim(vData(nRow, 1))
    
31.             If oDic.Exists(sTeacher & "|" & sWeek & "|" & nLesson) Then vFill(nRow, nCol) = oDic(sTeacher & "|" & sWeek & "|" & nLesson)
    
32.         Next
    
33.     Next
    
34.     Sheet3.[C3].Resize(UBound(vFill) - 2, UBound(vFill, 2) - 2) = vFill
    
35. End Sub

复制代码

microyip

附上附件以供参考

乐乐2006201505

microyip 发表于 2017-10-12 22:38
附上附件以供参考

非常感谢您及时地解答。
可能是我没有说清楚。我想要的结果是星期一有八节课，某个教师带的是第几节课。不是统计所带总节数。比如赵  2星期一第一节1.2两个班上课。则第一节有课，统计为1，统计到表2中赵  2星期一八列中第一列单元格中。我将表格加了一行第几节的内容，重新上传附件，希望得到您的帮助。非常感谢！

乐乐2006201505

microyip 发表于 2017-10-12 22:38
附上附件以供参考

回复的信息需要审核，您早点休息，明天有空请帮我看看，非常感谢！

microyip

乐乐2006201505 发表于 2017-10-12 23:40
非常感谢您及时地解答。
可能是我没有说清楚。我想要的结果是星期一有八节课，某个教师带的是第几节课。 ...

你细心看清楚，填的数是班次，不是总和，例如，星期一，赵2，在第一节课里有1、2两个班，因为重复了，取了后面的一个班的班次2

乐乐2006201505

奥，谢谢您！我再看看。
另外能不能把赵  2老师的班级在同一个框里面填全，如将2改为1，2。谢谢！

microyip

你把建字典的过程改为字符串相连就可以了

乐乐2006201505

好，我试试，不会了再请教您。

将第16句改为oDic(sTeacher & "|" & sWeek & "|" & nLesson) = nClass & ","& nClass吧！

这样改了不合适啊！
再次求助。

乐乐2006201505

microyip 发表于 2017-10-13 11:18
你把建字典的过程改为字符串相连就可以了

具体怎么做，一下午了，还没有头绪，请您明示，谢谢!