Home » Excel VBA Rangeオブジェクト » 結合セル » MergeAreaの最終セルのアドレスを取得する

MergeAreaの最終セルのアドレスを取得する

対象：Excel2007, Excel2010, Excel2013, Windows版Excel2016

「vba mergeareaの最後のアドレス」
という検索でこのサイト・インストラクターのネタ帳へのアクセスがありました。

Excel VBA（Visual Basic for Applications）では、RangeオブジェクトのMergeAreaプロパティで、結合セル範囲を表すRangeオブジェクトを取得できます。

この結合セルの最後のセル・最終セルのアドレスを取得するオブジェクト式を探していた方による、検索キーワードでしょう。

［スポンサードリンク］

結合セルの最終セルアドレスを取得するWithを使ったサンプルマクロ

結合セルがアクティブな状態で以下のマクロを実行すると、アクティブな結合セルの最終セルのアドレスがメッセージボックスに表示されます。

Sub 結合セルの最終セルアドレスを取得する_With()
　With ActiveCell.MergeArea
　　MsgBox .Item(.Count).Address
　End With
End Sub

オブジェクト式の文法がしっかりと理解できていない方の場合、上記のマクロは難しく感じるかもしれません。

その場合、以下のマクロでご確認ください。

Sub 結合セルの最終セルアドレスを取得する_変数利用()
　Dim cnt As Long

　cnt = ActiveCell.MergeArea.Count
　MsgBox ActiveCell.MergeArea(cnt).Address
End Sub

結合されているセルの数を一旦変数・cntに代入しておいてから、
　　cnt = ActiveCell.MergeArea.Count

変数を使って最終セルを取得して、アドレスをメッセージボックスに表示しています。
　　MsgBox ActiveCell.MergeArea(cnt).Address

［スポンサードリンク］

Home » Excel VBA Rangeオブジェクト » 結合セル » MergeAreaの最終セルのアドレスを取得する

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「結合セル」の記事一覧