凑数字

天涯论剑

gwjkkkkk 发表于 2024-8-31 18:53
请参考附件。。。

大佬，可以有几个负数，这样应该更简单号处理把

天涯论剑

可以有几个负数，求各位大佬帮帮忙

天涯论剑

gwjkkkkk 发表于 2024-8-31 18:53
请参考附件。。。

不用管以哪一列为基准，能满足29行和aa 列一样就行了，可以有几个负数

yynrzwh

最后一个难搞

天涯论剑

yynrzwh 发表于 2024-8-31 20:32
最后一个难搞

大佬厉害，可以先发我看看吗，加油

天涯论剑

yynrzwh 发表于 2024-8-31 20:32
最后一个难搞

大佬，实在不行的话，就这个版本也可以，最后一个差一点我手动改一下

gwjkkkkk

天涯论剑 发表于 2024-8-31 19:59
不用管以哪一列为基准，能满足29行和aa 列一样就行了，可以有几个负数

Option Explicit
Sub test2()
    Dim ar, vTemp, i&, j&, r&, n&, iRnd&, d

    Application.ScreenUpdating = False

    ar = [F8:U23].Value
    vTemp = Application.Index(ar, UBound(ar))

    vTemp(UBound(vTemp)) = Empty
    For j = 1 To UBound(ar, 2) - 1
        vTemp(UBound(vTemp)) = vTemp(UBound(vTemp)) + ar(UBound(ar, 2), j)
    Next j

    For i = 1 To UBound(ar) - 1
        n = ar(i, UBound(ar, 2))
        For j = 1 To UBound(ar, 2) - 1
            ar(i, j) = Int(vTemp(j) / vTemp(UBound(vTemp)) * ar(i, UBound(ar, 2)))
            n = n - ar(i, j)
        Next j

        Do Until n = 0
            iRnd = Int((UBound(vTemp) - 1) * Rnd + 1)
            If ar(i, iRnd) + 1 <= vTemp(iRnd) Then
                ar(i, iRnd) = ar(i, iRnd) + 1
                n = n - 1
            End If
        Loop
        For j = 1 To UBound(vTemp)
            vTemp(j) = vTemp(j) - ar(i, j)
        Next j
    Next i

    [F8].Resize(UBound(ar) - 1, UBound(ar, 2) - 1) = ar
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

天涯论剑 发表于 2024-8-31 19:59
不用管以哪一列为基准，能满足29行和aa 列一样就行了，可以有几个负数

不知道是不是这个意思。。。

yynrzwh

Book4.zip (29.52 KB, 下载次数: 5)

2024-8-31 21:53 上传

点击文件名下载附件

天涯论剑

yynrzwh 发表于 2024-8-31 21:53

为什么点按钮不会重新刷随机数据呢