Excel VBAでのロジックの組み方

結合されたセルの場合の質問です。
A1,A2,A3の3つのセルが結合されて、値”a"が入っています。
A4="b"
A5="c"
A6=""
A7=""
A8="e"
A9="f"

欲しい結果は、
B1="a"
B2="a"
B3="a"
B4="b"
B5="c"
B6=""
B7=""
B8="e"
B9="f"

下記のVBAでは、B2,B3はブランクが入ってしまいます。
Sub test()
For i = 1 To 9
aa = Cells(i, 1).Value
Cells(i, 2).Value = aa
Next
End Sub

B2,B3にも、"a"が入るようなロジックが欲しい。
サジェスチョン願います。

No.3 ベストアンサー 回答者： GooUserラック 回答日時： 2016/10/09 00:11

No.2 の修正

これでも問題ないようです
-----------------------------------------------------------------------
Sub Sample()
Dim i As Long
For i = 1 To 9
Cells(i, 2).Value = Cells(i, 1).MergeArea.Value
Next
End Sub
-----------------------------------------------------------------------

この回答へのお礼

MergeArea は、セルが単独であっても許すということですね。
今回、非常に参考になりました。
ありがとうございます。

お礼日時：2016/10/09 18:38

No.2 回答者： GooUserラック 回答日時： 2016/10/08 23:59

こんなのはいかがでしょうか？

-----------------------------------------------------------------------
Sub Sample()
Dim i As Long
For i = 1 To 9
Cells(i, 2).Value = Range(Cells(i, 1).MergeArea.Item(1).Address(0, 0)).Value
Next
End Sub
-----------------------------------------------------------------------

No.1 回答者： tom04 回答日時： 2016/10/08 21:00

こんばんは！

一例です。

Sub Sample1()
Dim i As Long
For i = 1 To 9
If Cells(i, "A").MergeCells Then
Cells(i, "B").Value = Cells(i, "A").MergeArea.Value
Else
Cells(i, "B").Value = Cells(i, "A").Value
End If
Next i
End Sub

こんな感じではどうでしょうか？m(_ _)m

この回答へのお礼

ありがとうございます。
MergeArea　を使うのですね。
この部分、全く小生の頭に中になかったです。
感謝します。

お礼日時：2016/10/09 18:31