トップ　>　汎用コード　>　任意の数値間の値をランダムに並べる

Sub Rand_1() '任意の最小値と最大値間の値をランダムに表示する。
    Const conMin As Long = 1    '最小値（最大値より小さな整数）
    Const conMax As Long = 40   '最大値（最小値より大きな整数）
    '--------------------------
    Dim bolFlg() As Boolean, varData As Variant, c As Long, lngRnd As Long
    ReDim bolFlg(conMin To conMax), varData(1 To conMax - conMin + 1, 1 To 1)
    c = conMin
    Randomize
    Do
        lngRnd = Int((conMax - conMin + 1) * Rnd()) + conMin 'ランダム値取得
        If bolFlg(lngRnd) = False Then  'ランダム値が初出なら処理を行う
            bolFlg(lngRnd) = True       'ランダム値既出フラグ
            varData(c - conMin + 1, 1) = lngRnd '配列にランダム値を代入
            c = c + 1
        End If
    Loop Until conMax < c
    Range(Cells(1, 1), Cells(conMax - conMin + 1, 1)).Value = varData
End Sub

Sub Get_Rnd()
    Const MinNum As Long = -10 '最小値
    Const MaxNum As Long = 10 '最大値
    Const conRange As String = "A1" '書き出しセル
'---------------------------------------------------
    If MaxNum < MinNum Then Exit Sub
    Randomize
    Range(conRange).Value = Int(Rnd() * (MaxNum - MinNum + 1) + MinNum)
End Sub