セル範囲を結合・結合を解除（Merge メソッド・UnMerge メソッド）

サイト管理人

10年前

Merge メソッド・UnMerge メソッド

セルを結合するには、指定したセル範囲に対して、Merge メソッドを実行します。解除するには、UnMerge メソッドを実行します。

【書式】

m_object.Merge

u_object.UnMerge

引数・戻り値

m_object ・・・結合したいセル範囲（Range オブジェクト）を指定します。
u_object ・・・結合したセル範囲または、その範囲内のセルのうちどれか 1 つのセルを指定します。

セルの結合・結合の解除は、MergeCells プロパティでも可能です。
また、セルが結合セルの一部である場合、その結合セルの範囲を取得するには、MergeArea プロパティを使用します。

Merge メソッド・UnMerge メソッド使用例

サンプルVBAソース

　
Sub Sample_Merge()


    'セル範囲「B1:D5」を結合（※ MergeCells プロパティを使用）
    Range("B1:D5").MergeCells = True


    '結合済みのセルの一部「B2」セルをもとに結合したセル範囲全体を取得する
    '（※ MergeArea プロパティを使用）
    Dim myRng As Range
    Set myRng = Range("B2").MergeArea.Address　　　　'＜ここまで＞


    '結合済のセル範囲 myRng の結合を解除：UnMerge メソッド
    myRng.UnMerge


    'セル範囲「A1:A5」を結合：Merge メソッド
    Range("A1:A5").Merge


End Sub

Sub Sample_Merge()

'セル範囲「B1:D5」を結合（※ MergeCells プロパティを使用）

Range("B1:D5").MergeCells = True

'結合済みのセルの一部「B2」セルをもとに結合したセル範囲全体を取得する

'（※ MergeArea プロパティを使用）

Dim myRng As Range

Set myRng = Range("B2").MergeArea.Address　　　　'＜ここまで＞

'結合済のセル範囲 myRng の結合を解除：UnMerge メソッド

myRng.UnMerge

'セル範囲「A1:A5」を結合：Merge メソッド

Range("A1:A5").Merge

End Sub

実行結果

サンプルVBAソース＜ここまで＞実行

最後まで実行した結果

Merge メソッド・UnMerge メソッド

引数・戻り値

Merge メソッド・UnMerge メソッド 使用例

サンプルVBAソース

実行結果

Merge メソッド・UnMerge メソッド使用例