VBAでセルを結合する方法を徹底解説！実用例付きでわかりやすく紹介

Excel VBA（Visual Basic for Applications）を使えば、繰り返し作業を自動化したり、複雑な処理を簡単に実行したりすることができます。
本記事では、その中でも「セルを結合する方法」にフォーカスし、基本的な書き方から実用的なサンプルコードまで詳しく解説していきます。

「セルをマクロで結合するにはどうすればいいの？」と疑問を持っている方、また「結合されたセルを条件付きで処理したい」と考えている方にも役立つ内容です。
中学生レベルでも理解できるように、専門用語は丁寧に解説しながら進めますので、ぜひ最後までご覧ください。

---

VBAでセルを結合する基本構文

VBAでセルを結合するには、Range("A1:B1").Merge のように Merge メソッドを使います。
とてもシンプルな方法ですが、結合する範囲の指定には少し注意が必要です。

サンプルコード：

Sub セルを結合する基本例()
    Range("A1:B1").Merge
End Sub

このコードを実行すると、A1とB1のセルが結合され、ひとつのセルになります。
すでに文字が入力されている場合は、左上（この場合はA1）の内容だけが残ります。

---

特定の範囲をループしてセル結合を行う方法

複数の行や列をまとめて結合したい場合は、ループ処理を使うと便利です。
例えば、1列目（A列）の1行目から10行目まで、2列ずつ結合したいとしましょう。

サンプルコード：

Sub 複数行を2行ずつ結合する()
    Dim i As Integer
    For i = 1 To 10 Step 2
        Range("A" & i & ":A" & i + 1).Merge
    Next i
End Sub

このコードは、A1:A2、A3:A4、A5:A6…というように、A列を2行ずつ結合していきます。
Step 2 は2行ごとに処理を進めるための指定です。

---

既に結合されているセルを解除する方法（Unmerge）

結合したセルを元に戻したいときは Unmerge を使います。

サンプルコード：

Sub 結合を解除する()
    Range("A1:B1").Unmerge
End Sub

このように Merge の代わりに Unmerge を使うだけで、セルの結合を解除できます。

---

結合されているセルかどうかを確認する方法

結合されているかどうかを判断して、処理を分けたいときには、MergeCells プロパティを使用します。

サンプルコード：

Sub 結合状態を確認する()
    If Range("A1").MergeCells Then
        MsgBox "A1は結合されています。"
    Else
        MsgBox "A1は結合されていません。"
    End If
End Sub

このようにすると、セルが結合されているかどうかを確認できます。

---

結合されたセルの範囲を取得する方法

セルが結合されている場合、結合されている範囲全体を取得したいこともあります。
そのときには MergeArea プロパティを使用します。

サンプルコード：

Sub 結合範囲を取得する()
    Dim 結合範囲 As Range
    Set 結合範囲 = Range("A1").MergeArea
    MsgBox "結合されている範囲は " & 結合範囲.Address & " です。"
End Sub

MergeArea を使うことで、たとえば A1 が A1:B1 に結合されていた場合、「$A$1:$B$1」と表示されます。

---

実務でよくある使用例：表のタイトル行を結合

以下は、タイトルを複数列にまたがって中央に表示させたい場合の例です。
データ表の上に「売上データ」といったタイトルを作るときに使います。

サンプルコード：

Sub 表タイトルを結合して中央表示()
    With Range("A1:E1")
        .Merge
        .Value = "売上データ"
        .HorizontalAlignment = xlCenter
    End With
End Sub

このコードでは、A1～E1を結合して「売上データ」と表示し、中央揃えにしています。
With ～ End With 構文を使うことで、同じ範囲への設定をまとめて簡潔に書けます。

---

エラー対策：結合時に値の競合がある場合の処理

結合する範囲内に複数の値があると、VBAは警告を出して処理を止めてしまいます。
そのため、事前に左上セルの値以外をクリアする、もしくは強制的に結合させるコードを書くことで、対処できます。

サンプルコード：

Sub 値の競合を回避して結合()
    Dim rng As Range
    Set rng = Range("A1:B1")
    
    If rng.MergeCells = False Then
        rng.Cells(2).ClearContents ' 右側セルの値を消しておく
        rng.Merge
    End If
End Sub

このように、結合前に ClearContents を使うことでエラーを回避できます。

---

まとめ

VBAでセルを結合する方法は、Range().Merge を使えば簡単にできます。
しかし実務では、範囲の自動指定、結合状態の確認、既存のデータの取り扱いなど、より細かい対応が求められます。

今回の記事では、初心者の方にも理解しやすいように、基本から応用までのコード例を交えて丁寧に解説しました。
ぜひ自分のExcel作業に取り入れて、作業の効率化に役立ててください。