[[20261005161447]]　『結合セルの先頭番地の取得』（あん）　ページの最後に飛ぶ

『結合セルの先頭番地の取得』（あん）

よろしくお願いいたします。

シート（Sheet1）をダブルクリックしたときに、そのセルの番地を他のシート（Sheet2）に書き出すというコードを作成しています。

その際、結合セルの番地については先頭セルの番地（一番左上のセル番地）を書き出したいのですが、エラーになりうまくいきません。

下記コードのこの部分でエラーが出ます。
Target.MergeArea.Address

どのように記述したらよいのでしょうか？

よろしくお願いいたします。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

    Dim Rw As Long

    If Worksheets("Sheet2").Cells(1, 1) = "" Then

        Rw = 0

    Else

        Rw = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row

    End If

    Worksheets("Sheet2").Cells(Rw + 1, 1) = Replace(Target.MergeArea.Address, "$", "")
    Target.Interior.ColorIndex = 4

    Cancel = True

End Sub

＜使用 Excel：Excel2021、使用 OS：Windows11 ＞

MsgBox Target.Cells(1).Address(0, 0)
（チョップ） 2026/10/05(月) 16:44:01

チョップ様

回答ありがとうございます。

まさしくそれで1発で出来ました。

しかも$マークもつかなくなる方法ですね。

replace削除しました。

ありがとうございました。
（あん） 2026/10/05(月) 16:52:15

 Target(1).Address(0, 0) でも良いでしょう
（Xyz） 2026/10/05(月) 17:46:09

Xyz様

回答ありがとうございます。

了解しました。

それも勉強になります。
ありがとうございます。

（あん） 2026/10/06(火) 09:56:31

コメント返信：