excel随机三个数,三个数单的平均值要等于指定值,并且三个数之间大小不能超过正负3

在Excel中，你可以通过VBA宏来实现这个需求。首先，假设你要生成的随机整数范围是从-3到3，且平均值需要等于指定的某个数值，比如5。以下是步骤：

1. 打开VBA编辑器（在Excel中按Alt + F11）。
2. 创建一个新的模块，然后编写以下VBA代码：

Sub GenerateRandomNumbers()
    Dim targetAverage As Double
    ' 设定目标平均值
    targetAverage = 5
    Dim randomNumbers(2) As Integer
    Dim sum As Integer
    Dim maxDiff As Integer
    
    ' 生成3个随机数，范围在-3到3
    For i = 0 To 2
        randomNumbers(i) = Int((3 - (-3)) * Rnd + (-3))
    Next i
    
    ' 确保三个数的和接近目标平均值，并更新最大差值
    Do While (sum - (targetAverage * 3)) <> 0 And maxDiff < 6
        sum = WorksheetFunction.Sum(randomNumbers)
        Dim newNum As Integer
        newNum = Int((3 - (-3)) * Rnd + (-3))
        
        If Abs(newNum - randomNumbers Application.WorksheetFunction.Min(randomNumbers)) <= maxDiff Then
            randomNumbers(Application.WorksheetFunction.MaxIndex(randomNumbers)) = newNum
        Else
            maxDiff = Abs(newNum - randomNumbers Application.WorksheetFunction.Min(randomNumbers))
        End If
    Loop
    
    ' 输出结果
    Range("A1:A3").Value = randomNumbers
End Sub

3. 运行`GenerateRandomNumbers`宏，它会生成满足条件的三个随机整数。