【Excel】選択範囲に乱数で数値を自動入力するマクロ

Excelのシートで選択範囲に数値をランダムに入力してくれるマクロ

Sub 乱数入力()
Dim row, col, x, y As Integer
Dim num, num_min, num_max, num_step As Integer

'行数
row = Selection.Rows.Count
'列数
col = Selection.Columns.Count
'最小値
num_min = 100
'最大値
num_max = 5000
'ステップ
num_step = 50

If row * col > 2 Then
    For y = 1 To row
        For x = 1 To col
        num = Math.Round((Math.Rnd * (num_max - num_min) + num_min) / num_step) * num_step
        Selection.Cells(y, x).Value = num
     Next
    Next
Else
    MsgBox "選択範囲は3つ以上のセルを選択してください。"
End If

End Sub