excel如何取不包含某些单元格数值的随机数

1、 这里为了方便验证，我们将随机数值尽量取小一点，如果你要大一些的随机数，可以修改程序。 设在D1单元格里取随机数（1——5之间），A1、B1单元格为有固定数值的单元格，当然数值范围也在1——5直接，否则毫无意义。

3、 输入代码，如下：Public Sub btsj()Dim sjd As RangeSet sjd = Range("D1")line1: s枣娣空郅jd.ClearContents Randomize sjd = Int(Rnd * 5 + 1) If sjd = Range("A1") Or sjd = Range("B1") ThenGoTo line1End IfEnd Sub

5、 为了快速验证，我们可以给宏加上快捷键，如图所示，这里我们给它设置快捷键“Ctrl+s”，现在我们只要按Ctrl+s就可以快速运行该宏/程序了。