セルの結合Merge オブジェクトRange

Range

1. はじめに

Excelでよく目にする「セルの結合」は、見た目を整える上で非常に便利な機能です。表のタイトルや見出しを中央に揃えたいときなど、レイアウト上で多用されます。

この結合をVBA（Visual Basic for Applications）で制御するには、Range オブジェクトの Merge メソッドを使います。また、結合の解除には UnMerge メソッドを使用します。

ただし、結合セルの扱いには注意点も多く、誤った使い方はデータ処理や自動化の妨げになることがあります。本解説では、Merge の基本から応用まで幅広くカバーします。

2. 基本構文

Range("A1:B1").Merge

このコードは、A1とB1を結合し、1つのセルとして扱います。

3. Mergeメソッドの動作仕様

  • 結合後に保持される値は、左上のセルの内容のみ
  • 他のセルにデータがあると、Merge 実行時にエラーとなる
  • 結合状態になると、Range.Count は1になる（見かけ上は複数セル）

例：

Range("A1:B1").Value = "タイトル"
Range("A1:B1").Merge

A1に「タイトル」という値がある場合、結合してもその値は保持され、表示上は「A1:B1」全体に「タイトル」が中央に表示されます。

4. 結合の解除：UnMerge メソッド

Range("A1:B1").UnMerge

これで結合が解除され、それぞれのセルが独立した状態に戻ります。ただし、結合中に表示されていた値は左上セルに残り、他のセルは空白になります。

5. プロパティ MergeCells

● 結合状態の確認

If Range("A1").MergeCells = True Then
    MsgBox "A1 は結合されています。"
End If

● 結合または解除の切り替え

Range("A1:B1").MergeCells = True   '結合
Range("A1:B1").MergeCells = False  '解除

6. 使用例（基本）

● 見出しの中央揃えと結合

With Range("A1:C1")
    .Merge
    .Value = "月次報告書"
    .HorizontalAlignment = xlCenter
End With

7. 応用例

● シート上の結合セルをすべて解除

Dim rng As Range
For Each rng In ActiveSheet.UsedRange
    If rng.MergeCells Then rng.UnMerge
Next

● 条件に応じて結合セルを作成

Dim i As Integer
For i = 1 To 10 Step 2
    Range("A" & i & ":A" & i + 1).Merge
Next

これにより、A列の縦2セルずつが順に結合されます（例：A1:A2、A3:A4…）。

8. 注意点と落とし穴

注意点説明
他セルにデータがあると結合できないすべてのセルが空、または左上のみ値が必要
値の取得が困難になる結合セルの中身を特定しにくい
ループ処理で障害になるFor Each cell In Range が期待通りに動かないことがある
ソートやフィルターに非対応結合セルがあると正しく機能しない場合がある

9. 結合セルの代表的な用途

用途説明
表タイトルの配置A1:D1を結合し、見出しを中央揃えにする
見出しラベルの装飾複数列にまたがるカテゴリ名など
縦方向のセル統合グループ化されたデータのカテゴリ統一表示

10. 実用コード例

● テーブルタイトルを挿入して整形

With Range("A1:D1")
    .Merge
    .Value = "売上データ（月次）"
    .Font.Bold = True
    .Font.Size = 14
    .HorizontalAlignment = xlCenter
    .Interior.Color = RGB(200, 200, 255)
End With

● 結合セル内のデータを取得

Dim msg As String
msg = Range("B2").MergeArea.Cells(1, 1).Value
MsgBox "結合セルの値：" & msg

MergeArea を使うことで、結合された範囲全体の代表セル（左上）の値にアクセスできます。

11. よくある誤解と対処

誤解内容実際の動作と対処
Mergeしたすべてのセルに値が入ると思っている実際は左上のセルの値のみ保持される
UnMergeで元に戻るとすべての値が復元される左上セル以外は空白になる（元の値は失われる）
結合セルでもソートできると思っているソートはできない、事前に UnMerge が必要

12. まとめ

メソッド／プロパティ説明
Range.Merge指定範囲のセルを1つに結合（値は左上）
Range.UnMerge結合状態を解除し、セルを元に戻す
Range.MergeCells結合状態の取得／設定（True/False）
Range.MergeArea結合されたセル範囲の全体を参照
タイトルとURLをコピーしました