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

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)
s = ""
    For j = 1 To UBound(brr, 2)
    s = s & "、" & brr(i, j)
    Next
    crr(i, 1) = Mid(s, 2)
Next
Sheet1.Range("f2").Resize(x, 1) = crr
End Sub

Qs18

这下增加多少都可以了

Qs18

试试.........

于箱长

蒋智龙 发表于 2024-8-17 11:04
是的 大哥，你写的代码一路既往的好读，中文第一

我主要就是为了快速读懂，所以加了很多中文的数组定义

蒋智龙

于箱长 发表于 2024-8-17 10:57
还挺好玩儿的，请忽略绿色字体部分，绿色是为了测试看中间计算过程的

Sub gftshta()
Dim 平均数结果(), ArA, 点数, 余数, 输出数组()
点数 = [b17] * 1
需要计算的平均数 = Split([a17], "、")
余数 = Split([a17], "、")
ReDim 平均数结果(1 To 点数, 1 To UBound(需要计算的平均数) + 1)
ReDim 输出数组(1 To 点数, 1 To 1)
For i = 1 To 点数 - 1
  For i = 1 To UBound(需要计算的平均数) + 1
     平均数结果(i, j) = Round((--需要计算的平均数(j - 1)) / 点数, 1)
     余数(j - 1) = --余数(j - 1) - 平均数结果(i, i)
     Next
     输出数组(i, 1) = 平均数结果(i, 1)  & "、" & 平均数结果(i、2) & "、" & 平均数结果(i，3)"
Next
'For j=1 To UBound(需要计算的平均数)+1
'平均数结果(点数，j)=--余数(j- 1)
'next
输出数组(点数, 1) = 余数(0) & "、" & 余数(1) & "、" & 余数(2)
[d17].Resize(UBound(输出数组), 1) = 输出数组

     
End Sub
这个没错吧···

蒋智龙

Qs18 发表于 2024-8-17 11:11
试试.........

我用的2010版office 为什么提示运行不了

蒋智龙

于箱长 发表于 2024-8-17 11:14
我主要就是为了快速读懂，所以加了很多中文的数组定义

50、100、50、100 多几个、号后的数字 就不能算了 还能帮忙改下吗

Qs18

蒋智龙 发表于 2024-8-17 11:19
我用的2010版office 为什么提示运行不了

我这边正常运行，不知道是什么情况

于箱长

蒋智龙 发表于 2024-8-17 11:24
50、100、50、100 多几个、号后的数字 就不能算了 还能帮忙改下吗

能啊，我在22楼放的图就是改过的啊

蒋智龙

于箱长 发表于 2024-8-17 11:30
能啊，我在22楼放的图就是改过的啊

可以了 还能加个
代码 能指定工作表吗