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

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

End Sub