行方向の同じ値のセルを結合するマクロ

ネットで色々調べながら、A列方向の同じ値のセルを結合させるマクロ
を作ってみたのですが、もっと簡単にできるようでしたら教えていただきたいです。

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

Sub セル結合()


Dim r As Integer '行数
Dim i As Integer 'カウンタ

r = Sheets(1).Range("a1").CurrentRegion.Rows.Count - 1

Application.DisplayAlerts = False

For i = 1 To r
Cells(i, 1).Activate '項目の一つ下のセルをアクティブに
If ActiveCell.Value = ActiveCell.Offset(1).Value Then
Range(ActiveCell, ActiveCell.Offset(1)).Merge
End If

Next
Application.DisplayAlerts = True
End Sub

No.1 ベストアンサー 回答者： xls88 回答日時： 2011/02/19 11:58

こんな感じでどうでしょうか。

Dim c As Range
Application.DisplayAlerts = False
For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp))
If c.MergeArea(1).value = c.Offset(1).value Then
Range(c.MergeArea, c.Offset(1)).Merge
End If
Next
Application.DisplayAlerts = True

この回答へのお礼

お返事が遅くなり申し訳りません。
xls88さんのおかげで、いままで手動だった処理が
簡単になりました。

本当にありがとうございました。

お礼日時：2011/03/02 22:19