Sub 列全体のフォントに色をつける() Columns("B").Font.Color = RGB(255, 0, 0) '1行のみの場合 Columns("D:E").Font.Color = RGB(255, 0, 0) '複数行の場合 End Sub