跨表提取不重复数据并按条件汇总（去重求和）

icenotcool · 发表于 2024-9-27 16:37

本帖最后由 icenotcool 于 2024-9-27 16:54 编辑

各位老师好，我有个工作簿是有系统导出数据，我模拟了“汇总”表，位置是固定的，根据"系统导出"sheet表A列"材料编码"来提取到“汇总”表对应的汇总，原有模块出错参数设置请帮忙修改，谢谢，已经上传附件，需要修改代码如下：

Sub Total()
Set d = CreateObject("scripting.dictionary")
Application.ScreenUpdating = False
arr = Sheets("系统导出").UsedRange
r = 0
For j = 1 To UBound(arr)
      If arr(j, 9) = "金额" Then
         If d.exists(arr(j, 9) & "") Then
            X = d(arr(j, 9) & "")
            arr(X, 6) = arr(X, 6) + arr(j, 6)
         Else
            r = r + 1
            d(arr(j, 9) & "") = r
            arr(r, 1) = arr(j, 1)
            arr(r, 2) = arr(j, 2)
            arr(r, 3) = arr(j, 3)
            arr(r, 4) = arr(j, 8)
            arr(r, 5) = arr(j, 7)
            arr(r, 6) = arr(j, 9)
         End If
      End If
Next j
If r > 0 Then [A1].Resize(r, 6) = arr
Application.ScreenUpdating = True
End Sub

lsc900707 · 发表于 2024-9-27 22:21

参考测试附件：

lizhipei78 · 发表于 2024-9-28 09:45

2楼版主的代码已经很好了呀，还有什么其它的要求吗？

icenotcool · 发表于 2024-9-28 11:05

lsc900707 发表于 2024-9-27 22:21
参考测试附件：

谢谢lsc900707老师的热心帮助

icenotcool · 发表于 2024-9-28 11:07

本帖最后由 icenotcool 于 2024-9-28 11:35 编辑

可以把这个汇总表再拓展一下汇总本工作簿其他带有“系统导出”的字眼的表格，表格格式一致，表格名称都是带有“系统导出”的字眼的表吗，比如系统导出202401、系统导出202402...几十个表，我模拟了三个被统计的报表，谢谢老师们的帮助了

lizhipei78 · 发表于 2024-9-28 19:34

lizhipei78 · 发表于 2024-9-28 19:40

字典汇总.rar (112.59 KB, 下载次数: 49)

请测试

icenotcool · 发表于 2024-9-28 21:08

lizhipei78 发表于 2024-9-28 19:40
请测试

非常感谢lizhipei78老师的解答，你的修改好清晰明了，受教了！

ykcbf1100 · 发表于 2024-9-29 10:32

参与一下，字典

附件供参考。。。

ykcbf1100 · 发表于 2024-9-29 10:33

参与一下。。。

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

[求助] 跨表提取不重复数据并按条件汇总（去重求和）

评分