excel - 根据 Microsoft Excel 中的值限制自动创建行

Question

我想根据特定商品的每个纸箱的最大单位创建一个纸箱。

例如。

Item    Quantity    MaxQtyPerCarton
A          12            5
B           6            3

通过在 Excel 中创建行，应给出如下结果

Item    CartonQuantity
A          5
A          5
A          2
B          3
B          3

您可以看到商品 A 数量已根据 MaxQtyPerCarton 分为三行。此外，项目 B 已根据 MaxQtyPerCarton 分为两行。

对此有什么想法吗？

Answer 1

VBA 方法(仅对其进行编程)

Option Explicit

Sub Sub1()
  Dim iRow1&, iRow2&, zItem$, zQuan&, zMaxQ&, zAmt&
  iRow2 = 10 ' ??
  For iRow1 = 2 To 3 ' ??
     zItem = Cells(iRow1, 1)
     zQuan = Cells(iRow1, 2)
     zMaxQ = Cells(iRow1, 3)
     Do While zQuan > 0
       zAmt = zQuan
       If zAmt > zMaxQ Then zAmt = zMaxQ
       Cells(iRow2, 1) = zItem
       Cells(iRow2, 2) = zAmt
       iRow2 = iRow2 + 1
       zQuan = zQuan - zAmt
     Loop
  Next iRow1
End Sub