Sub フォントを下に寄せる_下詰め_設定する()

    Range("A1").Font.Subscript = True

End Sub