3 개의 공통 요소로 여러 데이터 행을 통합하고 각 행에서 특정 값을 추가하십시오.

주문 번호별로 400,000 행의 주문 수준 데이터를 통합해야하며 동일한 주문 번호가있는 각 행의 배송 수량을 추가해야합니다.
세 가지 공통 요소 (주문 번호, 수령인, 발송일)로 여러 데이터 행을 통합하고 각 행 (배송 된 수량)의 특정 값을 추가하고 공통 요소와 배송 된 수량의 합계를 유지해야합니다.

실제로 60867 개의 고유 주문 번호가 있습니다. 따라서 나는 합계 된 선박 수량과 제목에 언급 된 값을 유지하면서 그 많은 고유 한 행을 통합 할 수있을 것으로 기대합니다.

Order Number  Recipient                             Shipped Date    Shipped Qty
1540690       HBUK-02096-00850-ASHBOURNE - 00850    2/8/2012        10
1540690       HBUK-02096-00850-ASHBOURNE - 00850    2/8/2012        10
1540690       HBUK-02096-00850-ASHBOURNE - 00850    2/8/2012        10
1540690       HBUK-02096-00850-ASHBOURNE - 00850    2/8/2012        40
1540691       HBUK-02096-00858-CASTLEFORD - 00858   2/8/2012        10
1540691       HBUK-02096-00858-CASTLEFORD - 00858   2/8/2012        10
1540691       HBUK-02096-00858-CASTLEFORD - 00858   2/8/2012        30

이것은 효과가있다.

Sub Chris()
Dim lrow As Long

With ActiveSheet

lrow = .Cells(65536, 1).End(xlUp).Row

.Cells(1).CurrentRegion.Sort key1:=.Cells(1), Header:=xlYes

Do

    If .Cells(lrow - 1, 1) = .Cells(lrow, 1) Then
        .Cells(lrow - 1, 4) = .Cells(lrow - 1, 4) + .Cells(lrow, 4)
        .Rows(lrow).Delete
    End If

    lrow = lrow - 1

Loop Until lrow < 2

End With

End Sub

적응 된 출처