このマクロの繰り返し?
もう、なにがなんやらで・・・
このマクロの繰り返しを入れ子で出来ないでしょうか?
加算しながら増やしていくので、わけわからなくなりそうです。
Option Explicit
Sub hiat()
Cells.Clear
Dim s As Long, a As Long, b As Long, c As Long, d As Long, e As Long
For a = 1 To 31
s = Rnd * 4
Cells(a, 1) = s
If s >= 4 Then Exit For '4がでたら終わり。
Next
For b = 2 To 31
s = Rnd * 4
Cells(a, b) = s
If s >= 4 Then Exit For '4がでたら終わり。
Next
Cells(a + 1, b).Select 'セルの移動
Cells(a + 1, b).Activate
For c = 1 To 31 - a
s = Rnd * 4
ActiveCell(c) = s
If s >= 4 Then Exit For '4がでたら終わり。
Next
Cells(a + c, b + 1).Select 'セルの移動
Cells(a + c, b + 1).Activate
For d = 1 To 31 - a - c
s = Rnd * 4
ActiveCell(d) = s
If s >= 4 Then Exit For '4がでたら終わり。
Next
Cells(a + c + d - 1, b + 2).Select 'セルの移動
Cells(a + c + d - 1, b + 2).Activate
For e = 1 To 31 - a - b - c - d
s = Rnd * 4
ActiveCell(e) = s
If s >= 4 Then Exit For '4がでたら終わり。
Next
Cells(a + c + e - 1, b - 1 + d + 1).Select 'セルの移動
Cells(a + c + e - 1, b - 1 + d + 1).Activate
End Sub