중복 데이터값 합산하기

종종 방문하는 카페에 질문글이 올라와서 한번 만들어 봤습니다.

 

왼쪽에 있는 데이터의 중복코드를 1개로 표시하고 각 코드의 수량을 합산해달라는 내용이었습니다.

세번째처럼 합산 표시하는 매크로를 만들어 봤어요.

중복합산.xlsm

0.02MB

코드는 아래와 같습니다.

Option Explicit
 
Sub add_each_code()
 
    Dim r As Long
    Dim rowsCnt As Long
    
    Application.ScreenUpdating = False
 
    Columns("A:B").Copy                         'A:B열을 복사
    Columns("E:E").Insert Shift:=xlToRight      'E열에 삽입
    Application.CutCopyMode = False
    
    rowsCnt = Cells(Rows.Count, "E").End(3).Row
    For r = rowsCnt To 2 Step -1                             '행 하나씩 줄이면서 올라감
        If Cells(r, 5) = Cells(r - 1, 5) Then                '아래위 값이 같으면
            Cells(r - 1, 6) = Cells(r - 1, 6) + Cells(r, 6)  '윗행에 개수 합산
            Cells(r, 5).Resize(, 2).ClearContents            '아래행 값을 삭제
        End If
    Next r
 
    Range(Range("E2:F2"), Cells(Rows.Count, 5).End(3)).Sort _
    key1:=Range("E2"), order1:=xlAscending
 
End Sub