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

Question

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

RANDBETWEEN（1，A1）

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

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

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

Answer 1

更改输入单元格以适应。其中：

• A1 =卷数
• B1 =边数

• A2将输出单独（psudo）随机卷的总和。

  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
  

Answer 2

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