|
好像末行没有处理。
- Sub test()
- Dim arrOri, arrRst, i&, j&, n#
- arrOri = [a1].CurrentRegion
- ReDim arrRst(1 To UBound(arrOri) - 1, 2)
- For i = 2 To UBound(arrOri)
- For j = i To UBound(arrOri)
- If n + arrOri(j, 2) > 5 Then
- arrRst(i - 1, 0) = i - 1
- arrRst(i - 1, 1) = j - 2
- arrRst(i - 1, 2) = n
- n = 0
- Exit For
- Else
- n = n + arrOri(j, 2)
- If j = UBound(arrOri) Then
- arrRst(i - 1, 0) = i - 1
- arrRst(i - 1, 1) = j - 1
- arrRst(i - 1, 2) = n
- n = 0
- End If
- End If
- Next j
- Next i
- [d2].Resize(UBound(arrRst), 3) = arrRst
- End Sub
复制代码 |
评分
-
查看全部评分
|