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

要使用VBA在Excel中实现这个功能，你可以按照以下步骤编写代码：

1. **创建新模块** (如果你的工作簿还没有宏模块，可以在VBA编辑器中点击`插入` -> `模块`创建一个新的模块)。

2. **保存代码** (为了避免混淆，将模块命名为"RandomNumbers"或其他描述性强的名字，然后按F5保存代码)。

3. **编写VBA代码**:

Sub GenerateRandomNumbers()
    ' 定义变量
    Dim rng As Range
    Dim i As Integer
    Dim sum As Double
    Dim numList() As Variant
    Dim avgTarget As Double
    Dim lowBound As Double
    Dim highBound As Double
    
    ' 设置目标平均值、范围限制和数组大小
    avgTarget = 10.0 ' 假设目标平均值是10
    lowBound = -3
    highBound = 3
    ReDim numList(2) As Variant

    ' 随机生成并验证满足条件的数字
    Do While True
        For i = LBound(numList) To UBound(numList)
            numList(i) = Int((highBound - lowBound + 1) * Rnd) + lowBound ' 整数部分
            numList(i) += Int(Rnd * 10) / 10 ' 小数部分，保留一位
        Next i
        
        ' 检查是否满足平均值条件
        sum = Application.WorksheetFunction.Average(numList)
        If Abs(sum - avgTarget) < 0.1 Then ' 考虑到保留一位小数的精度，允许误差0.1
            Exit Do
        End If
    Loop

    ' 输出结果到单元格
    Set rng = Range("A1:C1") ' 假设结果保存在A1:C1区域
    rng.ClearContents
    rng.Value = numList
End Sub

4. **运行代码**:
- 在VBA编辑器中，选择你刚才保存的"GenerateRandomNumbers"宏，然后点击工具栏上的"运行"按钮（绿色三角形），或者直接按下F5键运行它。

5. **检查结果**:
VBA会尝试生成一组满足条件的随机数，直到平均值达到指定值。如果结果显示不正确，可以再次运行或调整代码中的设置。