根据单元格数值，进行拆分成N列（N是变量）

gwjkkkkk

Option Explicit
Sub TEST2()
    Dim ar, br, cr, i&, j&, n&, iMin&
   
    ar = Range("B2", Cells(Rows.Count, "B").End(xlUp))
    iMin = WorksheetFunction.Min(ar)
    n = Application.InputBox("请选择随机折分数，不超过" & iMin, Title:="提示", Default:=7, Type:=1)
    If n = 0 Then Exit Sub
   
    Application.ScreenUpdating = False
    [A1].CurrentRegion.Offset(, 2).Clear
    ReDim br(1 To UBound(ar), 1 To n)
    For i = 1 To UBound(ar)
        cr = RndNumIsTotalSum(1, CLng(ar(i, 1)), n, CLng(ar(i, 1)))
        For j = 1 To UBound(cr)
            br(i, j) = cr(j, 1)
        Next j
    Next i
   
    [C2].Resize(UBound(br), UBound(br, 2)) = br
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

参与一下。。。

liulang0808

dnvjfdeuff 发表于 2023-5-22 20:06
出现负数的表格已上传

不是六楼的模拟文档啊

dnvjfdeuff

gwjkkkkk 发表于 2023-5-22 20:38
参与一下。。。

方法是好，避免了负数，但数量太小，领用的逻辑不成立，

dnvjfdeuff

gwjkkkkk 发表于 2023-5-22 20:38
参与一下。。。

非常感谢提供思路，让我们菜鸟学习了，就是领用材料不可能几公斤几公斤领

liulang0808

猜着改了一下，供参考

dnvjfdeuff

liulang0808 发表于 2023-5-22 21:41
猜着改了一下，供参考

这样的话，数据合计有差额的同时，有好多少列没有数据

liulang0808

dnvjfdeuff 发表于 2023-5-22 22:00
这样的话，数据合计有差额的同时，有好多少列没有数据

楼主最初的附件跟这个需求是有出入的
当前的需求不是太明白，所以猜着改了代码