VBA 이용 같은 문구 병합

지식인 질문 :

montegue님 답변 :

Sub Macro1()
  Dim c As Range
  Dim f As Range
  Application.DisplayAlerts = 0
  Set f = Range("A1")
  For Each c In Range(f, f.End(xlDown)(2))
    If c <> f Then
      Range(f, c.Offset(-1)).Merge
      Set f = c
    End If
  Next c
  Application.DisplayAlerts = 1
End Sub