excel中，B1和B2输入两个数，使用vba生成9个小数点后保留两位的随机数，要求在B1与B2之间，且9个数极差不能超过0.04并填到C4-C12中

在Excel VBA中，你可以创建一个宏来满足这个需求。首先，在VBA编辑器中打开一个新的模块，然后编写如下的代码：

Sub GenerateRandomNumbers()
    Dim rng As Range
    Dim randomNums(8) As Double
    Dim i As Integer
    
    ' Set the range for input values and output cells
    Set rng = Range("B1:B2")
    
    ' Get the input values
    Dim minVal As Double, maxVal As Double
    minVal = rng.Cells(1, 1).Value
    maxVal = rng.Cells(2, 1).Value
    
    ' Check if the difference between the values is less than 0.04
    If maxVal - minVal < 0.04 Then
        MsgBox "极差小于0.04，无法生成满足条件的随机数。"
        Exit Sub
    End If
    
    ' Generate 9 random numbers within the specified range
    For i = LBound(randomNums) To UBound(randomNums)
        randomNums(i) = Round((maxVal - minVal) * Rnd + minVal, 2) ' Random number between B1 and B2 with 2 decimal places
    Next i
    
    ' Fill the generated numbers into C4 to C12
    Dim j As Integer
    For j = 4 To 12
        Cells(j, 3).Value = randomNums(j Mod 9) ' Shift index by 1 for each row
    Next j
End Sub

将这段代码复制粘贴到VBA编辑器中，然后保存为宏（例如命名为"GenerateRandomInRange"）。使用时，直接运行此宏，它将在B1和B2范围内的0.04极差内生成9个随机小数，并填充到C4至C12。