[已解决]使用VBA完成批量数据汇总合并同类项

342662071

想要完成批量数据合并同类项并汇总对应数值的VBA按钮，请大神帮忙完成。要求放在Excel表格里了，如果哪位好心的大神发现表格打不开一定帮忙说一声，谢谢，很重要，明天要交差。

最佳答案

月排行榜 / 总排行榜

grf1973

2016-12-21 09:55

请看附件。

跳转到最佳答案楼层

342662071

有大神帮忙解决吗？求助啊，明天就要用了

grf1973

1. Sub tt()
   
2.    Set d = CreateObject("scripting.dictionary")
   
3.    arr = [a1].CurrentRegion: k = 1
   
4.    ReDim brr(2 To UBound(arr), 1 To UBound(arr, 2))
   
5.    For i = 2 To UBound(arr)
   
6.         x = Trim(arr(i, 1))
   
7.         If Not d.exists(x) Then
   
8.             k = k + 1
   
9.             d(x) = k
   
10.             brr(k, 1) = x
    
11.         End If
    
12.         For j = 2 To UBound(arr, 2)
    
13.             brr(d(x), j) = brr(d(x), j) + arr(i, j)
    
14.         Next
    
15.     Next
    
16.    
    
17.     Cells(i + 1, 1).Resize(1, UBound(arr, 2)) = Application.Index(arr, 1)
    
18.     Cells(i + 2, 1).Resize(k, UBound(arr, 2)) = brr
    
19. End Sub
    

复制代码

342662071

grf1973 发表于 2016-12-20 14:53

非常好用，我稍做了修改，能否帮忙写个
横向的求和，在Ubondu（Arr，2）+1的位置怎加抬头Sum，
然后接下来每个单元格为当前横排所有单元格数据的总和，谢谢大神！~

grf1973

请看附件。

342662071

grf1973 发表于 2016-12-20 14:53

谢谢啊，大神，我后面会自己做一些可视化和改善，到时候遇到问题希望还能帮帮忙，Thanks。