EXCELオブジェクトを使って結合セルの値を取得 (ID:87042)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 掲題の通り、結合されたセルの値をVBからEXCELオブジェクトを使用して取得したいのです。 ですが、このとき結合されたセルの左上座標を指定しないと値が取得できません。 （たとえばA1,A2,B1,B2が結合されている場合A1以外は0が帰ってしまいます。） このとき、結合されている範囲のどの座標でもその結合セルの値が返るようにする方法はありませんでしょうか？ 以下にサンプルを示します。 Option Explicit Private Sub Command1_Click() Screen.MousePointer = vbHourglass Dim objExcel As New Excel.Application Dim objBook As Excel.Workbook Dim objSheet As Excel.Worksheet Dim objRange As Excel.Range objExcel.Workbooks.Open App.Path & "\Book1.xls" Set objBook = objExcel.Workbooks("Book1.xls") Set objSheet = objBook.Worksheets("Sheet1") With objSheet Text1.Text = Text1.Text & "A1" & vbTab & .Cells(1, 1) & vbCrLf Text1.Text = Text1.Text & "B1" & vbTab & .Cells(2, 1) & vbCrLf Text1.Text = Text1.Text & "C1" & vbTab & .Cells(3, 1) & vbCrLf Text1.Text = Text1.Text & "D1" & vbTab & .Cells(4, 1) & vbCrLf Text1.Text = Text1.Text & vbCrLf Text1.Text = Text1.Text & "A2" & vbTab & .Cells(1, 2) & vbCrLf Text1.Text = Text1.Text & "B2" & vbTab & .Cells(2, 2) & vbCrLf Text1.Text = Text1.Text & "C2" & vbTab & .Cells(3, 2) & vbCrLf Text1.Text = Text1.Text & "D2" & vbTab & .Cells(4, 2) & vbCrLf End With objExcel.Quit Set objSheet = Nothing Set objBook = Nothing Set objExcel = Nothing Screen.MousePointer = vbDefault End Sub どうぞ、よろしくお願いします。