[已解决]多个文件汇总问题 （投票统计）

1005423860

请问 如何把一个文件夹的多个文件的数据汇总，相当于一个投票统计的功能，相同信息的就在汇总的表相加，不想同的依次排列。详情见附件

最佳答案

月排行榜 / 总排行榜

bajifeng

2016-10-9 19:33

>>>>>>>>>>>>>>>>>>>

跳转到最佳答案楼层

bajifeng

1. Sub b() 'bajifeng
   
2. Dim d, ar, br(), i%, j%, fn$, pth$
   
3. Set d = CreateObject("scripting.dictionary")
   
4. fn = Dir(ThisWorkbook.Path & "\*.xls?")
   
5. Do While fn <> ""
   
6.     If InStr(fn, "汇总") = 0 Then
   
7.         With Workbooks.Open(ThisWorkbook.Path & "" & fn)
   
8.             lr = .Sheets(1).[a65536].End(3).Row
   
9.             If lr > 2 Then ar = .Sheets(1).Range("a3:d" & lr) Else GoTo 100
   
10.             For i = 1 To UBound(ar)
    
11.                 s = ar(i, 1) & "," & ar(i, 2) & "," & ar(i, 3)
    
12.                 d(s) = d(s) + ar(i, 4)
    
13.             Next
    
14.             .Close False
    
15.         End With
    
16.     End If
    
17. 100:
    
18.     fn = Dir
    
19. Loop
    
20. ReDim br(1 To d.Count, 1 To 4)
    
21. For i = 1 To d.Count
    
22.     For j = 1 To 3
    
23.         br(i, j) = Split(d.keys()(i - 1), ",")(j - 1)
    
24.     Next
    
25.     br(i, 4) = d.items()(i - 1)
    
26. Next
    
27. [a3].Resize(d.Count, 4) = ""
    
28. [a3].Resize(d.Count, 4) = br
    
29. End Sub

复制代码

bajifeng

>>>>>>>>>>>>>>>>>>>