vba编辑生成一个B1B2范围内的随机小数A，小数点保存两位，然后生成B3B4范围内9个随机小数，小数点也保存两位，将A分别与9个随机小数相加，将结果放到D4-D12中

在VBA中，你可以使用`Rnd`函数生成随机数，并结合数组和循环来完成这个任务。以下是步骤：

1. 首先，生成B1到B2范围内的随机小数A，保留两位小数：

Dim A As Double
A = Round(Rnd() * (B2 - B1) + B1, 2)

这里我们假设B1单元格是0.1，B2是1.0，`Rnd()`会生成0到1之间的随机数，乘以(B2-B1)再加上B1是为了得到指定范围内的随机数。

2. 然后生成B3到B4范围内的九个小数数组，并同样保留两位小数：

Dim randomNumbers(1 To 9) As Double
For i = 1 To 9
    randomNumbers(i) = Round(Rnd() * (B4 - B3) + B3, 2)
Next i

3. 将A分别与这九个小数相加并存储到D4到D12：

Dim index As Integer
For index = 1 To 9
    D4(index) = A + randomNumbers(index)
Next index

在这个例子中，`D4(index)`表示D列当前行的值，从D4开始依次填充直到D12。

相关问题

vba生成一个随机数，要求保存到小数点后两位，区间为B1B2输入的值

在VBA中，如果你想要生成一个小数点后两位的随机数，其取值范围基于B1和B2单元格的值，可以按照以下步骤编写代码：

Sub GenerateRandomBetweenB1andB2()
    Dim rngMin As Double, rngMax As Double
    Dim randomNumber As Double
    rngMin = Range("B1").Value ' 获取B1单元格的值
    rngMax = Range("B2").Value ' 获取B2单元格的值
    If rngMax < rngMin Then ' 确保上限大于下限
        MsgBox "B2的值不能小于B1的值", vbExclamation
        Exit Sub
    End If
    randomNumber = Round((rngMax - rngMin) * Rnd + rngMin, 2) ' 生成随机数，Round函数用于保留小数点后两位
    Range("C1").Value = randomNumber ' 将结果保存到C1单元格
End Sub

这段代码首先获取B1和B2的值，然后检查它们是否满足条件（B2大于B1）。接着，它会生成一个在B1和B2之间的随机数，保留两位小数，最后将结果放在C1单元格。

xcel中，B1和B2输入两个数，使用vba生成1个小数点后保留两位的随机数A，要求在B1与B2之间，然后生成9个0.01-0.04之间的随机两位小数，A分别与9个随机两位小数相加生成一个新的小数，生成9次，最后将9个随机数填到C4-C12中

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

1. 首先，在VBA编辑器中创建一个新的模块，或者打开已有的模块。

2. 定义一个函数，例如`GenerateRandomNumbers`，接收B1和B2的值作为参数：

Function GenerateRandomNumbers(B1 As Double, B2 As Double) As Variant
    Dim arr() As Double ' 存放随机数的数组
    Dim i As Integer
    ReDim arr(1 To 9)

    ' 生成一个小数点后保留两位的随机数，并确保在B1和B2之间
    Dim randomNum As Double
    randomNum = Int((B2 - B1 + 0.01) * 100) / 100 ' 四舍五入到小数点后两位

    ' 将该随机数存入数组
    arr(1) = randomNum

    ' 生成剩余8个0.01-0.04之间的随机数并添加到数组
    For i = 2 To 9
        arr(i) = Int((0.04 - 0.01) * Rnd + 0.01) * 100 ' 保证是两位小数
    Next i

    ' 计算并将结果添加到C列
    Dim sum As Double
    For i = LBound(arr) To UBound(arr)
        sum = sum + arr(i)
        Cells(i + 4, 3).Value = sum ' C4到C12分别存放结果
    Next i

    GenerateRandomNumbers = arr ' 返回整个数组
End Function

3. 调用函数：在需要的地方，比如单元格C4下面一行，你可以输入`=GenerateRandomNumbers(B1, B2)`来触发随机数的生成。