在某列中查找相同项，并将对应列的数据汇总在同一行中

蚊子打喷嚏

找了很多资料，自己搞不定了，现求助于大家：
现况：
1、如图及附件所示，目的处理订单中相同项；
2、C列为图号，H~M列为订单号及对应数量；
3、单个订单中无重复图号；不同订单中可能存在不确定数量的相同图号


目标：

1、查找出C列中工程图号的相同项

2、将不同订单中相同工程图号的项目进行合并 -->相应订单的数量汇总在第一个料号

4、将重复的项目对应行删除

excel玉米

试试这段程序吧
Sub 汇总()
Dim i%, arr(), k, brr(), m%, n%
Dim d As Object
Set d = CreateObject("Scripting.dictionary")
arr = Sheet1.Range("c3:p50")
m = UBound(arr): n = UBound(arr, 2)
ReDim Preserve brr(1 To m, 1 To n)
For i = 1 To m
  k = d(arr(i, 1))
  If k = "" Then
  s = s + 1: d(arr(i, 1)) = s: k = s
  brr(s, 1) = arr(i, 1)
  End If
  For j = 2 To n
   brr(k, j) = brr(k, j) + arr(i, j)
  Next
Next

Sheet2.Range("c3").Resize(s, n) = brr '输出结果到工作表指定区域
End Sub

蚊子打喷嚏

excel玉米 发表于 2018-6-19 20:12
试试这段程序吧
Sub 汇总()
Dim i%, arr(), k, brr(), m%, n%

非常感谢你能帮忙！
我测试了一下程序，但有功能可能不太对：
1、若在每个工程图号的D~F列填入相应值（3/10/16行中D/E/F分别为A值）
2、在汇总后，由于图号未变化，D/E/F应该仍为A值
3、在程序运行后，确出现了D/E/F每个单元格中确出现AAA值，与实际不符
由于刚开始看“字典”的功能，还是要好好研究一下你的程序；如果你能协助完善程序，那就再好不过了
谢谢

蚊子打喷嚏

excel玉米：
出现状况如图及附件所描述

excel玉米

For j = 2 To n  这句改为
For j = 5 To n   表示从数组第五列开始汇总