如何快速对几百个数据表进行汇总统计？谢谢！

kangkangtianxia

本人工作关系，需要对几百个数据表进行汇总统计，每个工作簿的表格与汇总表格的格式有一点点出入。
如上表：此处为汇总表，其中B列数据为固定的，需对多个工作簿的数据进行汇总统计。而在单独的数据工作簿表格中，关于“废物类别及名称”列（对应为C列）的数据有可能跟汇总表对应列的一样多（10项），也可能只有其中几项。
麻烦各位高人指点一下，用vba快速进行统计。。本人不胜感激！！

grf1973

1. Sub tj()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     [c5:L14].ClearContents
   
4.     arr = Range("a5:l14")
   
5.     For i = 1 To UBound(arr)
   
6.         d(arr(i, 2)) = i
   
7.     Next
   
8.    
   
9.     Application.ScreenUpdating = False
   
10.     Dim Filename, wb As Workbook, Sht As Worksheet
    
11.     Filename = Dir(ThisWorkbook.Path & "\*.xls")
    
12.     Do While Filename <> ""
    
13.         If Filename <> ThisWorkbook.Name Then
    
14.             fn = ThisWorkbook.Path & "" & Filename
    
15.             Set wb = Workbooks.Open(fn)
    
16.             brr = wb.Worksheets(1).[a1].CurrentRegion
    
17.             For k = 5 To UBound(brr)
    
18.                 i = d(brr(k, 3))
    
19.                 If i > 0 Then
    
20.                     For j = 1 To 5
    
21.                         arr(i, j + 2) = arr(i, j + 2) + brr(k, j + 6)
    
22.                     Next
    
23.                     arr(i, 8) = arr(i, 7)
    
24.                     For j = 1 To 4
    
25.                         arr(i, j + 8) = arr(i, j + 8) + brr(k, j + 13)
    
26.                     Next
    
27.                 End If
    
28.             Next
    
29.             wb.Close False
    
30.         End If
    
31.         Filename = Dir
    
32.     Loop
    
33.     Range("a5:l14") = arr
    
34.     Application.ScreenUpdating = True
    
35. End Sub
    

复制代码

kangkangtianxia

grf1973 发表于 2018-8-8 10:17

非常感谢！谢谢！有个小小的请求，能否加个备注？？谢谢

kangkangtianxia

grf1973 发表于 2018-8-8 10:17

大师，非常感谢你的解答！
现在有个新问题，就是在某一行中出现带单位（中文字）的情况，如何也可以统计算上呢？？谢谢。。期待你的解答

grf1973

把22行的 brr(k, j + 6)改成vak(brr(k, j + 6))，25行的也照此处理。

grf1973

这个网站老是出问题，都不怎么来了。

shenjr@163.com

请阅读：c.raqsoft.com.cn/article/1537345021751?r=sjr
关于excel的各种数据处理问题均可简单几行代码解决
QQ联系：184305475

kangkangtianxia

grf1973 发表于 2018-9-21 11:04
把22行的 brr(k, j + 6)改成vak(brr(k, j + 6))，25行的也照此处理。

感谢答复、、谢谢