엑셀병합 메크로

Sub mergecol()
Dim R As Range
Dim i As Integer

Application.DisplayAlerts = False '경고문 출력제어
For Each R In Selection
i = i + 1 '카운트
If R.Value = R.Offset(1, 0) Then '현재셀과 다음셀과 같으면.
Else '현재셀과 다음셀과 다르면.
R.Offset(-i + 1, 0).Resize(i, 1).Merge '현재셀에서 카운트만큼 옵셋한후 다시 범위를 잡고....병합
i = 0 '카운트 0
End If
Next
Application.DisplayAlerts = True
End Sub