選択した範囲に、適当な値を入力するマクロ。
┌──────────────────────────────────────┐
│Sub 乱数設定()                                                              │
│    Randomize                                                               │
│    Dim i As Range                                                          │
│    For Each i In Selection                                                 │
│        i.Value = Int(Rnd * 10)                                             │
│    Next i                                                                  │
│End Sub                                                                     │
└──────────────────────────────────────┘