インターネット学習帳

Sub Sample()

　'Range("A2:C2")が結合されているものとします。
　Dim myRng1 As Range
　Dim myRng2 As Range
　Set myRng1 = Range("B2") '任意のセル範囲

　　If myRng1.MergeCells Then
　　　Set myRng2 = myRng1.Cells(1).MergeArea
　　　myRng2.Select '確認用
　　　MsgBox myRng2.Address
　　Else
　　　MsgBox "指定したセル範囲は、結合セルの一部ではありません"
　　End If

　Set myRng1 = Nothing 'オブジェクトの解放
　Set myRng2 = Nothing

End Sub