このマクロの繰り返し？

質問

ＶＢＡ初心者です。
これを、繰り返し（入れ子）でもっと省略できますか？

Sub test()
Dim retu1 As Integer

retu1 = 50
Do While retu1 >= 1
Cells(retu1, retu1 + 50).Interior.ColorIndex = 9
retu1 = retu1 - 1
Loop

'ココから先をもっと簡単にしたいです！

retu1 = 50
Do While retu1 >= 1
Cells(retu1 + 1, retu1 + 50 - 1).Interior.ColorIndex = 9
retu1 = retu1 - 1
Loop

retu1 = 50
Do While retu1 >= 1
Cells(retu1 + 2, retu1 + 50 - 2).Interior.ColorIndex = 9
retu1 = retu1 - 1
Loop

End Sub

どなたか、お願いします。

回答No.1

toshi_2000 · ベストアンサー

for i=0 to 2
retu1 = 50
Do While retu1 >= 1
Cells(retu1 + i, retu1 + 50 - i).Interior.ColorIndex = 9
retu1 = retu1 - 1
Loop
next
これでループ３回が１回ですみます。

お礼

すばらしい回答！！！
こんな回答を求めていました！！
さすが専門家サマサマです（泣）・・・

ほんとうにありがとうございました！！

回答No.2

BLUEPIXY

'単に１つにまとめるといいと思います。
Sub test()
Dim retu1 As Integer

retu1 = 50
Do While retu1 >= 1
Cells(retu1, retu1 + 50).Interior.ColorIndex = 9
Cells(retu1 + 1, retu1 + 50 - 1).Interior.ColorIndex = 9
Cells(retu1 + 2, retu1 + 50 - 2).Interior.ColorIndex = 9
retu1 = retu1 - 1
Loop
End Sub

お礼

ありがとうございます！！
誠に失礼なのですが、もうちょっと、短く出来ないかなあ・・・