このメソッドは、RAND関数とRANDBETWEEN関数を適用して、Excelの指定された範囲にXNUMXつの数値の間に乱数を挿入します。 以下の式をご覧ください。

以下のスクリーンショットを参照してください。

0から1までの乱数 = RAND（）

0から100までの乱数 = RAND（）* 100

50から100までの乱数 = RANDBETWEEN（50、100）

以下のVBAは、Excelの指定された範囲に任意の乱数または小数点以下の桁数が指定された乱数を挿入するのに役立ちます。 次のようにしてください。

1。 を押し続けます Alt + F11 キー、そしてそれは開きます アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ。

Public Function RandomNumbers(Num1 As Long, Num2 As Long, Optional Decimals As Integer)
'Update20131113
Application.Volatile
Randomize
If IsMissing(Decimals) Or Decimals = 0 Then
    RandomNumbers = Int((Num2 + 1 - Num1) * Rnd + Num1)
Else
    RandomNumbers = Round((Num2 - Num1) * Rnd + Num1, Decimals)
End If
End Function

3。 コードを保存して閉じ、空白のセルにこの数式を入力します = RandomNumbers（X、Y、Z）, X 数値の下限を示し、 Y 数値の上限を示し、 Z は、指定された乱数の小数点以下の桁数です。

たとえば、50から1000までの整数を生成したい場合、この数式を挿入できます =ランダム番号（50,1000,0）; そして、この式で小数点以下50桁の100から2までの乱数を挿入します=ランダム番号（50,100,2）。 以下のスクリーンショットを参照してください。

小数点以下の桁数なしで乱数を挿入します。

小数点以下2桁の乱数を挿入します。

Kutools forExcelによる重複のないランダムな整数/日付/時刻の挿入

関連記事：

範囲内のランダムな文字列を生成する