创建其平均值等于M的随机数

Question

i在M列中具有n个数字，这些数字从1到100随机创建。randbetween (1;100)。我有他们的卑鄙。现在，我想随机创建1到100个数字的平均值，即它们的平均值等于平均值[附加文件]

Answer 1

1. 创建N随机数。
2. 计算平均=> A。
3. 将M-A添加到您生成的随机数中。

Answer 2

我找到了通过目标和创建随机数的代码。

 Function RandTot(iTot As Long, iLo As Long, iHi As Long, _
                 Optional bVol As Boolean = False) As Variant
    Dim nNum        As Long
    Dim i           As Long
    Dim ad()        As Double
    Dim iTry        As Long
    If bVol Then Application.Volatile
    With Application.Caller
        If .Rows.Count > 1 And .Columns.Count > 1 Then
            RandTot = "Enter as row or column vector only!"
            Exit Function
        End If
        nNum = .Count
    End With
    If iHi < iLo Or _
       iTot < nNum * iLo Or _
       iHi > iTot Then
        RandTot = CVErr(xlErrValue)
        Exit Function
    End If
    ReDim ad(1 To nNum)
    Randomize
    With WorksheetFunction
        Do
            iTry = iTry + 1
            If iTry > 200 Then
                RandTot = "Time-out"
                Exit Function
            End If
            For i = 1 To nNum - 1
                ad(i) = RandBetw(iLo, iHi)
            Next i
            ad(i) = iTot - .Sum(ad) + ad(i)
        Loop Until .Min(ad) >= iLo And .Max(ad) <= iHi
    End With
    RandTot = ad
End Function
Function RandBetw(iLo, iHi) As Long
    RandBetw = (Rnd * (iHi - iLo) + Rnd * (iHi - iLo) + Rnd * (iHi - iLo)) / 4 + iLo
End Function

首先，我在n中乘以目标，然后使用此代码，但有时会给我超时。