■

セルのとある行を選択して一行おきにセルの背景色を指定するコマンド
任意回繰り返すコマンドもあるはずだが面倒なのでとりあえず
繰り返したい数だけコピペで増やして使う。

Sub Macro2()
'
' Macro2 Macro
' マクロ記録日 : 2005/6/25 ユーザー名 :
'

'
ActiveCell.Range("A1:D1").Select
Selection.Interior.ColorIndex = 37
ActiveCell.Offset(2, 0).Range("A1:D1").Select
Selection.Interior.ColorIndex = 37
ActiveCell.Offset(2, 0).Range("A1:D1").Select
Selection.Interior.ColorIndex = 37

End Sub