【VBA】セルの結合を行う『Mergeメソッド』の使い方

Excel・VBAではMergeメソッドを使用することでセルの結合を行うことができます。

この記事では、Mergeメソッドについて、

を最初に説明します。その後、

など少し応用的な内容も紹介していきます。

Mergeメソッドの使い方

Mergeメソッドでセルを結合するためには、次のように記述します。

例えば、セル「B2」～「D7」を結合したい場合には

と記述します。

Sub Mergeメソッド01()
    Range("B2:D7").Merge
End Sub

セル結合時に確認メッセージを表示させなくする方法

Sub Mergeメソッド02()
    Application.DisplayAlerts = False
    Range("B2:D7").Merge
    Application.DisplayAlerts = True
End Sub

セルを結合する範囲に値が2つ以上入力されているときには、次のような確認メッセージが表示されます。

この確認メッセージを表示させなくするためには、ApplicationオブジェクトのDisplayAlertsプロパティにFalseを指定する必要があります。

このプログラムでは、『Range("B2:D7").Merge』の前に

を記述します。

このままだと、今後確認メッセージが表示されなくなります。そのため、結合処理が終わった後は、

と、ApplicationオブジェクトのDisplayAlertsプロパティにTrueを指定する必要があります。

行単位でセルを結合させる方法

Sub Mergeメソッド03()
    Range("B2:D7").Merge True
End Sub

Mergeメソッドの引数にはTrueとFalseがあります。

Cellsを用いてセルを結合する方法

Sub Mergeメソッド05()
  Cells(2, 2).Resize(6, 3).Merge
End Sub

今まではRangeオブジェクトを使用してセルを結合していましたが、Cellsプロパティを使用して結合したい場合にはどのようにすればよいでしょうか。

Resizeプロパティを使用するとCellsを使用しても結合することができます。

Resizeプロパティを使用したセルの結合は次のように記述します。

これは、Cells(2,2)(←「B2」セル)から、下6行、右3列を結合するプログラムです。
このように結合したい範囲の左上のセルを指定した後に、結合したい範囲の行数と列数をResizeプロパティで指定します。