如何将一个数值进行摊分

kort20034

如下图，按照B列单元格设置的最大限值，在C列相应的单元格对A1单元格的数值进行摊分，一直分完为止，谢谢！

z865593849

longwin

Sub test()
    s = [a1].Value
    arr = Range("B2:B" & [b1].End(xlDown).Row)
    For i = 1 To UBound(arr)
        If arr(i, 1) >= s Then
            arr(i, 1) = s
            Exit For
        End If
        s = s - arr(i, 1)
    Next
    [c2].Resize(i, 1) = arr
End Sub

longwin

附件供参考。。。。。

taller

wanghui834

这不就是凑数吗

一招秒杀

最上面为 =Min(A1,B2)  下面的公式 见图，简单公式就搞定，不必麻烦VBA代码。

gwjkkkkk

C2=

1. =IF(IF(A1>SUM(B$2:B2)-$A$1,B2,$A$1-SUM(B1:B$2))<0,"",IF(A1>SUM(B$2:B2)-$A$1,B2,$A$1-SUM(B1:B$2)))

复制代码

翁知江安

Sub fentan()
Dim i, j, irow
Dim arr
irow = Sheet3.[b1].End(xlDown).Row
arr = Sheet3.Range("a1:c" & irow)
If arr(1, 1) <= 0 Then
   Exit Sub
End If
For i = 2 To UBound(arr)
     j = j + arr(i, 2)
   If arr(1, 1) >= j Then
     Sheet3.Cells(i, 3) = arr(i, 2)
     k = Sheet3.Cells(i, 3) + k
    Else
      Sheet3.Cells(i, 3) = arr(1, 1) - k
      Exit For
    End If
Next
MsgBox "ok"
End Sub

翁知江安

这是测试结果，供参考