excel随机三个数，每个数可以是整数，也可以保留一位小数。三个数单的平均值要等于指定值，并且三个数之间大小不能超过正负3。 如何用VBA实现

要在Excel VBA中实现这个功能，你可以创建一个自定义函数来生成满足条件的随机数。下面是一个简单的步骤描述以及一个基本的VBA代码示例：

1. 打开VBA编辑器（按`Alt + F11`打开），然后在工程资源管理器中右键点击“Microsoft Excel Objects”，选择“插入”->“模块”。

2. 将以下VBA代码粘贴到新创建的模块中：

Function GenerateRandomNumbers(targetAverage As Double, maxValueDiff As Integer) As Variant(1 To 3)
    Dim randNums() As Double
    Dim sum As Double
    Dim count As Integer
    Dim i As Long
    
    ReDim randNums(1 To 3)
    
    ' 循环生成随机数直到符合条件
    Do While True
        For i = 1 To 3
            ' 生成0到1之间的随机浮点数
            randNums(i) = Rnd * (maxValueDiff * 2 + 1) - maxValueDiff ' 乘以2加1是为了得到最大范围(maxValueDiff * 2)内的数字
            ' 四舍五入保留一位小数
            randNums(i) = Round(randNums(i), 1)
        Next i
        
        ' 计算平均值
        sum = WorksheetFunction.Average(randNums)
        
        ' 如果平均值接近目标值则跳出循环
        If Abs(sum - targetAverage) < 0.1 Then
            Exit Do
        End If
        
        ' 检查数值是否超出范围
        For i = 1 To 3
            If randNums(i) < 0 Or randNums(i) > targetAverage + maxValueDiff Or randNums(i) < targetAverage - maxValueDiff Then
                ' 越界则回退并重新生成
                randNums(i) = 0 ' 或者设置为其他初始值，这里简单设为0
            End If
        Next i
    Loop
    
    GenerateRandomNumbers = randNums
End Function

3. 使用该函数的方式是在公式栏输入`=GenerateRandomNumbers(A1, B1)`，其中A1单元格放目标平均值，B1单元格放允许的最大差值（比如3）。这将返回一个包含三个满足条件的随机数的数组。

4.