Excel VBAで文字を中央揃えにする方法！シート全体も！

けど、そんな中で悩むことは、

ですよね。

今回はそんなお悩みを解決する

についてまとめます！

完成イメージ

セルの文字や数字をきれいに中央へそろえたいとき、1つずつ手作業で設定するのは手間がかかります。
今回は
・VBAでセルの文字を中央揃えにする方法（HorizontalAlignment = xlCenter）
をゴールにします。
横位置だけでなく、縦位置・シート全体・ブックの全シートまで、まとめて中央揃えにできるようになります。

上の画像が完成形です。見出しも数値もセルの中央にそろい、表全体がバランスよく整っています。

なお、定数（xlCenter など）が使えないときの対処や、結合セルで中央にならないときの解決法（トラブルシュート）もあわせてご紹介します。

STEP1. 元データを用意する

まずは中央揃えを試すための売上表を用意します。
A列が項目、B列が数量、C列が単価、D列が金額です。
1行目はタイトル行、2行目は見出し行、3行目から8件のデータが入っています。
初期状態では、文字は左寄せ、数値は右寄せになっています。
この「そろっていない状態」から、VBAで中央揃えに変えていきましょう。

下の表をコピーして、Excelのシートに貼り付けるとそのまま試せます。

※ 数式で求める列は空にしています。すでに値が入っている列はそのまま残して試せます。

STEP2. 横位置を中央揃えにする

もっとも基本のコードが HorizontalAlignment = xlCenter です。
HorizontalAlignment は「横方向の配置」を決めるプロパティです。
標準モジュールに次のコードを貼り付けて実行します。

Sub CenterAlign()
    Range("A1:D11").HorizontalAlignment = xlCenter
End Sub

実行すると、A1:D11の文字と数値がすべて横方向の中央にそろいました。
たった1行で済むのでカンタンですね。

STEP3. 特定の列だけ・選択範囲だけを中央揃えにする

表全体ではなく、決まった列だけを中央揃えにしたいこともあります。
その場合は、列や範囲をピンポイントで指定します。
次のコードは、C列とD列（単価・金額）だけを中央揃えにします。

Sub CenterColumn()
    Range("C:D").HorizontalAlignment = xlCenter
End Sub

マウスで選んだ範囲に適用したいときは Selection を使います。

Sub CenterSelection()
    Selection.HorizontalAlignment = xlCenter
End Sub

行や範囲を選んでから実行すれば、その選択範囲だけが中央揃えになります。
画像では、A列は左寄せのまま、数量・単価・金額の列だけが中央にそろいました。

STEP4. 縦位置も中央揃えにする

横位置だけでなく、セルの高さ方向の中央にそろえたいときは VerticalAlignment を使います。
値には xlCenter を指定します。

Sub CenterVertical()
    Range("A1:D11").VerticalAlignment = xlCenter
    Rows("2:11").RowHeight = 40
End Sub

行の高さを広げると、文字が上下の中央にそろっているのが分かりやすくなります。
行の挿入やレイアウト変更で行が高くなっても、文字が上に寄らず中央に表示されます。

STEP5. 結合セルと中央揃えを組み合わせる

タイトル行のようにセルを結合している場合も、中央揃えはそのまま使えます。
ポイントは、結合セルの配置は左上のセルに対して設定されることです。
結合範囲にまとめて設定するなら MergeArea を使うと確実です。

Sub CenterMerged()
    With Range("A1:D1").MergeArea
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
End Sub

結合せずに中央に見せたいときは、Excelの「選択範囲内で中央」が使えます。
VBAでは HorizontalAlignment = 7（xlCenterAcrossSelection に相当）を指定します。
結合セル特有のつまずきは、後のトラブルシュートでまとめています。

STEP6. シート全体を中央揃えにする

表全体ではなく、シートのすべてのセルを中央揃えにしたい場合は Cells を使います。
Cells はシート全体を指すので、あとから入力するセルにも設定が効きます。

Sub CenterSheet()
    Cells.HorizontalAlignment = xlCenter
End Sub

すでに使っている範囲だけを対象にしたいときは UsedRange を指定します。
新しく入力するセルまで中央にしたいなら Cells、既存の表だけなら UsedRange、と使い分けましょう。

STEP7. ブックの全シートにまとめて適用する

複数のシートを同じレイアウトにそろえたいときは、Worksheets をループさせます。
シートの数だけ同じコードを書く必要はありません。

Sub CenterAllSheets()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        ws.Cells.HorizontalAlignment = xlCenter
        ws.Cells.VerticalAlignment = xlCenter
    Next ws
End Sub

1つずつ手作業で設定する手間がなくなり、シートが多いブックほど効果があります。

STEP8. 元に戻す（xlLeft / xlRight）

中央揃えを解除して元に戻すときも、同じプロパティに別の定数を指定するだけです。
左寄せは xlLeft、右寄せは xlRight です。

Sub ResetAlign()
    Range("A1:A11").HorizontalAlignment = xlLeft
    Range("B2:D11").HorizontalAlignment = xlRight
End Sub

文字は左寄せ、数値は右寄せに戻すと、桁がそろって読みやすくなります。
数値まで中央揃えにすると、桁数がバラバラに見えやすくなる点に注意しましょう。

中央揃えで使うプロパティと定数の比較

実際によく使うプロパティと指定方法を表にまとめました。
「何を指定すればいいか」で迷ったら、この表に戻ってください。

中央揃えをまとめて行うVBA

ここまでの内容を1つにまとめたコードです。
ボタンに登録しておけば、クリック1つでブック全体の表を整えられます。

Sub AlignCenterAll()
    Dim ws As Worksheet
    For Each ws In ThisWorkbook.Worksheets
        With ws.Cells
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
        End With
    Next ws
End Sub

毎回手で配置を直している方は、このマクロをボタンにしておくとラクです。

タカヒロ

横位置は HorizontalAlignment、縦位置は VerticalAlignment と、別々のプロパティになっています。
両方そろえたいときは2行書くだけなので、カンタンですね。

うまくいかないときの対処法（トラブルシュート）

実際に試すと、思ったように動かないこともあるかもしれません。
よくあるつまずきと対処法をまとめました。

機能の説明（配置・HorizontalAlignment）

HorizontalAlignment（横位置の配置）

VerticalAlignment（縦位置の配置）

配置の定数値一覧

定数が使えない環境では、値でそのまま書くこともできます（例：Range(“A1”).HorizontalAlignment = -4108）。
ただし -4108 だけでは意味が分かりにくいので、通常は定数名を使うのがおすすめです。

Range("A1:D11").HorizontalAlignment = xlCenter   ' 中央揃え

完成

見出しも数値もセルの中央にそろい、表全体がすっきり整いました。
思ったとおりに動きましたか？
VBAにしておけば、毎回手作業で配置を設定する手間がなくなり、レイアウトの修正も一瞬で終わります。

さいごに

いかがでしょうか。

今回は、

についてまとめました。

まずは今回のサンプル表で、ぜひ一度試してみてください。
横位置は HorizontalAlignment、縦位置は VerticalAlignment、シート全体なら Cells と覚えておくと、レイアウト調整がぐっとラクになりますよ。
また、他にも便利なExcelの時短テクニックがありますので、よろしければご参照頂ければと思います。

ぜひ試してみてください。