Sub 右に寄せる_右詰め()

    Range("A1").HorizontalAlignment = xlRight

End Sub