请教老师：依生产欠料总表，对应到各料号应该让哪些厂商交货，交多少数量

北斗星925

excel小白，请教老师以下问题：
实际工作中，需要依据物控提供的投产欠料总表，让各未交厂商交货.
但是未交厂商有可能有两家以上，目前都是手动抠数据，按照欠料总数拆分到各未交厂商，非常繁琐.

3190496160

这个问题不简单，先留个记号吧

504373

未交货情况，正常流程不是跟踪未交货采购订单，不就解决了吗？
你这个未交数量，有没有向供应商下采购订单？
欠料数量可能包括未采购和采购未到货的情况。

3190496160

Sub 欠料表()
Dim d As Object
Dim ar As Variant, br As Variant
Dim arr(), cr()
Set d = CreateObject("scripting.dictionary")
With Sheets(" 原始报表")
    r = .Cells(Rows.Count, 2).End(xlUp).Row
    ar = .Range("b3:c" & r)
    rs = .Cells(Rows.Count, 6).End(xlUp).Row
    br = .Range("f3:h" & rs)
    ReDim arr(1 To UBound(ar) + UBound(br), 1 To 3)
    For i = 2 To UBound(ar)
        If Trim(ar(i, 1)) <> "" Then
            m = 0: sl = 0
            ReDim cr(1 To UBound(br), 1 To UBound(br, 2))
            For s = 2 To UBound(br)
                If Trim(br(s, 2)) = Trim(ar(i, 1)) Then
                    m = m + 1
                    For j = 1 To UBound(br, 2)
                        cr(m, j) = br(s, j)
                    Next j
                End If
            Next s
            For s = 1 To m
                n = n + 1
                arr(n, 1) = ar(i, 1)
                arr(n, 2) = cr(s, 1)
                sl = sl + cr(s, 3)
                If sl < ar(i, 2) Then
                    arr(n, 3) = cr(s, 3)
                ElseIf sl > ar(i, 2) Then
                    arr(n, 3) = ar(i, 2) - sl + cr(s, 3)
                    GoTo 10
                End If
            Next s
10:
        End If
    Next i
End With
With Sheets("目标报表")
    .[a1].CurrentRegion.Offset(1) = empt
    .[a2].Resize(n, UBound(arr, 2)) = arr
End With
MsgBox "ok!"
                    
End Sub

3190496160

江湖救急，求助.rar (18.02 KB, 下载次数: 25)

2020-11-30 14:22 上传

点击文件名下载附件

附件过于简单 ，仅供参考

y1983y

给个正规附件，数据可以脱密，这样各位大侠帮您做好的表格您就直接好用了

北斗星925

504373 发表于 2020-11-30 12:05
未交货情况，正常流程不是跟踪未交货采购订单，不就解决了吗？
你这个未交数量，有没有向供应商下采购订单 ...

解释下：我们公司是大批量备料，下总订单需求，再按生产需求分批交货。
未交订单数量是足够的，只是有可能同一料号采购的厂商不唯一。
不需要追回全部未交订单。