请教大神,只要用量有数值,就会生成款号,而且重复的只出现一次

佑笾的守护

款号		用量					备注
AB5758	粘朴	5			粘朴	23	AB5758AB6585AL7845AC6555
AB5758	粘朴	1			绿海耳仔小花边	11	AB5758AL7845AL4555
AB5728	粘朴	0
AB6585	粘朴	1.5
AB4587	粘朴	0
AL7845	粘朴	12
AL7845	粘朴	2
AL4555	粘朴	0
AC6555	粘朴	1.5
AC6551	粘朴	0
AB5758	绿海耳仔小花边	2
AB5758	绿海耳仔小花边	1
AL7845	绿海耳仔小花边	3
AL7845	绿海耳仔小花边	2
AL4555	绿海耳仔小花边	3

备注那一列只有用量有数值会自动生成款号,而且重复的只出现一次

一把小刀闯天下

Option Explicit

Sub test()
  Dim arr, i, m, s, sum
  arr = [e2].CurrentRegion.Offset(1)
  For i = 1 To UBound(arr, 1) - 1
    If InStr(s, "|" & arr(i, 1)) = 0 And arr(i, 3) > 0 Then
      s = s & "|" & arr(i, 1)
    End If
    sum = sum + arr(i, 3)
    If arr(i, 2) <> arr(i + 1, 2) Then
      m = m + 1: arr(m, 1) = arr(i, 2): arr(m, 2) = sum
      s = Split(s, "|"): arr(m, 3) = Join(s, vbNullString)
      sum = 0: s = vbNullString
    End If
  Next
  With [j3]
    .Resize(Rows.Count - 2, 3).ClearContents
    .Resize(m, 3) = arr
  End With
End Sub