vba - 根据列的输入生成一系列随机数。 VBA Excel

Question

A 列的数字从 0 到 5。当数字大于 0 时，我希望它在该单元格旁边的列中生成该数量的随机数。
例如，如果 A4 = 3，那么我想要 B4、C4 和 D4 中的随机数。

我有以下代码可以很好地拾取超过 0 的值并生成 200 到 300 之间的随机数，但我一直坚持如何让它生成多个。
谁能指出我正确的方向？谢谢你

Sub RandomNumbers()

    Dim i As Integer
    Dim j As Integer
    Dim lastrow As Integer
    lastrow = Range("a1").End(xlDown).Row
    For j = 1 To 1
        For i = 1 To lastrow
            If ThisWorkbook.Sheets("LossFrequency").Cells(i, j).Value > 0 Then
                ThisWorkbook.Sheets("LossFrequency").Cells(i, j + 1).Value = Int((300 - 200 + 1) * Rnd + 200)
                Else: ThisWorkbook.Sheets("LossFrequency").Cells(i, j + 1).Value = 0
            End If

        Next i
    Next j
End Sub

Answer 1

你有你的循环切换:

Sub RandomNumbers()

Dim i As Integer
Dim j As Integer
Dim lastrow As Integer
lastrow = Range("a1").End(xlDown).Row
With ThisWorkbook.Sheets("LossFrequency")
    For i = 1 To lastrow
        If .Cells(i, 1).Value > 0 Then
            For j = 1 To .Cells(i, 1).Value
                .Cells(i, j + 1).Value = Int((300 - 200 + 1) * Rnd + 200)
            Next j
        Else
            .Cells(i, 2).Value = 0
        End If

    Next i
End With

End Sub