[已解决]数据汇总--单位汇总问题？

tianhua123

数据汇总--单位汇总问题？求助哪位高手帮忙解决。

最佳答案

月排行榜 / 总排行榜

excel用户1116

2022-10-11 07:49

数据汇总 - 单位汇总.zip (23.29 KB, 下载次数: 25)

2022-10-11 07:49 上传

点击文件名下载附件

跳转到最佳答案楼层

tianhua123

这个是想将各单位1-12月数据进行总汇总，怎样处理？请教各位高手

哥儿-

1. Option Explicit
   
2. 
   
3. Sub 汇总()
   
4.     Dim vData, brr, i%, j%, vstr$, str$
   
5.     Dim d As Object, dic As Object
   
6.     Dim sh As Worksheet
   
7.     Set d = CreateObject("scripting.dictionary")
   
8.     Set dic = CreateObject("scripting.dictionary")
   
9.     Sheet1.[e4:dp100].ClearContents
   
10.     vData = Sheet1.[a2].CurrentRegion
    
11.     For i = 3 To UBound(vData)
    
12.         d(vData(i, 4)) = i
    
13.     Next
    
14.     For i = 5 To UBound(vData, 2)
    
15.         If vData(1, i) <> "" Then vstr = vData(1, i)
    
16.           dic(vstr & vData(2, i)) = i
    
17.        Next
    
18.     For Each sh In Sheets
    
19.         If sh.Name <> "汇总" Then
    
20.             brr = sh.UsedRange
    
21.             For i = 4 To UBound(brr)
    
22.                 For j = 5 To UBound(brr, 2)
    
23.                     If brr(2, j) <> "" Then str = brr(2, j)
    
24.                        vData(d(brr(i, 4)), dic(str & brr(3, j))) = brr(i, j)
    
25.                  Next
    
26.             Next
    
27.         End If
    
28.     Next
    
29.     [a2].Resize(UBound(vData), UBound(vData, 2)) = vData
    
30. End Sub
    

复制代码

改了一下，分厂表格里面姓名重名说明文字删除之后再测试

tianhua123

哥儿-：非常好，谢谢！
麻烦问下，如果，汇总的表头和人员不固定，怎样根据各单位的表头和人员合并生成汇总表格式，并汇总数据？

excel用户1116

数据汇总 - 单位汇总.zip (23.29 KB, 下载次数: 25)

2022-10-11 07:49 上传

点击文件名下载附件

kszcs

excel用户1116 发表于 2022-10-11 07:49

自动筛选人员及表头，高大上

kszcs

excel用户1116 发表于 2022-10-11 07:49

三行合并表头字段的能实现自动筛选吗