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

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

RANDBETWEEN（1，A1）

其中单元格A1包含我要生成的最大编号。一个用例是随机掷骰子生成器。在A1中输入6以掷出一个六面骰子

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

---

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

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

• 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
  

  Sub rollDice（）
  Dim滚动为整数
  将边变暗为整数
  作为整数的Dim x
  Dim y作为整数
  卷=工作表（“表1”）.范围（“A1”）.值
  侧面=工作表（“表1”）.范围（“B1”）.值
  x=0
  y=0
  当x<滚动时
  y=y+Application.RandBetween（1，边）
  x=x+1
  温德
  工作表（“表1”）。范围（“A2”）。值=y
  端接头
  

---

用

=randbween（1，A1）

填充一些单元格，例如从

B1

到

B10

，因此生成一组卷。然后在

C1

上输入：

=SUM（抵销（$B$1,0,0，$A$2,1））

---

你是什么意思？你能举个例子吗？如果一个掷骰子是3，另一个是5，你想显示8吗？

RANDBETWEEN（1，A1）+RANDBETWEEN（1，A1）

？请在你的帖子中更清楚地说明你在问什么，因为书面上没有。它浪费了那些根据你写的东西写答案的人的时间，而他们只是被告知你完全是在说别的。首先，也最重要的是，感谢您为此投入的精力和讨论。我很抱歉没有早点检查。我在玩D&D游戏，想要一个简单的方法来滚动4d20。我可以得到一个20面骰子的4个随机骰子的总和。我知道如何获得1到20之间的随机数，但我不知道如何获得4个不同随机数的总和。@pnuts也清理了我的。我必须把它交给你，这会解决它，而且用一种更优雅的方式。我只是在用Excel公式寻找解决方案。我知道VBA是office的一部分，但如果我深入研究代码，我会使用Javascript或其他东西。很高兴听到这个消息，先生。如果有任何问题，请再次评论。我必须自学vba，所以我很乐意帮助别人减轻痛苦。