엑셀 같은열 같은값 합치기

ALT+F11키

시트우클릭->코드보기->아래코드삽입->실행

Sub kh()

    Dim R As Range

    Dim i As Integer

   

    Application.DisplayAlerts = False '경고문 출력제어

        For Each R In Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row) 'a2에서 a열 마지막행까지 작업

            If R.Value = R.Offset(1, 0) Then '현재셀과 다음셀과 같으면.

                i = i + 1 '카운트

            Else '현재셀과 다음셀과 다르면.

                i = i + 1 '하나더 카운트하고

                R.Offset(-i + 1, 0).Resize(i, 1).Merge '현재셀에서 카운트만큼 옵셋한후 다시 범위를 잡고....병합

                i = 0 '카운트 0

            End If

        Next

    Application.DisplayAlerts = True

End Sub