Sub 行全体のフォントを太文字にする() Rows("2").Font.Bold = True '1行のみの場合 Rows("5:7").Font.Bold = True '複数行の場合 End Sub