VBA中，随机生成9个指定范围的随机数，30个随机数的极差不能超过0.05

在VBA中，你可以使用`Rnd()`函数配合一些条件判断来生成满足特定要求的随机数。这里是一个示例，它会生成9个介于指定范围内的随机整数，并确保这9个数的最大值与最小值之差不超过0.05：

Sub GenerateRandomNumbers()
    Dim min As Double, max As Double
    ' 设定你的随机数范围，假设是1到100
    min = 1
    max = 100
    
    ' 计算允许的最大极差，加上0.05作为容错余地
    Dim allowedRange As Double
    allowedRange = 0.05 + (max - min) / 9 ' 因为有9个数，所以平均差应是总差除以数的数量

    Dim randomArray(1 To 9) As Integer ' 初始化一个包含9个元素的数组
    Dim currentMax As Double
    Dim i As Integer
    
    For i = 1 To 9
        ' 生成一个在(min, max]范围内的随机数
        randomArray(i) = Int(Rnd() * (max - min + 1)) + min
        
        ' 检查当前最大值，如果超出允许范围，则重新生成
        If i = 1 Then
            currentMax = randomArray(i)
        Else
            If currentMax + allowedRange < randomArray(i) Then
                randomArray(i) = Int(Rnd() * (currentMax + allowedRange - min + 1)) + min
            End If
        End If
    Next i

    ' 输出或进一步处理你的随机数数组
    Debug.Print "Generated Random Numbers: "
    For Each num In randomArray
        Debug.Print num & ", "
    Next num
End Sub

这个脚本会在循环过程中不断调整新产生的随机数，直到其不会导致整体极差超过0.05为止。