多个工作表固定区域数据的合并计算，挠头好几天了，老师来给帮个忙吧。

wlft2000 · 发表于 2020-2-12 18:08

将报价单以后的工作表（工作表数量及名称不固定）的M7:N35区域内容进行合并计算,计算结果输出到用料汇总工作表，附件里的重量表是作为重量计算的引用数据。还请老师给帮忙做个程序，自己弄了好几天没找到合适的，用合并计算功能挨个选数据区域太麻烦了，有时候一两百个工作表。

taller · 发表于 2020-2-13 06:44

需要什么结果，什么格式，问题不说清楚，大家没法帮你

3190496160 · 发表于 2020-2-13 12:58

做个汇总表的样式出来，并模拟几行数据，方便理解，不然，别人不是做你的工作的，没法理解你需要如何汇总的

wlft2000 · 发表于 2020-2-13 18:16

taller 发表于 2020-2-13 06:44
需要什么结果，什么格式，问题不说清楚，大家没法帮你

你好老师汇总成这样就行，有这个数据我自己再整理一下就行，这是我用数据合并做了前三个表格的结果。

wlft2000 · 发表于 2020-2-13 18:18

3190496160 发表于 2020-2-13 12:58
做个汇总表的样式出来，并模拟几行数据，方便理解，不然，别人不是做你的工作的，没法理解你需要如何汇总的

嗯嗯，做了个样子您给看看。

一指禅62 · 发表于 2020-2-14 09:03

Sub 用料汇总()
Dim Sh As Worksheet, d As Object
Dim arr, i%, m, S
On Error Resume Next
Set d = CreateObject("Scripting.Dictionary")
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name <> "报价单" And Sh.Name <> "用料汇总" Then
m = Sh.Range("M2").Value
arr = Sh.Range("A5").CurrentRegion
For i = 3 To UBound(arr)
If Trim(arr(i, 7)) <> "" Then
S = (arr(i, 8)) * Val(arr(i, 9)) * m
d(Trim(arr(i, 7))) = d(Trim(arr(i, 7))) + S
End If
Next
End If
Next
With Sheet27
.Range("A3:B10000").Clear
.Range("A3").Resize(d.Count, 2) = WorksheetFunction.Transpose(Array(d.keys, d.items))
End With
End Sub

复制代码

一指禅62 · 发表于 2020-2-14 09:09

各表的 M6:Q35 是辅助区域，代码舍弃了该辅助区域（建议清除）

报价及用料汇总.zip (297.17 KB, 下载次数: 8)

wlft2000 · 发表于 2020-2-15 12:24

一指禅62 发表于 2020-2-14 09:09
各表的 M6:Q35 是辅助区域，代码舍弃了该辅助区域（建议清除）

十分感谢，这样省事多了，非常好使。

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

[求助] 多个工作表固定区域数据的合并计算，挠头好几天了，老师来给帮个忙吧。