老师帮忙教一下汇总多工作表相同客户的合同额

alonzhang76

表1已经可以代码汇总，就不知道如何批量将多工作表（工作表名无规律，且有10多个工作表里的海量数据）按相同客户的数据进行汇总，请高手帮忙，多谢

笨鸟飞不高

2017年注册的会员，翻了一下你的历史求助贴，只有老师的解答，从没有送过花给老师！！

ykcbf1100

多表排重汇总

alonzhang76

笨鸟飞不高 发表于 2022-12-20 15:52
2017年注册的会员，翻了一下你的历史求助贴，只有老师的解答，从没有送过花给老师！！

谢谢提醒，之前没研究这些；的确很久之前注册了，但那时只是学习一下函数，最近才买了本书慢慢学起来，感谢各位老师的帮忙！

feilanga

1. Sub 多表排重汇总()
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Set d = CreateObject("Scripting.Dictionary") '创建字典对象
   
5.     For Each sh In Worksheets
   
6.         If sh.Name <> "汇总" Then
   
7.             m = sh.Cells(Rows.Count, "a").End(xlUp).Row
   
8.             If m > 1 Then
   
9.                 arr = sh.[a2].Resize(m - 1, 5)
   
10.                 For i = 1 To UBound(arr)
    
11.                     s = arr(i, 1) & "|" & arr(i, 2)
    
12.                     If s <> Empty Then
    
13.                         If Not d.Exists(s) Then
    
14.                             d(s) = arr(i, 5)
    
15.                         Else
    
16.                             d(s) = d(s) + arr(i, 5)
    
17.                         End If
    
18.                     End If
    
19.                 Next
    
20.             End If
    
21.         End If
    
22.     Next
    
23.     keys = d.keys
    
24.     items = d.items
    
25.     ReDim brr(1 To d.Count, 1 To 5)
    
26.     For i = 0 To d.Count - 1
    
27.         k = k + 1
    
28.         temp = Split(keys(i), "|")
    
29.         brr(k, 1) = temp(0)
    
30.         brr(k, 2) = temp(1)
    
31.         brr(k, 5) = items(i)
    
32.     Next
    
33.     With Sheets("汇总")
    
34.         .UsedRange.Offset(1) = ""
    
35.         .[a2].Resize(d.Count, 5) = brr
    
36.         .[a1].Resize(d.Count + 1, 5).Borders.LineStyle = 1
    
37.     End With
    
38.     Application.ScreenUpdating = True
    
39.     MsgBox "汇总完毕！"
    
40. End Sub

复制代码

ykcbf1100老师代码基础上改为通常写法。

iu950

汇总同一客户合同金额 附件供参考

都市放牧人

多表合并用PQ很轻松啊。

mmwwdd

mmwwdd

刚刚温习SQL,用它给你做一个

少如

都市放牧人 发表于 2022-12-21 14:37
多表合并用PQ很轻松啊。

请教老师：
       只汇总<数据源>一张表的数据，代码该如何修改？效果如现在这样。
谢谢！
汇总数据代码.zip (26.04 KB, 下载次数: 12)

2022-12-23 07:54 上传

点击文件名下载附件