Excel総合相談所 96

'〜続き〜
For j = i To a - 1
h(j) = h(j + 1)
Next
i = Int(Rnd * (g - 1))
f(h(i)) = f(h(i)) - 1
Cells(h(i), b) = "×"
End If
Next
End Sub

'B列の（可）とかは文字になっちゃうから消してね