帮忙用字典法将合并后的单元格写个分类汇总程序

titan0630

请高手帮忙用字典法将含合并后的单元格写个汇总程序，没合并可以实现，但是我那个表必须要合并，自己实在搞不出来，求助了

蓝桥玄霜

1. Sub hz()
   
2. Dim i&, Myr&, Arr
   
3. Dim d, k, t
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. Myr = Sheet1.[a65536].End(xlUp).Row
   
6. Arr = Sheet1.Range("a1:b" & Myr)
   
7. For i = 1 To UBound(Arr)
   
8. If Arr(i, 1) <> "" Then
   
9.     d(Arr(i, 1)) = d(Arr(i, 1)) + Arr(i, 2)
   
10. End If
    
11. Next
    
12. k = d.keys
    
13. t = d.items
    
14. Range("A1:B" & Myr).Copy Destination:=Range("D1")
    
15. For i = 1 To d.Count
    
16.     Cells(2 * i - 1, 5) = t(i - 1)
    
17. Next
    
18. Cells(d.Count * 2 + 1, 4).Resize(Myr - d.Count * 2, 2).Clear
    
19. End Sub
    

复制代码

oobird

1. Sub yy()
   
2.     Dim rng, i%, d As Object
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     rng = Range([a1], [b65536].End(3))
   
5.     For i = 1 To UBound(rng)
   
6.         If Len(rng(i, 1)) > 0 Then
   
7.             d(rng(i, 1)) = d(rng(i, 1)) + rng(i, 2)
   
8.         End If
   
9.     Next
   
10.     [f1].Resize(d.Count, 1) = Application.Transpose(d.keys)
    
11.     [g1].Resize(d.Count, 1) = Application.Transpose(d.items)
    
12. End Sub
    

复制代码

northwolves

1. 
   
2. [d1].Consolidate "r1c1:r100c2", xlSum, 0, 1
   

复制代码

titan0630

感谢各位老大的无私帮助，我去试试看

titan0630

我这个表中含有多列汇总统计，单列统计可以通过，多项总是报错，把原表发上来给大家看看有什么办法

titan0630

请求帮忙，高手来指导下

蓝桥玄霜

杆塔的规格是按杆塔呼高？
你要手工做一个做好的效果表，说清楚规格取什么列数据、数量取哪一列？

titan0630

手工做好了，蓝老师你看下

蓝桥玄霜

请见附件。
导线长度不知道从何取得？