请问改如何对一个有多条件的表格进行合并

areshmds

工作中会经常对材料表的相同材料进行合并操作。
有一点点复杂，请待我慢慢说清楚

合并的条件是，B列的编码相同，D列的规格相同，G列的备注相同，才能合并。

最终是要做出这种效果。

编码、型号、和备注。只要有一个地方不一样，就不能合并。
目前只能通过筛选排序，将相同的排在一起，然后给表格标记一个显示重复的条件格式，高亮显示重复的内容。（这一步，我已经通过宏实现了）
然后就只能手动操作，通过拖拉求和，然后手动修改数量，在手动删除已经合并的行。
条件有点多，想不到该如何实现 通过宏的快速操作。或者使用函数也可以。但是苦苦无奈，想不到思路。
特此在这里问问各位大神，请高人指点一下。

microyip

用字典记录三处的值就可以合并了

3190496160

Sub hebing()
Set d = CreateObject("scripting.dictionary")
ar = Sheets("原始").[a1].CurrentRegion
ReDim br(1 To UBound(ar), 1 To UBound(ar, 2))
For i = 2 To UBound(ar)
    s = Trim(ar(i, 2)) & "|" & Trim(ar(i, 4)) & "|" & Trim(ar(i, 7))
    t = d(s)
    If t = "" Then
        k = k + 1
        d(s) = k
        t = k
        For j = 1 To 5
            br(k, j) = ar(i, j)
        Next j
        br(k, 7) = ar(i, 7)
    End If
    br(t, 6) = br(t, 6) + ar(i, 6)
Next i
With Sheets("完成")
    .[a1].CurrentRegion.Offset(1) = Empty
    .[a2].Resize(k, UBound(br, 2)) = br
End With
End Sub

3190496160

材料表.zip (16.64 KB, 下载次数: 3)

2020-1-30 12:04 上传

点击文件名下载附件

areshmds

3190496160 发表于 2020-1-30 12:04

非常感谢，我要好好研究下