[原创]商品工作人员必备技能（第一节）EXCEL
多表合并或订单汇总
日常工作中经常遇到N个相同文件的内容要做汇总，或者每次订货会结束后，都会有很多订单被导成EXCEL文件，我们要汇总订单就很难，以前都是一个一个复制粘贴，效率低而且很容易出错，下面介绍一下用VBA语句合并多个表格的操作。
第一步：新建一个文件夹，将所有订单复制到这个文件夹里。
第二步：在文件夹里面新建一个excel文件 并打开
第三步：在打开的excel文件中，在工作簿标签上右键单击，在弹出的菜单中选中，查看代码。
第四步：将汇总的VB语句粘贴到VB编辑器内，然后点击绿色按钮或者F5执行语句。
第五步：语句执行结束后会有提示，单击确定就可以了。
第六步：删除VB语句，并关闭VB编辑器。
第七步：按照需要修改复制到文件内的数据格式，达到自己的要求或者根据需要进行数据处理。
最后分享汇总语句如下：
一、多表合并订单合并 只复制文档内容
Sub Macro1()
Dim MyPath$, MyName$, lc&, m&, sh As Worksheet Set sh = ActiveSheet
MyPath = ThisWorkbook.Path& \ MyName = Dir(MyPath& \ Application.ScreenUpdating = False sh.UsedRange.Clear Do While MyName<> \
If MyName<>ThisWorkbook.Name Then m = m + 1
With GetObject(MyPath&MyName) With .Sheets(1) If m = 1 Then
.UsedRange.Copysh.Cells(1, 1) Else
.UsedRange.Copysh.Cells(65536, 1).End(xlUp).Offset(1)
' .UsedRange.Offset(4).Copy sh.Cells(65536, 1).End(xlUp).Offset(1)'如果后面的不要表头用这一句
End If End With .Close False End With End If
MyName = Dir Loop
Application.ScreenUpdating = True MsgBox \完毕\End Sub
二、多表合并订单汇总，会在表格内显示文件名
Sub Macro1()
Dim MyPath$, MyName$, lc&, m&, sh As Worksheet Set sh = ActiveSheet
MyPath = ThisWorkbook.Path& \ MyName = Dir(MyPath& \ Application.ScreenUpdating = False sh.UsedRange.Clear Do While MyName<> \
If MyName<>ThisWorkbook.Name Then m = m + 1
With GetObject(MyPath&MyName) With .Sheets(1) If m = 1 Then
.UsedRange.Copysh.Cells(1, 2) sh.Cells(1, 2) = MyName Else
sh.Cells(sh.Cells(65536, 2).End(xlUp).Row + 1, 1) = MyName .UsedRange.Copysh.Cells(65536, 2).End(xlUp).Offset(1)
' .UsedRange.Offset(4).Copy sh.Cells(65536, 1).End(xlUp).Offset(1)'如果后面的不要表头用这一句 End If End With .Close False End With End If MyName = Dir
[原创]商品工作人员必备技能(第一节)EXCEL多表合并或订单汇总
