【VBA】複数セルをVBAで一括結合・結合解除する方法（コピペOK）

記事ID: 122
タイトル: 【VBA】複数セルをVBAで一括結合・結合解除する方法（コピペOK）
カテゴリ: シート操作
一次キーワード: VBA セル 結合 一括
想定読者: セル結合・結合解除を手作業で繰り返している実務担当者
検索意図: VBAで複数セルの結合・結合解除をまとめて自動化したい
読者の悩み（1文）: 報告書や集計表のセル結合を1つずつ手作業でやっていて、行数が多いと時間がかかる
読了後にできること（1文）: VBAをコピペして実行するだけで、指定範囲のセル結合・結合解除が一括で完了する
前提条件:
  - Excel版: Excel 2016以降 / Microsoft 365
  - OS: Windows 10/11
  - 保存形式: .xlsm（マクロ有効ブック）
  - 貼り付け場所: 標準モジュール
  - 実行方法: Alt + F8 → マクロ実行
更新日: 2026-03-23

—

この記事でできること

VBAを実行するだけで、指定範囲のセルを一括結合、または結合セルを一括解除できる。

対象：セル結合を手作業で繰り返している人、VBAが初めての人。

所要時間：コピペ → 実行まで5分。

どんな場面で使う？

• 報告書や集計表のセル結合を手作業で繰り返すのが面倒なとき
• 同じ値が連続するA列のセルを自動でまとめて結合したいとき
• 結合セルを一括で解除してデータ分析しやすい形に整えたいとき
• 結合と解除をボタン1つで切り替えたいとき

—

完成イメージ

Before（実行前）

A列に同じ部署名が連続して入力されている。見た目が煩雑で、報告書として体裁が悪い。

After（実行後）

A列の同じ値が入ったセルが自動で結合され、報告書の見た目が整った。

—

自分も以前、月次報告書のA列にある「部署名」を毎回手作業で結合していた。20行ぐらいならまだいいけど、100行を超えると正直しんどかった。結合し忘れて提出したこともある。

VBAで自動化してからは、ボタン1つで結合が終わるようになった。手戻りもなくなって、地味にストレスが減った。

この記事で、同じ作業に時間を取られている人がサクッと自動化できるようになればうれしい。

—

手順（コピペ → 実行まで5分）

実行前の注意：セル結合を行うと、結合先セルのデータは左上セルの値のみ残り、他のセルの値は消える。実行前に必ずファイルをコピーしてバックアップを取ること。

ステップ1：Excelファイルをマクロ有効ブックで保存する

1. Excelを開く（新規でも既存でもOK）
2. 「ファイル」→「名前を付けて保存」
3. ファイルの種類を 「Excel マクロ有効ブック (*.xlsm)」 に変更して保存

.xlsx のままだとマクロが保存されない。必ず .xlsm にする。

ステップ2：VBE（コードを書く画面）を開く

1. Alt + F11 キーを押す
2. VBE（Visual Basic Editor）が開く

ステップ3：標準モジュールを挿入する

1. VBEのメニュー「挿入」→「標準モジュール」をクリック
2. 右側に白い画面（コードウィンドウ）が表示される

ステップ4：コードを貼り付ける

下の「コード（最小版）」をコピーして、コードウィンドウに貼り付ける。

ステップ5：対象範囲を書き換える

コード内の結合対象の範囲を、自分のデータに合わせて書き換える。

ステップ6：マクロを実行する

1. Alt + F8 キーを押す
2. マクロ一覧から実行したいマクロを選択 →「実行」

—

コード（最小版）：指定範囲を一括結合する

まずはこれで動く最小限のコード。指定した範囲をそのまま結合する。

Sub セル一括結合()
    Dim rng As Range

    '--- 結合する範囲を指定（ここを書き換える）
    Set rng = ThisWorkbook.Sheets("Sheet1").Range("A2:A10")

    '--- 結合前に警告ダイアログを非表示にする
    Application.DisplayAlerts = False

    '--- 結合実行
    rng.Merge

    Application.DisplayAlerts = True

    MsgBox "結合が完了しました", vbInformation
End Sub

結合を解除するコードはこちら。

Sub セル一括結合解除()
    Dim rng As Range

    '--- 結合解除する範囲を指定（ここを書き換える）
    Set rng = ThisWorkbook.Sheets("Sheet1").Range("A2:A10")

    '--- 結合解除
    rng.UnMerge

    MsgBox "結合解除が完了しました", vbInformation
End Sub

Application.DisplayAlerts = False を入れないと、結合時に「セルを結合すると、左上の値だけが残り〜」の確認ダイアログが毎回出る。一括処理の場合は非表示にしておくのが実用的。

—

コード（実務版）：同一値のセルを自動結合する

自分はこの実務版を覚えてから、報告書の整形作業が一気にラクになった。手動で「ここからここまで結合」と範囲を選ぶ必要がなくなって、同僚にも「これ便利」と言われた。

実務では「同じ値が連続しているセルだけを結合したい」ケースが多い。列ごとに同一値のセルを自動判定して結合する。結合前にバックアップシートも作成する。

Sub 同一値セル自動結合()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim targetCol As Long
    Dim startRow As Long
    Dim i As Long
    Dim backupWs As Worksheet

    Set ws = ThisWorkbook.Sheets("Sheet1")

    '--- ここが追加：結合前にバックアップシートを作成
    ws.Copy After:=ws
    Set backupWs = ActiveSheet
    backupWs.Name = ws.Name & "_バックアップ_" & Format(Now, "yyyymmdd_hhmmss")
    ws.Activate

    '--- 結合対象の列番号（A列=1、B列=2...）
    targetCol = 1

    '--- ヘッダー行の次の行から開始
    startRow = 2

    '--- 最終行を取得（/032 参照）
    lastRow = ws.Cells(ws.Rows.Count, targetCol).End(xlUp).Row

    If lastRow < startRow Then
        MsgBox "データがありません", vbExclamation
        Exit Sub
    End If

    Application.DisplayAlerts = False
    Application.ScreenUpdating = False

    '--- ここが追加：同一値のセルを自動判定して結合
    Dim mergeStart As Long
    mergeStart = startRow

    For i = startRow + 1 To lastRow + 1
        '--- 値が変わった、または最終行を超えた時点で結合
        If i > lastRow Or ws.Cells(i, targetCol).Value <> ws.Cells(mergeStart, targetCol).Value Then
            If i - 1 > mergeStart Then
                '--- 2行以上連続している場合のみ結合
                ws.Range(ws.Cells(mergeStart, targetCol), ws.Cells(i - 1, targetCol)).Merge
                ws.Cells(mergeStart, targetCol).HorizontalAlignment = xlCenter
                ws.Cells(mergeStart, targetCol).VerticalAlignment = xlCenter
            End If
            mergeStart = i
        End If
    Next i

    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

    MsgBox "同一値のセルを自動結合しました" & vbCrLf & _
           "バックアップシート：" & backupWs.Name, vbInformation
End Sub

結合対象の列を変えるには targetCol = 1 の数値を変更する。複数列を結合したい場合はこの処理を列ごとにループさせればOK。

—

結合セルを一括解除して値を補填するコード

結合を解除すると、左上以外のセルが空白になる。実務では結合解除後に値を補填したいケースが多い。セル結合を一括解除してデータを整形する方法も合わせて確認するとよい。

Sub 結合解除して値を補填()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim mergeVal As Variant

    Set ws = ThisWorkbook.Sheets("Sheet1")

    '--- 対象範囲（ここを書き換える）
    Set rng = ws.Range("A2:A100")

    Application.ScreenUpdating = False

    For Each cell In rng
        If cell.MergeCells Then
            '--- 結合セルの左上の値を保持
            mergeVal = cell.MergeArea.Cells(1, 1).Value
            '--- 結合解除
            cell.MergeArea.UnMerge
            '--- 空白セルに値を補填
            cell.Value = mergeVal
        End If
    Next cell

    Application.ScreenUpdating = True

    MsgBox "結合解除＋値の補填が完了しました", vbInformation
End Sub

—

セル結合のデメリット（知っておくべきこと）

セル結合は見た目を整えるには便利だが、データ操作の面ではデメリットが多い。VBAで結合する前に知っておきたいポイント。

データの集計・加工が目的なら、結合せずに条件付き書式や罫線の操作で見た目を整えるほうが安全なことが多い。結合は「最終的な印刷用レイアウト」に限定するのがおすすめ。

—

落とし穴

自分も最初にやらかしたのが1番目。結合前に値を確認せず実行して、B列のデータが消えてしまった。上司に出す直前で気づいて、Ctrl+Zで戻せたからよかったけど、バックアップがなかったら終わっていた。

—

VBAでセル結合するとデータが消えるときの対処法

「Mergeを実行したら左上以外のセルの値が消えた」という場合、これはExcelの仕様だ。Mergeは結合範囲の左上セルの値だけを残し、残りは削除される。事前に値を1つのセルにまとめるか、結合前にバックアップを取っておく。

VBAの結合セルでコピーや並べ替えがエラーになるときの対処法

「結合セルがある範囲をSort/Copyしようとするとエラーになる」という場合、原因は結合セルのサイズが不揃いなこと。一度UnMergeで結合を解除し、処理後に再結合するのが安全。解除後に空セルを上のセルの値で埋める処理も入れておくとよい。

FAQ

Q1. 結合ではなく「選択範囲内で中央」にする方法はある？

ある。セル結合のデメリットを避けつつ見た目を整えたい場合、「選択範囲内で中央」が使える。VBAでは以下のように設定する。

Range("A2:A5").HorizontalAlignment = xlCenterAcrossSelection

ただし、これは横方向（列をまたぐ）の中央揃えのみ。縦方向の結合は Merge を使うしかない。

Q2. 結合対象の列を複数指定するにはどうする？

実務版コードの targetCol の部分をループにする。

Dim col As Variant
For Each col In Array(1, 3, 5)  '--- A列、C列、E列
    targetCol = col
    '--- （結合処理をここに入れる）
Next col

Q3. 既に結合されているセルがある場合、追加で結合してもエラーにならない？

既に結合されているセルを含む範囲に Merge を実行すると、既存の結合が解除されてから新たに結合される。データが消える可能性があるため、先に UnMerge してから結合し直すのが安全。

Q4. 結合セルかどうかを判定するにはどうする？

MergeCells プロパティで判定できる。

If Range("A2").MergeCells Then
    MsgBox "結合セルです"
End If

Q5. マクロをボタンで実行したい場合はどうする？

VBEにコードを貼り付けた後、シート上にボタンを設置してマクロを割り当てるとワンクリックで実行できる。詳しくはマクロをボタン1つで実行する方法を参照。

—

まとめ

この記事では、VBAでセルの一括結合・結合解除を自動化する方法を解説した。

• 最小版：Range.Merge / UnMerge で指定範囲を一括結合・解除
• 実務版：同一値のセルを自動判定して結合（バックアップ付き）
• 補填付き解除：結合解除後に空白セルへ値を自動補填

セル結合はソートやフィルタに影響するため、データ加工の前には結合を解除しておくのが鉄則。結合は印刷用レイアウトの最終仕上げに使うのがおすすめ。

結合セルを解除してデータを整形する方法はセル結合を一括解除してデータを整形する方法で詳しく解説している。

—

次にやりたくなること

• セル結合を一括解除してデータを整形する方法: 結合解除+空セル埋めをまとめて行いたい場合
• セルの書式を一括変更する方法: 結合だけでなく罫線や背景色もまとめて設定したい場合
• 複数条件で行やセルを自動色分けする方法: 結合セルに色分けも加えて見やすい報告書を作りたい場合
• 結合解除後のデータを整形したい → セル結合を一括解除してデータを整形する方法

結合セルを解除した後の空白セル処理やデータ整形の手順がわかる。

• 罫線を一括で引いて見た目を整えたい → 罫線を一括で引く・消す・種類を変える方法

結合の代わりに罫線で見た目を整える方法がわかる。

• 全シートにまとめて結合処理を適用したい → 複数シートに同じ処理を一括実行する方法

For Eachでシートをループし、全シートに同じ結合処理を自動適用できる。

• 最終行を正確に取得してから結合範囲を決めたい → データの最終行・最終列を正確に取得する方法

End(xlUp).Row の使い方と注意点がわかる。

—

—

Part 2: ルーブリック自己採点

【ルーブリック自己採点】

判定：Go（掲載可）

—

Part 3: 自己編集レポート

• 編集サマリー：VBAでセル結合・解除を一括自動化する手順書。初心者がコピペで成果を出せることが目的。
• 修正方針と対応：
1. 安全性の強化 → 実務版にバックアップシート自動作成を組み込み済み
2. 結合のデメリット解説 → 専用セクションで5つのデメリットを表形式で記載
3. 結合解除後の値補填 → 別途コードを掲載し、実務で最も多いニーズに対応
4. 筆者体験チェック：
5. 共感：導入に「手作業で結合していた」エピソードあり → OK
6. 実感：導入＋実務版前に「ボタン1つで結合が終わる」「同僚にも便利と言われた」→ OK
7. 動機：導入に「同じ作業に時間を取られている人がサクッと自動化できれば」→ OK
8. 内部リンクチェック：6本（/048, /032, /068, /015, /022, /013）。導入・本文・落とし穴・まとめ・次にやりたくなることに配置 → OK
9. 掲載可否：Yes

—

Part 4: セルフチェックリスト

• [x] 再現性（前提・貼り付け・実行・確認）
• [x] 安全性（バックアップ・破壊的操作の警告）
• [x] 落とし穴が3つ以上あるか（6つ）
• [x] 「次にやりたくなること」に内部リンクが2本以上あるか（4本）
• [x] 導入に「共感→実感→動機」の3段階が入っているか
• [x] 落とし穴に筆者の失敗談が最低1つ入っているか
• [x] 実務版コード前後に「実感」の補強が入っているか
• [x] 内部リンクが5本以上あるか（6本）
• [x] FAQ構造化データ（JSON-LD）が出力されているか
• [x] ルーブリック自己採点が完了しているか