你的问题我感觉用函数实现可以,不过比较麻烦因为数值大小不固定没哟哟规律,还是用vba实现快捷。要获得进一步帮助加 二三/二七二八/五六九九office助手
高手,我是高手,哈哈
Dim n, m, xh, sl, sl1, sl2, sl3 As Integer
Dim rq As Date
n = 1
m = 1
rq = "2017-11-28"
sl1 = 0
sl2 = 80
sl3 = 0
For n = 1 To Sheet1.Range("a65536").End(xlUp).Row - 1
sl = Range("b" & 2 + n)
xh = Range("a" & 2 + n)
Do While sl >= sl2 - sl3
Range("c" & 2 + m) = xh
Range("d" & 2 + m) = sl2 - sl3
sl = sl - (sl2 - sl3)
sl3 = sl3 + (sl2 - sl3)
If sl3 = sl2 Then
Range("e" & 2 + m) = rq
sl3 = 0
Else
Range("e" & 145 + m) = rq - 1
End If
rq = DateAdd("d", 1, rq)
m = m + 1
Loop
If sl > 0 Then
Range("c" & 2 + m) = xh
Range("d" & 2 + m) = sl
Range("e" & 2 + m) = rq
m = m + 1
sl1 = sl
sl3 = sl3 + sl1
End If
Next