订单合并汇总表格模板

[原创]商品工作人员必备技能（第一节）EXCEL多表合并或订单汇总日常工作中经常遇到N个相同文件的内容要做汇总，或者每次订货会结束后，都会有很多订单被导成EXCEL文件，我们要汇总订单就很难，以前都是一个一个复制粘贴，效率低而且很容易出错，下面介绍一下用VBA语句合并多个表格的操作。

第一步：新建一个文件夹，将所有订单复制到这个文件夹里。

第二步：在文件夹里面新建一个excel文件并打开第三步：在打开的excel文件中，在工作簿标签上右键单击，在弹出的菜单中选中，查看代码。

第四步：将汇总的VB语句粘贴到VB编辑器内，然后点击绿色按钮或者F5执行语句。

第五步：语句执行结束后会有提示，单击确定就可以了。

第六步：删除VB语句，并关闭VB编辑器。

第七步：按照需要修改复制到文件内的数据格式，达到自己的要求或者根据需要进行数据处理。

最后分享汇总语句如下：一、多表合并订单合并只复制文档内容Sub Macro1()Dim MyPath$, MyName$, lc&, m&, sh As WorksheetSet sh = ActiveSheetMyPath = ThisWorkbook.Path & "\"MyName = Dir(MyPath & "*.xls")Application.ScreenUpdating = FalseedRange.ClearDo While MyName <> ""If MyName <> Thenm = m + 1With GetObject(MyPath & MyName)With .Sheets(1)If m = 1 Then.UsedRange.Copy sh.Cells(1, 1)Else.UsedRange.Copy sh.Cells(65536, 1).End(xlUp).Offset(1)' .UsedRange.Offset(4).Copy sh.Cells(65536,1).End(xlUp).Offset(1)'如果后面的不要表头用这一句End IfEnd With.Close FalseEnd WithEnd IfMyName = DirLoopApplication.ScreenUpdating = TrueMsgBox "完毕"End Sub二、多表合并订单汇总，会在表格内显示文件名Sub Macro1()Dim MyPath$, MyName$, lc&, m&, sh As WorksheetSet sh = ActiveSheetMyPath = ThisWorkbook.Path & "\"MyName = Dir(MyPath & "*.xls")Application.ScreenUpdating = FalseedRange.ClearDo While MyName <> ""If MyName <> Thenm = m + 1With GetObject(MyPath & MyName)With .Sheets(1)If m = 1 Then.UsedRange.Copy sh.Cells(1, 2)sh.Cells(1, 2) = MyNameElsesh.Cells(sh.Cells(65536, 2).End(xlUp).Row + 1, 1) = MyName.UsedRange.Copy sh.Cells(65536, 2).End(xlUp).Offset(1)' .UsedRange.Offset(4).Copy sh.Cells(65536,1).End(xlUp).Offset(1)'如果后面的不要表头用这一句 End IfEnd With.Close FalseEnd WithEnd IfMyName = DirLoopApplication.ScreenUpdating = TrueMsgBox "完毕"End Sub。

张
√
√
√
合 并 订 单 总 表 明 细
★ 本订单共人一起合并，共张合并订单，此为第
★ 请注意： 1.为保障付款人权限，凡以信用卡付款者均必须同时为收货人 2.若您未填写订货日期，则以订单收到日
联络人：会员编号或身份证字号：姓名：联络电话：
元（请向服务人员洽询）＝整份合并订单总计: (本订单金额请自行加总，若未填写或计算错误，均以公司计算机输入的加总金额为准. 运费金额将由客服人员确认后告知)
上述银行卡/信用卡乃本人合法申请并使用，不存在包括不限于伪造、变造、恶意透支、洗钱在内之任何违法、犯罪情形；否则本人自行承担法律责任因本人银行卡/信用卡帐户额度不足或信用卡失效导致美乐家无法按时足额扣款的，美乐家有权取消本合并订单并拒绝发货；非因法定或双方书面约定本人使用银行卡/信用卡付款的，若因退货成功而产生退款的，需在限定时间内提供相关文件材料，经银行及美乐家审核确认后（美乐家有权扣除退货还至本人银行卡/信用卡账户；
＊＊以上总金额：元＋运费：
月日
元
订货日期：收到日为准
24 小时传真专线：021-3387-0111
请于传真 4 小时后,致电 021-2607-4000 确认。

（必填）
告知)
罪情形；否则本人自行承担法律责任，与美乐家无关；
拒绝发货；非因法定或双方书面约定之情形，本人不得向结算银行提出拒付申请；
家审核确认后（美乐家有权扣除退货运费及相关手续费），在最长不超过45个工作日内将退款无息退。

订单合并汇总表美文欣赏1、走过春的田野，趟过夏的激流，来到秋天就是安静祥和的世界。

秋天，虽没有玫瑰的芳香，却有秋菊的淡雅，没有繁花似锦，却有硕果累累。

秋天，没有夏日的激情，却有浪漫的温情，没有春的奔放，却有收获的喜悦。

清风落叶舞秋韵，枝头硕果醉秋容。

秋天是甘美的酒，秋天是壮丽的诗，秋天是动人的歌。

2、人的一生就是一个储蓄的过程，在奋斗的时候储存了希望；在耕耘的时候储存了一粒种子；在旅行的时候储存了风景；在微笑的时候储存了快乐。

聪明的人善于储蓄，在漫长而短暂的人生旅途中，学会储蓄每一个闪光的瞬间，然后用它们酿成一杯美好的回忆，在四季的变幻与交替之间，散发浓香，珍藏一生！3、春天来了，我要把心灵放回萦绕柔肠的远方。

让心灵长出北归大雁的翅膀，乘着吹动彩云的熏风，捧着湿润江南的霡霂，唱着荡漾晨舟的渔歌，沾着充盈夜窗的芬芳，回到久别的家乡。

我翻开解冻的泥土，挖出埋藏在这里的梦，让她沐浴灿烂的阳光，期待她慢慢长出枝蔓，结下向往已久的真爱的果实。

4、好好享受生活吧，每个人都是幸福的。

人生山一程，水一程，轻握一份懂得，将牵挂折叠，将幸福尽收，带着明媚，温暖前行，只要心是温润的，再遥远的路也会走的安然，回眸处，愿阳光时时明媚，愿生活处处晴好。

5、漂然月色，时光随风远逝，悄然又到雨季，花，依旧美；心，依旧静。

月的柔情，夜懂；心的清澈，雨懂；你的深情，我懂。

人生没有绝美，曾经习惯漂浮的你我，曾几何时，向往一种平实的安定，风雨共度，淡然在心，凡尘远路，彼此守护着心的旅程。

沧桑不是自然，而是经历；幸福不是状态，而是感受。

6、疏疏篱落，酒意消，惆怅多。

阑珊灯火，映照旧阁。

红粉朱唇，腔板欲与谁歌？画脸粉色，凝眸着世间因果；未央歌舞，轮回着缘起缘落。

舞袖舒广青衣薄，何似院落寂寞。

风起，谁人轻叩我柴扉小门，执我之手，听我戏说？7、经年，未染流殇漠漠清殇。

流年为祭。

琴瑟曲中倦红妆，霓裳舞中残娇靥。

冗长红尘中，一曲浅吟轻诵描绘半世薄凉寂寞，清殇如水。