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

学良 · 发表于 2022-12-22 20:26

少如发表于 2022-12-22 18:09
请教老师：
只汇总一张表的数据，代码该如何修改？效果如现在这样。
谢谢！

请参考：

汇总数据代码.zip (40.12 KB, 下载次数: 27)

alonzhang76 · 发表于 2022-12-26 15:19

学良发表于 2022-12-22 20:26
请参考：

老师的代码简单而高效，真心佩服，若是像附件这样汇总客户对应的多列数据又该怎样写呢？

少如 · 发表于 2022-12-27 08:16

alonzhang76 发表于 2022-12-26 15:19
老师的代码简单而高效，真心佩服，若是像附件这样汇总客户对应的多列数据又该怎样写呢？

帮你顶一下，让路过的老师帮帮忙给作一下。
谢谢出手相助的老师！！！

mmwwdd · 发表于 2022-12-27 08:53

mmwwdd · 发表于 2022-12-27 08:54

是这意思吗?就是简单的理解

alonzhang76 · 发表于 2022-12-27 13:58

mmwwdd 发表于 2022-12-27 08:54
是这意思吗?就是简单的理解

结果的确是我想要的，真心感谢，不过有两点：1）需要将同一公司名项下再汇总，也就是去重单位名； 2）因为我还没学过SQL，实际工作的表格里远不止这四列数据，我就不知道怎么修改源代码使其对应哪些列了

mmwwdd · 发表于 2022-12-27 14:32

alonzhang76 发表于 2022-12-27 13:58
结果的确是我想要的，真心感谢，不过有两点：1）需要将同一公司名项下再汇总，也就是去重单位名； 2）因 ...

汇总用数据透视表就行了

都市放牧人 · 发表于 2023-1-1 14:13

少如发表于 2022-12-22 18:09
请教老师：
只汇总一张表的数据，代码该如何修改？效果如现在这样。
谢谢！

只汇总一张表就更简单了，导入PQ里，用分组依据分类汇总就行了。

汇总数据代码 (2).zip (32.54 KB, 下载次数: 6)

少如 · 发表于 2023-1-2 11:00

本帖最后由少如于 2023-1-2 11:05 编辑

都市放牧人发表于 2023-1-1 14:13
只汇总一张表就更简单了，导入PQ里，用分组依据分类汇总就行了。

老师给看看，这种情况该怎么写代码？
谢谢！

汇总数据代码求助.zip (38.72 KB, 下载次数: 13)

shiruiqiang · 发表于 2023-1-2 12:47

少如发表于 2023-1-2 11:00
老师给看看，这种情况该怎么写代码？
谢谢！

Sub text()
Dim arr, brr
Dim x
Dim dic
Set dic = CreateObject("scripting.dictionary")
arr = Sheets("数据源").[a1].CurrentRegion
ReDim brr(1 To UBound(arr), 1 To 5)
For x = 2 To UBound(arr)
If Not dic.exists(arr(x, 4)) Then
dic(arr(x, 4)) = dic.Count + 1
brr(dic(arr(x, 4)), 1) = arr(x, 4)
brr(dic(arr(x, 4)), 2) = Val(arr(x, 5))
brr(dic(arr(x, 4)), 5) = Val(arr(x, 18))
Else
brr(dic(arr(x, 4)), 2) = brr(dic(arr(x, 4)), 2) + Val(arr(x, 5))
brr(dic(arr(x, 4)), 5) = brr(dic(arr(x, 4)), 5) + Val(arr(x, 18))
End If
Next

Sheets("汇总结果").UsedRange.ClearContents
Sheets("汇总结果").Range("a1:e1") = Array("供应商名称", "数量", , , "金额")
Sheets("汇总结果").[a2].Resize(dic.Count, 5) = brr
End Sub

		自动登录	找回密码
密码			免费注册

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

评分

评分

评分

评分