EXCEL VBA：結合セルのデータを取り出すには？

質問

結合セルに書き込まれている文字列を取得したいのですが、
何か良い方法はありますか？

以下のような方法をとってみたのですが、
イマイチうまくいきませんでした。。。

Dim iRow as Integer
Dim strData as String

iRow = 1
strData = Cells(iRow, 1).MergeArea.Value

どなたかご教授頂けないでしょうか？
何卒よろしくお願いします。

回答No.1

redfox63 · ベストアンサー

MergeAreaで取得したセルの位置を特定しないといけませんね
通常は結合セルの先頭のみのデータが対象でしょうから
strData = Cells（iRow,i).MergeArea( 1, 1).Value
といった具合でしょう

iRowの更新は
iRow = iRow + Cells（iRow,i).MergeArea.Rows.Count
といった具合でしょう

お礼

なるほど！この書式で取得できるんですね！
ありがとうございました！

回答No.2

imogasi

適当に、複数箇所のセル結合してあるセル範囲をカバーして、範囲指定し、下記を実行してみてください。
Sub test02()
Dim cl As Range
For Each cl In Selection
If cl.MergeCells = True Then
If cl.Value <> "" Then
MsgBox cl.Address & " " & cl.Value
End If
End If
Next
End Sub
で無駄なくつかめると思います。

お礼

ご回答ありがとうございます。
ちょうど、結合セルのアドレス全てを配列に格納しようかと
考えておりましたので、是非この方法を使わせて頂きます！