Excel総合相談所 96

'〜続き〜
For j = i To 18
h(j) = h(j + 1)
Next
Next
ElseIf Cells(b, 2) = 1 And Cells(b, 3) <> 0 Then
f(b) = Cells(b, 3)
End If
Next
For b = 4 To 23
g = 0
For e = 2 To a
If f(e) > 0 Then
h(g) = e
g = g + 1
End If
Next
i = Int(Rnd * g)
Cells(h(i), b) = "○"
f(h(i)) = f(h(i)) - 1
If d(b - 4) <> 1 Then
'〜続く〜