产生随机数，且和为0

发粪涂墙911

如图。逛贴吧的时候看到一个帖子，想不出怎么做。烦请各位老师指点一下。3q

沈默00

需要生成几个随机数，然后相加为0

发粪涂墙911

沈默00 发表于 2023-12-15 09:01
需要生成几个随机数，然后相加为0

问了。他也没回。假定20个吧

MaterSeCret

Sub GenerateRandomNumbers()
    Dim rng As Range
    Dim numbers(1 To 20) As Double
    Dim i As Integer
   
    Set rng = Sheet1.Range("A1:A20")
   
    ' 生成随机数
    For i = 1 To 20
        numbers(i) = WorksheetFunction.RandBetween(-20, 20)
    Next i
   
    ' 调整随机数使其和为0
    Do Until WorksheetFunction.Sum(numbers) = 0
        For i = 1 To 20
            If WorksheetFunction.Sum(numbers) > 0 And numbers(i) > 0 Then
                numbers(i) = numbers(i) - 1
            ElseIf WorksheetFunction.Sum(numbers) < 0 And numbers(i) < 0 Then
                numbers(i) = numbers(i) + 1
            End If
        Next i
    Loop
   
    ' 将随机数写入单元格
    rng.Value = WorksheetFunction.Transpose(numbers)
   
    ' 格式化单元格
    rng.NumberFormat = "0"
End Sub

dto8323

先生成随机数，计算和，大于0就平摊到所有正随机数中减去，小于0就平摊到所有负随机数中加上

huanghai22

自定义函数解决

满坛皆为吾师

伪随机

1. =SORTBY(TOCOL(RANDBETWEEN(ROW(1:10)*0,20)*{1,-1}),RANDARRAY(20))

复制代码

mykitami

这种题目非常适合用递归方式来解决

自定义函数
=LAMBDA(x,y,z,q,LET(r,TAKE(RANDARRAY(x,,y,z,1),q),IF(SUM(r)=0,r,mydin(x,y,z,q))))
将上述函数定义名称  mydin

引用该函数
=mydin(40,-20,20,20)
参数分别表示：总随机数个数、最小值、最大值、要加总的随机数个数

hxj119

发粪涂墙911 发表于 2023-12-15 09:02
问了。他也没回。假定20个吧

假定两个：
A1=RANDBETWEEN(0,20)
B1=-A1

comeet

1. =REDUCE("重算",ROW(1:999),LAMBDA(x,y,LET(t,RANDARRAY(20,,-20,20,1),IF(SUM(t)=0,t,x))))

复制代码

理论上循环次数够，都能得出结果