セル結合の解除

Excel VBA を使って結合されたセルを解除する方法について解説します。

(Last modified: )

セル結合を解除する

セルの結合を解除するには、結合するセルの元になった複数のセルの中のどれか1つのセルを表すRangeオブジェクトの「MergeCells」プロパティに「False」を設定します。

Dim range1 As Range

Set range1 = Range("A1")
range1.MergeCells = False

まとめて次のように記述しても構いません。

Range("A1").MergeCells = False

結合を解除するのに指定するセルは、結合されているセルに元々含まれていたセルであれば、どのセルであっても構いません。

サンプルプログラム

では簡単なサンプルで試してみましょう。まず下記のようなExcelファイルを用意します。

セル結合を解除する

セルB2の位置にあるセルの結合を解除します。

Sub テスト()

    Dim range1 As Range
    
    Set range1 = Range("C2")
    range1.MergeCells = False
    
End Sub

上記マクロを実行すると次のようになります。

セル結合を解除する

少し分かりにくいですが、セルB2の位置にあったセルは結合が解除されて、それぞれセルB2、セルC2、セルD2になっています。

-- --

Excel VBA を使って結合されたセルを解除する方法について解説しました。

( Written by Tatsuo Ikura )

プロフィール画像

著者 / TATSUO IKURA

これから IT 関連の知識を学ばれる方を対象に、色々な言語でのプログラミング方法や関連する技術、開発環境構築などに関する解説サイトを運営しています。