不同列的产品汇总到同一列

excelhome9819

请教各位老师：

在原始表中，产品放在不同列，在汇总表汇总的时候，希望把原始表中不同列的产品，列在一列中，进行汇总

比如：原始表
A产品的型号规格在W列，B产品的型号规格在AZ列，


希望在汇总表中

请问如何进行查询汇总呢？请见附件。
感谢指导！

liulang0808

1. Sub test()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     r = Cells(Rows.Count, "w").End(3).Row
   
4.     arr = [w1].Resize(r, 2)
   
5.     For j = 2 To UBound(arr)
   
6.         If Len(arr(j, 1)) > 0 Then
   
7.             d(arr(j, 1)) = d(arr(j, 1)) + arr(j, 2)
   
8.         End If
   
9.     Next j
   
10.     r = Cells(Rows.Count, "az").End(3).Row
    
11.     arr = [az1].Resize(r, 2)
    
12.     For j = 2 To UBound(arr)
    
13.         If Len(arr(j, 1)) > 0 Then
    
14.             d(arr(j, 1)) = d(arr(j, 1)) + arr(j, 2)
    
15.         End If
    
16.     Next j
    
17.     With Sheets("终端头汇总")
    
18.         .[d1:e1].Value = .[a1:b1].Value
    
19.         .[d2].Resize(d.Count) = WorksheetFunction.Transpose(d.keys)
    
20.         .[e2].Resize(d.Count) = WorksheetFunction.Transpose(d.items)
    
21.     End With
    
22. End Sub
    

复制代码

liulang0808

附件内容供参考。。。。

excelhome9819

感谢版主，很好！

excelhome9819

liulang0808 发表于 2019-12-7 16:32
附件内容供参考。。。。

感谢版主，很好，谢谢