VBA 实现学校上课教员一学期中所有上课时间，在一页中通过背景底色反应出来

Sub test()
    
   Set curws = ActiveSheet ‘定义活动表
    curws.Cells.ClearFormats ‘清除表中的格式
     user = Range("af2") ‘取上课的人名
     If IsEmpty(user) Then
        MsgBox "af2单元格添写人名"
        Exit Sub
     End If
    
    ‘循环所有表
    For Each ws In Worksheets
       Set lastRg = ws.Range("a65536").End(xlUp)
        ‘选择任课教员的和上课的简称单元格的范围
        lastrow = lastRg.Row ‘取最后一行
        startrow = lastRg.End(xlUp).Row ‘开始行
      
        For i = startrow To lastrow - 1
            If ws.Range("n" & i) = user Then
                ‘找到教员就取对应的上课简称
               v = ws.Range("g" & i).Value
              ‘从课程表上课范围中循环
               For Each rg In ws.Range("c7:ad" & startrow - 2)
                   
                    If rg.Value = v Then
                      ‘从对应的绝对位置在当前活动表中对应单元格添加底色
                        curws.Range(rg.Address).Interior.ColorIndex = 3
                    End If
               Next
            End If
        Next
        
    Next
End Sub