셀 내용같은것끼리 셀 병합해주는 매크로

셀 내용같은것끼리 셀 병합해주는 매크로

 

Sub 셀병합()

Dim 시작셀 As Range 
Application.DisplayAlerts = False
On Error Resume Next

Set 시작셀 = Application.InputBox("병합을 시작할 셀을 선택하세요." & Chr(10) & "같은 열에서 값이 같으면 셀을 병합합니다.", Type:=8)
If 시작셀 Is Nothing Then Exit Sub

시작셀.Select
Do While ActiveCell.Value <> ""

If 시작셀.Value = ActiveCell.Offset(1, 0).Value Then 
    ActiveCell.Offset(1, 0).Select
Else
    Range(시작셀, ActiveCell).MergeCells = True 
    Set 시작셀 = ActiveCell.Offset(1, 0) 
    ActiveCell.Offset(1, 0).Select
End If
Loop   

Application.DisplayAlerts = True 
End Sub