在许多形式的 BASIC 中，包括 vba-无论是 Word，Excel，Access 等，您都有内置的函数Rnd()。（请参阅 Microsoftdocumentation）

在最简单的形式中，它将生成一个介于 0 和 1 之间的随机值-例如 0.7055475。

因此，如果您想在两个整数之间生成一个随机数（整数），则可以使用以下内容：

num = Int ((upperbound - lowerbound + 1) * Rnd + lowerbound)

所以当寻找 5 和 50 之间的随机数时，你会使用：

num = Int ((50 - 5 + 1) * Rnd + 5)

或者，因为您使用的是 Excel-您可以使用RandBetween函数在单元格中使用。要使用单元格函数，您需要在函数前面加上WorkSheetFunction.，如下所示：

num = WorksheetFunction.RandBetween(5, 50)