求助！如何EXCEL中，将相同的数据合并，数量相加，序号则保留。。

习左左

如图中。

序号	宽	高	数量
29A1	670	1370	1
28A1	670	1350	1
27A1	670	1360	1
26A1	680	1340	1
25A1	670	1370	1

如图，序号29A1与25A1的尺寸相同，则合并成这样.

序号	宽	高	数量
29A1，25A1	670	1370	2

应该用什么函数可以办到？求大神指点！

准提部林

Sub TEST()
Dim Arr, Brr, i&, j&, k%, xD, U&, N&, T(1 To 6)
Arr = Sheets("Sheet2").UsedRange
ReDim Brr(1 To 50000, 1 To 4)
Set xD = CreateObject("Scripting.Dictionary")
For i = 2 To UBound(Arr)
For j = 1 To UBound(Arr, 2) Step 4
    For k = 1 To 4: T(k) = Arr(i, j + k - 1): Next
    If T(1) = "" Or T(2) = "" Or T(3) = "" Then GoTo 101
    T(5) = T(2) & "|" & T(3): U = xD(T(5))
    T(6) = T(1) & "|" & T(5): xD(T(6)) = xD(T(6)) + 1
    If U = 0 Then
       N = N + 1: xD(T(5)) = N
       For k = 1 To 4: Brr(N, k) = T(k): Next
    Else
       If xD(T(6)) = 1 Then Brr(U, 1) = Brr(U, 1) & "," & T(1)
       Brr(U, 4) = Brr(U, 4) + Val(T(4))
    End If
101: Next j
Next i
[Sheet1!A2:D50000].ClearContents
[Sheet1!A2:D2].Resize(N) = Brr
End Sub

結果放在 Sheet1 (自行建立)

习左左

朱荣兴 发表于 2019-3-22 09:16
新建一个工作表，命名为    效果
Sub 合并()
    Set d = CreateObject("scripting.dictionary")

谢谢高人指点！

zyhqzn

pq一个，sheet1中