Excel総合相談所 96

>>23 俺も文面通りRNDの値を入れたいのかと思ったがおそらく○×だけだとおも
×のみ可が>>21で2で>>22で3になってるけど2で作った
×のみ可が複数いなければもっと簡単になる（×のみ可だけ残ると詰むから）
Sub aaa()
Dim a, b, c(4 To 23), d(100), e, f(), g, h(100), i, j
a = Columns(1).End(xlDown).Row
ReDim f(a)
Range(Cells(2, 4), Cells(a, 23)).Clear
For b = 2 To a
If Cells(b, 2) = 2 And Cells(b, 3) <> 0 Then 'aaa
g = 0
For e = 0 To 19
If d(e) <> 1 Then
h(g) = e
g = g + 1
End If
Next
For e = 1 To Cells(b, 3)
i = Int(Rnd * g)
Cells(b, h(i) + 4) = "×"
d(h(i)) = 1
'〜続く〜