Sub 中央に寄せる_中央揃え()

    Range("A1").HorizontalAlignment = xlCenter

End Sub