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

dnvjfdeuff

根据单元格数值，进行拆分成N列（N是变量）
根据单元格数值进行拆分成N列.rar (8.17 KB, 下载次数: 6)

2022-5-27 11:02 上传

点击文件名下载附件
根据单元格数值，进行拆分成N列（N是变量）

liulang0808

Sub aaa()
    n = 5
    r = Cells(Rows.Count, 2).End(3).Row
    arr = [a1].Resize(r, n + 2)
    For j = 2 To UBound(arr)
        If arr(j, 2) > n Then
            sm = arr(j, 2)
            For i = 1 To n - 1
                x = WorksheetFunction.RandBetween(0, sm)
                arr(j, 2 + i) = x
                sm = sm - x
            Next i
            arr(j, 2 + n) = sm
        End If
    Next j
    [a1].Resize(r, n + 2) = arr
End Sub

liulang0808

附件内容供参考。。。。。。

dnvjfdeuff

liulang0808 发表于 2022-5-27 12:07
Sub aaa()
    n = 5
    r = Cells(Rows.Count, 2).End(3).Row

谢谢，太厉害，就是不能出现零值

liulang0808

Sub aaa()
    n = 5
    r = Cells(Rows.Count, 2).End(3).Row
    arr = [a1].Resize(r, n + 2)
    For j = 2 To UBound(arr)
        If arr(j, 2) > n Then
l1:
            sm = arr(j, 2)
            For i = 1 To n - 1
                x = WorksheetFunction.RandBetween(1, sm)
                arr(j, 2 + i) = x
                sm = sm - x
                If sm = 0 Then GoTo l1
            Next i
            arr(j, 2 + n) = sm
        End If
    Next j
    [a1].Resize(r, n + 2) = arr
End Sub

liulang0808

附件内容供参考。。。。。。

dnvjfdeuff

liulang0808 发表于 2022-5-27 19:11
Sub aaa()
    n = 5
    r = Cells(Rows.Count, 2).End(3).Row

这种方式，最后一笔有几笔出现负数会出现负数

liulang0808

dnvjfdeuff 发表于 2023-5-22 19:31
这种方式，最后一笔有几笔出现负数会出现负数

楼主把带负数的文档上传一下吧

dnvjfdeuff

liulang0808 发表于 2023-5-22 20:00
楼主把带负数的文档上传一下吧

出现负数的表格已上传

dnvjfdeuff

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

请大神指点