|
- Sub 按钮9_Click()
- Set d = CreateObject("scripting.dictionary")
- arr = Sheets("总课表").[c7:bp32]
- brr = Sheets("安排").[a1].CurrentRegion
- For j = 3 To UBound(arr, 2)
- For i = 3 To UBound(arr) Step 3
- If arr(i + 1, j) And Len(arr(i, j)) > 0 Then
- If d.exists(arr(i, j)) Then
- r = d(arr(i, j))
- Else
- r = 1
- End If
- y = 0
- For x = r + 1 To UBound(brr)
-
- If arr(i, j) = brr(x, 4) Then
- y = y + 1
- brr(x, 7) = arr(i, 1)
- brr(x, 5) = arr(1, j)
- brr(x, 6) = arr(i + 2, j)
- If y = arr(i + 1, j) Then
- d(arr(i, j)) = x
- Exit For
- End If
- End If
- Next x
- End If
- Next i
- Next j
- Sheets("安排").[a1].CurrentRegion = brr
- End Sub
复制代码 |
|