(跪求大神支招)如何根据箱规自动分配数量

q1342871134

需要根据左侧的信息，生成右侧黄色区域内容，跪求大神支招
  

夏天的风shh4695

上附件。。。。。。。。。

shiruiqiang

只会vba解决。

汉唐

附件仅供参考

gwjkkkkk

参与一下。。。

准提部林

Sub TEST_A1()
Dim Arr, Brr(1 To 2000, 1), i&, j%, N&, R, V, P
Arr = [a1].CurrentRegion
For i = 2 To UBound(Arr)
    V = Arr(i, 1)
    R = Int(Arr(i, 3) / V)
    P = Arr(i, 3) Mod V
    For j = 1 To R - (P > 0)
        N = N + 1: Brr(N, 0) = Arr(i, 2)
        Brr(N, 1) = IIf(j > R, P, V)
    Next j
Next i
[f2].Resize(N, 2) = Brr
End Sub

博爱风雨同舟

H2=IF(G2,MIN((SUMIF($B$2:$B$4,F2,$C$2)-SUMIF($F$1:F1,F2,$H$1:H1)),G2),"")

机智

这个用代码应该是比较方便的，可以到VBA模块发帖提问。

袁勇

产品名称：

1. =LOOKUP(1,0/FREQUENCY(ROW(A1),MMULT(({1;2;3}>={1,2,3})*1,INT((C$2:C$4-1)/A$2:A$4)+1)),B$2:B4)&""

复制代码

产品数量：

1. =IF(F2=F3,SUMIF(B:B,F2,A:A),MOD(SUMIF(B:B,F2,C:C),SUMIF(B:B,F2,A:A)))

复制代码