又是一个凑数的难题，求帮忙

3190496160

逻辑很简单，根据   固定值   工作表中B（原料数量）列和F（原料总投入量）分配原料到   固定值   工作表的  G:J列，分配逻辑如下：

1、根据F列的共投入量，从B列取值过来放到G:J列，如果对应航B列的值小于F列的总投入量，则从下一行的B列取值到后面一列，再不够，再从再下一行取值过来
2、每一行最多四次一定能够满足啦
3、前5行有模拟结果
麻烦路过的朋友帮忙看看，不胜感激
凑数求助.rar (21.91 KB, 下载次数: 17)

2024-11-21 08:50 上传

点击文件名下载附件

kevinchengcw

有一些找不出来组合

kevinchengcw

楼主自己再研究一下

shiruiqiang

看模拟数据，也应该是先进先出

3190496160

kevinchengcw 发表于 2024-11-21 09:36
有一些找不出来组合

非常感谢您的无私付出，祝您生活愉快，
兄弟应该是把意思理解错了，不是组合，根据F列的共投入量，从B列取值过来放到G:J列，如果对应航B列的值小于F列的总投入量，则先把每一行最多四次一定能够满足对应行B列的数值放到对应行的G列，再从下一行的B列取值到后面一列，再不够，再从再下一行取值过来，
麻烦再帮忙看看

yynrzwh

kevinchengcw

3190496160 发表于 2024-11-21 09:55
非常感谢您的无私付出，祝您生活愉快，
兄弟应该是把意思理解错了，不是组合，根据F列的共投入量，从B列 ...

我反而看不懂你的描述了，看其他人的吧

titi012

Sub tt()
    Dim Arr, Brr, Crr()
    Dim i&, j&, x&, m As Double
    Arr = Range("b3:b102")
    Brr = Range("f3:f102")
    ReDim Crr(1 To 100, 1 To 4)
    For i = 1 To UBound(Brr)
        m = Brr(i, 1): x = 0
        For j = 1 To UBound(Arr)
            If Arr(j, 1) > 0 Then
                m = m - Arr(j, 1)
                x = x + 1
                If m > 0 Then
                    Crr(i, x) = Arr(j, 1)
                    Arr(j, 1) = 0
                Else
                    Crr(i, x) = m + Arr(j, 1)
                    Arr(j, 1) = -m
                    Exit For
                End If
            End If
        Next j
    Next
    [g3:j102] = Crr
End Sub

好像后面没有原料可以抽用了。怎么办？

寂寞只为自由

[url=凑数强化版【庆贺2021年5月9日母亲节】 https://club.excelhome.net/thread-1584367-1-1.html (出处: ExcelHome技术论坛)][/url]
凑数之简化版【随机凑数】 [url]https://club.excelhome.net/thread-1376595-1-1.html (出处: ExcelHome技术论坛)[/url][/url]
香川老师关于凑数的帖子，楼主可以抽空看看，希望对你有所帮助

3190496160

yynrzwh 发表于 2024-11-21 09:56

非常感谢您的无私付出，
发自内心的佩服，代码简洁高效