Sub フォントを斜体_イタリック形式_解除する()

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

End Sub