Excel模拟根据行中的值创建列

我想根据行中的值生成随机值。
我试过：

=if（row:row>50；Rand（））

但这只在一列中提供了

Rand（）

值
最后，我生成了我想要的值的数量，但不是我想要的方式

例如：

3 rd rd rd
2 rd rd
1 rd

我有4000个模拟

我会使用宏

假设您的值从单元格A1开始，选择单元格B1并运行下面的宏，您将在单独的单元格中获得随机数：

Sub CreateRandomNumbers()
Dim i As Integer: Dim q As Integer
Dim startingRow As Integer: Dim startingColumn As Integer
Do While ActiveCell.Offset(0, -1).Value <> ""
    'Store number of random numbers required in "q"
    q = ActiveCell.Offset(0, -1).Value
    'Store starting row and column
        startingRow = ActiveCell.Row
        startingColumn = ActiveCell.Column
    'Exit sub if q = 0
    If q = 0 Then
        MsgBox "No random number required."
        Exit Sub
    End If
    'Calculate random numbers
    For i = 1 To q: ActiveCell.Value = Rnd(): ActiveCell.Offset(0, 1).Select: Next i
    'Go back to starting cell
    Cells(startingRow, startingColumn).Select
    'Go to next row in the same columns
    ActiveCell.Offset(1, 0).Select
Loop
End Sub

Sub-CreateRandomNumbers（）
Dim i作为整数：Dim q作为整数
Dim startingRow为整数：Dim startingColumn为整数
在ActiveCell.Offset（0，-1）时执行。值“”
'存储“q”中所需的随机数'
q=ActiveCell.Offset（0，-1）.Value
'存储起始行和起始列
startingRow=ActiveCell.Row
startingColumn=ActiveCell.Column
'如果q=0，则退出sub
如果q=0，则
MsgBox“不需要随机数。”
出口接头
如果结束
“计算随机数
对于i=1到q:ActiveCell.Value=Rnd（）：ActiveCell.Offset（0，1）。选择：下一个i
“回到起始单元格
单元格（起始行、起始列）。选择
'转到相同列中的下一行
ActiveCell.Offset（1，0）。选择
环
端接头

看起来像这样：

---

我希望这会有帮助。

哦，我没有看到编辑。谢谢