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

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

End Sub