在Excel中，如何生成x次随机数


In Excel, how would you generate a random number x times

在Excel中，我可以使用以下公式生成随机数：

RANDBETWEEN(1，A1)

单元格A1保存我想要生成的最大数字。 用例是随机骰子滚动发生器。 在A1中输入6以掷出6面骰子。

如何修改我的公式以合并多个随机数。 用例是滚动2个6面骰子，其中2个来自A2单元？

换句话说，我想指定x个n面骰子。 如果我指定3d12，我想要将3个随机数的结果从1加到12。

相关讨论

用=RANDBETWEEN(1, A1)从B1到B10填充一些单元格，这样就可以生成一堆卷。 然后在C1上输入：=SUM(OFFSET($B$1,0,0,$A$2,1))

enter image description here

更改输入单元格以适应。 哪里：

  • A1 =卷数
  • B1 =边数

  • A2将输出单独(psudo)随机卷的总和。

    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    Sub rollDice()

    Dim rolls As Integer
    Dim sides As Integer
    Dim x As Integer
    Dim y As Integer

    rolls = Worksheets("Sheet1").Range("A1").Value
    sides = Worksheets("Sheet1").Range("B1").Value
    x = 0
    y = 0


    While x < rolls
        y = y + Application.RandBetween(1, sides)
        x = x + 1
    Wend

    Worksheets("Sheet1").Range("A2").Value = y

    End Sub
相关讨论