要求显示下方的样式，余数能补差补进最后一组数

蒋智龙

要求显示下方的样式，余数能补差补进最后一组数

于箱长

没懂

蒋智龙

于箱长 发表于 2024-8-17 09:51
没懂

D列的计算结果算出的平均数，余数没有补差，单组之和不能等于原数

longwin

请看附件。。。。重新写了一个

于箱长

蒋智龙 发表于 2024-8-17 09:57
D列的计算结果算出的平均数，余数没有补差，单组之和不能等于原数

小数点后只保留一位，是吗？

蒋智龙

于箱长 发表于 2024-8-17 10:20
小数点后只保留一位，是吗？

是的，能选择表格名称最好

蒋智龙

longwin 发表于 2024-8-17 10:06
请看附件。。。。重新写了一个

简单明了，可以增加一个代码能自己选择工作表吗

Qs18

Sub qs()
arr = Split(Sheet1.[a17].Value, "、")
x = Val(Sheet1.[b17].Value)
ReDim brr(1 To x, 1 To UBound(arr) + 1)
ReDim crr(1 To x, 1 To 1)
For i = 0 To UBound(arr)
    sm = 0: cl = cl + 1
    For j = 1 To x
        If x = j Then
            brr(j, cl) = arr(i) - sm
        Else
            brr(j, cl) = Application.WorksheetFunction.Round(arr(i) / x, 1)
            sm = sm + brr(j, cl)
        End If
    Next
Next
For i = 1 To UBound(crr)
    crr(i, 1) = brr(i, 1) & "、" & brr(i, 2) & "、" & brr(i, 3)
Next
Sheet1.Range("f2").Resize(x, 1) = crr
End Sub

Qs18

试试......

Qs18

试试.............