多个工作表分类汇总

ztyn

各位朋友，请帮帮忙看这个如何实现
1.附件工作簿中有多个工作表，从第3个表后面都是产品品种，每个品种需要用到各种原料，品种与品种间，原料名称有的相同，有的不同，但原料排序是没有规律的；
2.希望实现“101”工作表的E2往下的数值乘以“生产吨位”工作表的B2，“102”工作表的E2往下的数值乘以“生产吨位”工作表的B3，依次下去，最后将所有的数据按C列的原料名称分类汇总至“原料需求”工作表；


谢谢各位了！！！！！

varytina

Power query 方法供楼主参考，不知道是否符合楼主要求

ztyn

varytina 发表于 2019-12-18 11:16
Power query 方法供楼主参考，不知道是否符合楼主要求

谢谢你！但是提示外部数据失败C:\Users\Administrator\Desktop\321.png

varytina

ztyn 发表于 2019-12-18 14:43
谢谢你！但是提示外部数据失败

打开Excel 保存一下就可以了，目的是让A2单元格读取你一下文件在你电脑的路径

ztyn

varytina 发表于 2019-12-18 14:49
打开Excel 保存一下就可以了，目的是让A2单元格读取你一下文件在你电脑的路径

还是不行，是不是我的office2016不是完整版的原因呢？

varytina

ztyn 发表于 2019-12-18 14:59
还是不行，是不是我的office2016不是完整版的原因呢？

首先你的电脑得能用Power query 才可以

wbperfect

试试能否满足你的需求

1. Sub 合并表格()
   
2. 
   
3. Dim m As Integer
   
4. Dim n As Long
   
5. Dim o As Long
   
6. 
   
7. For m = 3 To Worksheets.Count
   
8.     n = Sheets(m).[a1048576].End(xlUp).Row - 1
   
9.     o = Sheets(2).[c1048576].End(xlUp).Row
   
10. 
    
11. With mycount
    
12.    mycount = Worksheets.Count - 1
    
13.    Sheets(m).Select
    
14.    Range("e2", "e" & n).Select
    
15.    Sheets("生产吨位").Select
    
16.    Range("B" & m - 1).Select
    
17.    Selection.Copy
    
18.    Sheets(m).Select
    
19.    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _
    
20.         SkipBlanks:=False, Transpose:=False
    
21. 
    
22.    Range("c2", "p" & n).Select
    
23.    Range("c" & n).Activate
    
24.    Selection.Copy
    
25.    Sheets(2).Select
    
26.    Range("c" & o + 1).Select
    
27.    ActiveSheet.Paste
    
28. End With
    
29. Next
    
30. 
    
31. MsgBox "工作簿里 " & mycount & " 张工作表已合并成功", vbInformation, "合并提示"
    
32. End Sub
    

复制代码

ztyn

varytina 发表于 2019-12-18 15:02
首先你的电脑得能用Power query 才可以

你好，能不能把汇总的列从D改为E？

ztyn

ztyn 发表于 2019-12-18 21:57
你好，能不能把汇总的列从D改为E？

你好，能不能再帮忙，把“原料需求”工作表里的数据能打印在1张纸上，并排几列那种，谢谢了！！