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

在Excel中，你可以使用VBA（Visual Basic for Applications）脚本来实现这样的功能。首先，创建一个函数来生成满足条件的三个随机数，然后检查它们是否符合条件。以下是步骤：

1. **设置范围**：
- 创建一个数组A1:A3用于存储随机数。

2. **生成随机数**：
- 使用`Application.WorksheetFunction.RandBetween(start, end)`函数，其中start是你允许的最大负偏差，end是你允许的最大正偏差加指定的平均值。

3. **满足条件的循环**：
- 用一个Do...Loop Until循环，直到找到一组满足以下条件的随机数：
a. 平均值等于指定值。
b. 任意两个数之差不超过指定值的4倍。

Function GenerateNumbers(targetAverage As Double, maxDeviation As Double) As Variant
    Dim arr() As Double
    ReDim arr(1 To 3)
    Dim sum As Double
    Dim i As Long
    
    Do
        arr(1) = Int(Rnd * (maxDeviation + targetAverage)) - Int(maxDeviation / 2) ' 随机负数
        arr(2) = arr(1) ' 初始设置第二个数与第一个等大
        arr(3) = targetAverage - (arr(1) + arr(2)) ' 第三个数通过计算确定

        sum = Application.WorksheetFunction.Average(arr)
        If Abs(sum - targetAverage) <= 0.0001 Then ' 考虑到计算精度
            For i = 1 To UBound(arr) - 1
                If Abs(arr(i) - arr(i + 1)) > maxDeviation Then Exit For ' 检查间隔
            Next i
            If i >= UBound(arr) Then Exit Do ' 如果满足所有条件，则跳出循环
        End If
    Loop
    
    GenerateNumbers = arr
End Function

4. **调用函数并显示结果**：
- 在一个新的单元格中，输入`=GenerateNumbers(AVERAGE的目标值, 最大偏离值)`。