VBA-从周课表统计节次

Sub datainsert()

    Dim r1 As Integer, r2 As Integer, i As Integer, j As Integer, findrow As Integer, findMonth As Integer, tday As Integer

    findMonth = Range("h1")
    Set Source = Worksheets("总周课表")

    Set t = ActiveSheet

    r1 = Source.Range("a65536").End(xlUp).Row

    '开始循环

    For i =  To r1

        xm = Source.Cells(i, )
        kc = Source.Cells(i, )
        jc = Source.Cells(i, )
        rq = Source.Cells(i, )
        bc = Source.Cells(i, )
        dd = Source.Cells(i, )

        '比较日期
        If Format(rq, "M") = findMonth Then

        r2 = t.Range("c65536").End(xlUp).Row
        If (r2 < ) Then r2 = 

        tday = Format(rq, "d") +  '后移7个单元格

            findrow = 

            For j =  To r2

                If t.Cells(j, ) = xm Then
                    findrow = j
                    Exit For
                End If

            Next

            If (findrow > ) Then '找到

            t.Cells(findrow, tday) = Cells(findrow, tday) & " " & jc

            Else '没找到直接添加

              t.Cells(r2 + , ) = xm
                t.Cells(r2 + , ) = kc
                t.Cells(r2 + , ) = bc
                t.Cells(r2 + , ) = dd
                t.Cells(r2 + , tday) = jc

            End If
           End If
    Next

End Sub