Sub 行全体の背景に色を塗る() Rows("2").Interior.Color = RGB(255, 0, 0) '1行のみの場合 Rows("5:7").Interior.Color = RGB(255, 0, 0) '複数行の場合 End Sub