获取3x3或更大表中的随机数

Question

请广告＆amp;支持读者

我有一张3x3的表，编号从1-9开始，如附件中所示。

现在如何获取E1列中显示的此表中的随机数？

还有一点升级（对于我自己），例如：E1随机单元格B2 - 即6（根据他的图片） - 总是倾注相同的墨水B2。

Answer 1

要从您的表中实际获取一个随机值，可能不会总是有数字1到9，您可以在E1中使用此公式

=INDEX($A$1:$C$3,RANDBETWEEN(1,3),RANDBETWEEN(1,3))

对于不同大小的表，您可以使用此通用公式

=INDEX(Table,RANDBETWEEN(1,ROWS(Table)),RANDBETWEEN(1,COLUMNS(Table)))

您可以使用条件格式来突出显示已选择的号码

选择范围A1:C3并使用此公式应用条件格式

=A1=$E$1

根据需要格式

Answer 2

您可以使用以下代码充当随机数生成器，并在单元格E1上打印结果。

Sub random_num()

'Initialize the random number generator
Randomize

Dim wk As Worksheet
Set wk = ThisWorkbook.Sheets("x")

'Random whole number between 1 and 9 :
random_number = Int(9 * Rnd) + 1

wk.Cells(1, "E").Value = random_number

End Sub