Consolide várias linhas de dados com três elementos comuns e adicione valores específicos de cada linha

Question

Preciso consolidar 400.000 linhas de dados no nível do pedido, por número do pedido, ao adicionar a quantidade do envio para cada linha com o mesmo número do pedido.
Eu preciso consolidar várias linhas de dados com três elementos comuns (número do pedido, destinatário, data de envio) e adicionar valores específicos de cada linha (quantidade expedida) e reter os elementos comuns mais a soma da quantidade expedida.

Na verdade, existem 60867 números de pedidos exclusivos. Por isso, espero poder consolidar até muitas linhas únicas com a quantidade de Ship adicionada e manter os valores mencionados no título.

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

    

Answer 1

Isso deve funcionar

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

adaptado de source