请帮优化或改写代码，运行时间太长。

haisz

经过大家的帮助，终于实现了我的目的，工作也轻松多了，但在实际运用中，用时太长，很是烦人，请将下面这段代码优化或改写一下为谢！
Sub keshi()
  k = 7
  l = 6
For m = 1 To 13
   For i = 3 To Sheets("高中教师上课情况").[c300].End(xlUp).Row
    kes = ""
    For j = 4 To 23
      If Sheets("工作安排表").Cells(j, k) = Sheets("高中教师上课情况").Cells(i, 2) Then
        kes = kes & "+" & Sheets("工作安排表").Cells(j, l)
      End If
    Next j
    kes = Mid(kes, 2)
    If Sheets("高中教师上课情况").Cells(i, 5) = "" Then
     Sheets("高中教师上课情况").Cells(i, 5) = kes
    End If
   Next i
    k = k + 2
    l = l + 2
  Next m
End Sub


详细请参见附件。

旭日升

慢的原因是存在太多的循环与判断，但要实现“1+1+1+1+1+1+4+1”这样的，好像不好办。

haisz

要实现这样的结果，还有没有其它办法？