Excel VBA 連続して同じデータが入力されている列を参照し、違う列をｾﾙ結合させたい

Excel　VBA初心者です。
下記が可能か教えてください。

B列で連続しているデータを参照し、連続したデータと同じ行分A列をセル結合したいのです。

A　　　B
100　　1
100　　1
100　　2　
200　　3

↓

A　　　B
100　　1
　　　　1
100　　2
200　　3

こんな感じです。

連続したデータが入力されているセルを結合する方法は、検索して見つかったのですが、この場合は、どうしたらいいでしょうか？

どうぞよろしくお願いいたします。

No.1 ベストアンサー 回答者： fujillin 回答日時： 2016/04/27 10:40

こんにちは。

うまい方法がありそうな気もしますが、そのまま愚直にやればこんな感じでしょうか？

Sub Sample()
　Dim rw As Long, rwMax As Long, r As Long

　rwMax = Cells(Rows.Count, 2).End(xlUp).Row
　For rw = 1 To rwMax
　　Cells(rw, 1).MergeArea.UnMerge
　Next rw

　rw = 1
　Do While rw < rwMax
　　r = 1
　　Do While Cells(rw, 2).Value = Cells(rw + r, 2).Value
　　　r = r + 1
　　Loop
　　If r > 1 Then
　　　Application.DisplayAlerts = False
　　　Cells(rw, 1).Resize(r, 1).Merge
　　　Application.DisplayAlerts = True
　　End If
　　rw = rw + r
　Loop
End Sub

この回答へのお礼

Fujillinさん、こんにちは。　出来ました！！！とても助かりました。ありがとうございます。

お礼日時：2016/04/27 12:00