Sub セル内の折返し解除_折り返して全体を表示するを解除()

    Range("A1").WrapText = False

End Sub