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作業に取り入れて、作業の効率化に役立ててください。

タイトルとURLをコピーしました