Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

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

2015/08/01

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

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

　

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 メソッド, MergeArea プロパティ, MergeCells プロパティ, Range オブジェクト, UnMerge メソッド, VBA基本, エクセルVBA, セルの操作

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: オートフィルタ（日付による抽出）AutoFilter メソッド

日付で、抽出する（AutoFilter メソッド）【書式】 object.Au …

: セルの幅・高さの自動調整（AutoFit メソッド）

AutoFit メソッド AutoFit メソッドは、指定したセル・セル範囲（R …

: セル内部を参照（Interior プロパティ）

Interior プロパティ Interior プロパティで、セルの内部を参照し …

: オートフィルタ（AutoFilter メソッド）

AutoFilter メソッド【書式】 object.AutoFilter ( …

: 入力規則（エラーメッセージの設定）Validation オブジェクト

無効値を入力時に、エラーメッセージの表示 Validation.ShowErro …

: セルをアクティブにする・セルを選択する（Activate, Select）

セルをアクティブにする・選択する【書式：セルをアクティブにする】 object …

: 引数に指定したセル範囲の共通のセル範囲を取得（Intersect メソッド）

Intersect メソッド Intersect メソッドは、引数に指定したセル …

: AutoFilter オブジェクト（メソッド・プロパティ）

AutoFilter.ShowAllData メソッド AutoFilter.S …

: ハイパーリンク（Hyperlinks オブジェクト）

Hyperlinks オブジェクトワークシートまたはセル範囲のワークシートコレ …

: 次の検索（FindNext メソッド,FindPrevious メソッド）

FindNext メソッド Find メソッドで開始された検索を継続します。引数 …

PREV: 別シートのセルを選択（Goto メソッド／ PreviousSelections プロパティ）
NEXT: テーマカラーで網かけ（パターン）の色の取得・設定（PatternThemeColor プロパティ・PatternTintAndShade プロパティ）