Vba：如何使用 randbetween 生成随机数

您可以使用 VBA 中的RandBetween方法生成两个特定值之间的随机整数。

以下是在实践中使用此方法的两种常见方法：

方法一：使用RandBetween生成随机整数

 SubGenerateRandomInteger ()
Range(" A1 ") = WorksheetFunction.RandBetween(1, 100)
End Sub

该特定宏将在单元格A1中生成 1 到 100 之间的随机整数。

方法二：使用RandBetween生成多个随机整数

 Sub GenerateMultipleRandomIntegers()

    Dim i As Integer
    
    For i = 1 To 10
        Range(" A " & i) = WorksheetFunction.RandBetween(1, 100)
    Next i
    
End Sub

这个特定的宏将为A1:A10范围内的每个单元格生成一个 1 到 100 之间的随机整数。

以下示例展示了如何在实践中使用每种方法。

示例1：使用RandBetween生成随机整数

假设我们想要生成一个 1 到 100 之间的随机数，并将结果放入 Excel 中当前工作表的单元格A1中。

我们可以创建以下宏来执行此操作：

 SubGenerateRandomInteger ()
Range(" A1 ") = WorksheetFunction.RandBetween(1, 100)
End Sub

当我们运行这个宏时，我们会收到以下输出：

请注意，单元格A1包含值36 。

请注意，每次运行此宏时，都会生成 1 到 100 之间的不同整数值。

示例2：使用RandBetween生成多个随机整数

假设我们想为A1:A10范围内的每个单元格生成一个 1 到 100 之间的随机整数。

我们可以创建以下宏来执行此操作：

 Sub GenerateMultipleRandomIntegers()

    Dim i As Integer
    
    For i = 1 To 10
        Range(" A " & i) = WorksheetFunction.RandBetween(1, 100)
    Next i
    
End Sub

当我们运行这个宏时，我们会收到以下输出：

请注意， A1:A10范围内的每个单元格都包含 1 到 100 之间的随机整数。

注意：您可以在此处找到RandBetween VBA 方法的完整文档。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

VBA：如何编写 AVERAGEIF 和 AVERAGEIFS 函数
VBA：如何编写 SUMIF 和 SUMIFS 函数
VBA：如何编写 COUNTIF 和 COUNTIFS 函数