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

在Excel中，你可以使用VBA编写一段宏来满足这个需求。首先，你需要创建一个自定义函数来生成随机数，并确保它们落在指定范围内。下面是一个简单的VBA示例：

Sub GenerateRandomNumbers()
    Dim rng As Range
    Dim maxVal As Double
    Dim minVal As Double
    Dim randomNums(8) As Double ' 创建一个数组来存储9个随机数
    Dim i As Integer
    
    ' 获取B1和B2的值作为范围限制
    Set rng = Range("B1:B2")
    maxVal = rng.Cells(1, 1).Value
    minVal = rng.Cells(2, 1).Value

    ' 确保极差不超过0.04
    Dim maxDifference As Double
    maxDifference = maxVal - minVal
    If maxDifference < 0.04 Then
        MsgBox "无法生成满足条件的9个随机数，极差小于0.04."
        Exit Sub
    End If

    ' 生成随机数
    For i = 0 To 8
        randomNums(i) = Int((maxVal - minVal + 0.04) * Rnd) + minVal ' 四舍五入保留两位小数
    Next i
    
    ' 将随机数填充到A4-A12
    Range("A4:A12").Value = Application.Transpose(randomNums)
End Sub

要运行此宏，你可以在VBA编辑器中，将上述代码粘贴到一个新的模块中，然后设置一个快捷键或者通过宏按钮执行。