相同产品数量累加，同步大于零内容

zhh9688 · 发表于 2019-9-25 11:36

大家好，求解决，谢谢！

petergaod · 发表于 2019-9-25 11:39

字典

yylucke · 发表于 2019-9-25 11:57

Private Sub CommandButton1_Click()
Dim Dic, Arr, LastRow
Set Dic = CreateObject("Scripting.Dictionary")

With Sheet2
LastRow = .Cells(.Cells.Columns.Count, 2).End(xlUp).Row
Arr = .Range("A2:C" & LastRow)
End With
For i = 1 To UBound(Arr)
Dic(Arr(i, 1) & "|" & Arr(i, 2)) = Dic(Arr(i, 1) & "|" & Arr(i, 2)) + Arr(i, 3)
Next i

With Sheet1
.Rows("2:1000").ClearContents
k = 1
For Each Key In Dic
      If Dic(Key) <> 0 Then
         k = k + 1
         .Cells(k, 1) = Split(Key, "|")(0)
         .Cells(k, 2) = Split(Key, "|")(1)
         .Cells(k, 3) = Dic(Key)
      End If
Next Key
End With

End Sub