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

    Range("A1").WrapText = True

End Sub