excel中，B1为最大值，B2为最小值，使用vba生成9个随机数，要求在最大值与最小值之间，且9个数极差不能超过0.04

在Excel中，可以使用VBA编写一段代码来生成符合条件的随机数。这里是一个例子，假设B1单元格存储的是最大值，B2单元格存储的是最小值，我们想要生成9个在两者之间的随机数，且它们的极差不超过0.04：

Sub GenerateRandomNumbersInRange()
    Dim rngMax As Range
    Set rngMax = Range("B1") ' 最大值所在的单元格
    Dim rngMin As Range
    Set rngMin = Range("B2") ' 最小值所在的单元格
    Dim randomArray(1 To 9) As Double ' 用于存放随机数的数组
    Dim diff As Double
    Dim totalDiff As Double
    Dim i As Integer
    
    ' 获取最大值和最小值
    Dim maxValue As Double
    maxValue = rngMax.Value
    Dim minValue As Double
    minValue = rngMin.Value
    
    ' 计算允许的最大极差，0.04加上两个端点的差值
    diff = 0.04 + maxValue - minValue
    totalDiff = 0 ' 初始化总差值
    
    For i = 1 To 9
        ' 生成一个随机数并检查是否超出范围
        Do While totalDiff > diff
            randomArray(i) = minValue + Rnd() * (maxValue - minValue) ' 生成随机数
            totalDiff = WorksheetFunction.AverageAbs(randomArray) ' 计算平均绝对偏差
        Loop
    Next i
    
    ' 输出随机数组
    Dim j As Integer
    For j = LBound(randomArray) To UBound(randomArray)
        Debug.Print randomArray(j), " "
    Next j
End Sub

这段代码通过循环确保每次添加的随机数都不致于使整个序列的极差超过0.04。