|
- Sub 按钮1_Click()
- Set d = CreateObject("scripting.dictionary")
- arr = Application.Intersect(ActiveSheet.UsedRange, Columns("e:m"))
-
- b = arr(5, 1)
- For j = UBound(arr) To 5 Step -1
- If Len(arr(j, 1)) > 0 Then
- m = arr(j, 1)
- mr = j
- Exit For
- End If
- Next j
- n = 5
- For j = 5 To mr
- If b < m Then
- arr(j, 5) = b
- arr(j, 6) = b + arr(1, 9) - 1
- b = arr(j, 6) + 1
- d.RemoveAll
- For i = n To mr
- If arr(i, 1) <= arr(j, 6) Then
- d(arr(i, 3) & "") = d(arr(i, 3) & "") + 1
- Else
- n = i
- arr(j, 7) = d(arr(4, 7) & "")
- arr(j, 8) = d(arr(4, 8) & "")
- arr(j, 9) = d(arr(4, 9) & "")
- Exit For
- End If
- Next i
- Else
- Exit For
- End If
- Next j
- Application.Intersect(ActiveSheet.UsedRange, Columns("e:m")) = arr
- End Sub
复制代码 |
|