各位大佬帮帮小弟。。太难了。。

我自己写了一个程序。可以实现这些。
但我还是觉得，每次都要复制粘贴太麻烦，
不如直接在EXCEL上，用函数解决。。
但是我EXCEL很渣啊。。

想多了，这种程序更好解决吧。。。

C1:C10区域数组公式（F9键更新数据）=$C$11-FREQUENCY(ROW(1:50),RANDBETWEEN(ROW(1:9)^0,50))+FREQUENCY(ROW(1:50),RANDBETWEEN(ROW(1:9)^0,50))

建议各位用python实现，

A1留空，A2：A11填充公式
=RANDBETWEEN(MAX(0,500-SUM(A$1:A1)+(ROW()-2)*205-(11-ROW())*100),MIN(100,500-SUM(A$1:A1)+(ROW()-2)*205))+205

目标值可输入

可以看作是一个随机误差均衡的问题，中值数为255，可以修改一下255这个数看一下结果
Option Explicit
Sub 一维随机凑数()
　Dim i, m, n, num, sum
　num = [c11].Value
　ReDim a(1 To 10, 1 To 1)
　For i = 1 To UBound(a) - 1
　　m = Int(Rnd * 50) + 1
　　n = IIf(Rnd < 0.5, -1, 1)
　　a(i, 1) = num + m * n
　　sum = sum + m * n
　　If i = UBound(a) - 1 Then
　　　If Abs(sum) <= 50 Then
　　　　a(i + 1, 1) = num - sum: Exit For
　　　Else
　　　　sum = 0: i = 0
　　　End If
　　End If
　Next
　[a1].Resize(UBound(a)) = a
End Sub

看来楼主只要一组就行，改为每次只产生一组
Sub 生成3()
[c10].ClearContents
Do Until [c10] <> ""
For i = 1 To 9
Cells(i, 3) = Application.RandBetween([c11] - 50, [c11] + 50)
Next
s = [c11] * 10 - Application.sum([c1:c9])
If s > [c11] - 51 And s < [c11] + 51 Then [c10] = s
Loop
End Sub