把EXCEL中的N个子表按顺序汇总到一张总表中

把EXCEL中的N个子表按顺序汇总到一张总表中

Sub 工作簿合并()
For Each st In Worksheets
If st.Name <> ActiveSheet.Name Then st.UsedRange.Offset(1, 0).Copy [a65536].End(xlUp).Offset(1, 0)
Next
End Sub

按ALT+F11，在左边选择汇总表，把代码粘贴进去，然后按F5运行，右上角关闭。

复制 然后选择性粘贴 不带格式追问我们公司有300多个经销商，用复制粘贴要弄300多次，太费时间了。

你把各子表放在一个工作表中，如sheet1中，汇总表放在Sheet2中，然后在汇总表输入日期和型号，这样就可以在汇总表的C2单元格用公式：
=sumproduct((sheet1!A:A=A2)*(sheet1!B:B=B2)*B:B)求数量
=sumproduct((sheet1!A:A=A2)*(sheet1!B:B=B2)*C:C)求数量
=sumproduct((sheet1!A:A=A2)*(sheet1!B:B=B2)*C:C)/=sumproduct((sheet1!A:A=A2)*(sheet1!B:B=B2)*B:B)求加权平均单价