excel相同货号合并数量相加

货号 数量
338 2
339 1
338 6
339 2
相同货号合并数量相加
货号 数量
338 8
339 3

Sub calc()
'A:货号 B:数量--> C:货号分类 D:数量加总
Last_Row = Range("A65536").End(xlUp).Row '设定(A:货号)最后一列
j = 2
For i = 2 To Last_Row '将货号分类於C
If Application.CountIf(Range("A" & i & ":A" & Last_Row), Cells(i, 1)) = 1 Then
Cells(j, 3) = Cells(i, 1)
j = j + 1
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Last_No = Range("C65536").End(xlUp).Row '设定C栏最后一货号列
For i = 2 To Last_Row
Set look = Range("C2:C" & Last_No).Find(What:=Cells(i, 1), LookIn:=xlValues, LookAt:=xlWhole)
Find_S = look.Row
Cells(Find_S, 4) = Cells(i, 2) + Cells(Find_S, 4) '将数量加到 D
Next

End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/pfs8sffs4.html