色塗り

Sub 色塗()
Dim 行番号 As Long

For 行番号 = 2 To 30

If Cells(2, 行番号) = "土" Then

     Range(Cells(2, 行番号), Cells(30, 行番号)).Interior.Color = RGB(211, 211, 211)

End If

Next 行番号

End Sub