vba

質問

vbaについて

F５からL20までのセルに、
ランダムにセルを選び、１～２０の20個の数字を
重複なしでランダムに表示させたいです。

省略できる所は省略した
簡潔なプログラム教えてほしいです・・・：：

回答No.1

watabe007 · ベストアンサー

どうぞ～
Sub Test()
　　Dim i As Long, 乱数 As Long
　　Dim v(1 To 112) As Boolean

　　Randomize
　　For i = 1 To 20
　　　　Do
　　　　　　乱数 = Int((Rnd * 112) + 1)
　　　　Loop While v(乱数)
　　　　v(乱数) = True
　　　　Range("F5:L20").Cells(乱数) = i
　　Next i
End Sub

お礼

ありがとうございます！！