Sub 列全体のフォントを太文字にする() Columns("B").Font.Bold = True '1行のみの場合 Columns("D:E").Font.Bold = True '複数行の場合 End Sub