从单元格中减去金额，直到达到0倍提醒金额

Question

我下面的公式减去一个单元格直到它达到零，然后移动到下一个。减法基于值“B”。每次公式遇到值“B”时，都会执行此操作。

问题：我一直在尝试将其推进到公式中，因为每次发现“B”时，单元格都是负数，直到零，并且这些金额乘以相邻价格。 能否请您提供一个可以做到这一点的公式？

示例：当遇到第一个 B 时，将乘以 100 x 10 的全部值，并且提醒 50 将乘以 15，即下一个 A 的 50 x 15 价格。这些值将被求和。

=MAX(SUMIF($A$2:A2,"A",$B$2:B2)-SUMIF($A$2:$A$10,"B",$B$2:$B$10),0)

50 的提醒来自 B 150 - A 100 之间的差异，这使得 50 仍然被吸收。

进一步计算说明：

抱歉，意思是计算6000

Answer 1

你的问题还是很不清楚。 “我下面的公式减去一个单元格直到它达到零”是什么意思？另外，正如 OldUgly 指出的那样，您似乎忽略了第二个 A。由于我们彼此无法理解，请查看下面的代码并尝试自己重写以满足您的需求。它假定数据在名为“Data”的工作表中，并且有一个按钮 (Button1) 可以运行代码。

Dim lLastRow As Long
Dim i As Integer
Dim QtyNumberA, QtyNumberB, QtyNumberRem As Integer

Sub Button1_Click()
lLastRow = Worksheets("Data").Cells(2, 1).End(xlDown).Row 'Rows with data, starting 2nd row (titles in the first)
QtyNumberA = 0 'Variable for storing quantities of A
QtyNumberB = 0 'Variable for storing quantities of B
QtyNumberRem = 0 'Variable for storing quantities remaining

For i = 2 To lLastRow 'scan all rows with data
    If (Worksheets("Data").Cells(i, 1).Value = "A") Then
        QtyNumberA = QtyNumberA + Worksheets("Data").Cells(i, 2).Value
    ElseIf (Worksheets("Data").Cells(i, 1).Value = "B") Then
        QtyNumberB = QtyNumberB + Worksheets("Data").Cells(i, 2).Value
        QtyNumberRem = QtyNumberA - QtyNumberB
        Worksheets("Data").Cells(i, 6) = QtyNumberRem
    End If
Next
End Sub