[原创]商品工作人员必备技能(第一节)EXCEL多表合并或订单汇总

[原创]商品工作人员必备技能（第一节）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 & "*.xls")
Application.ScreenUpdating = False
edRange.Clear
Do While MyName <> ""
If MyName <> Then
m = m + 1
With 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 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 & "*.xls")
Application.ScreenUpdating = False
edRange.Clear
Do While MyName <> ""
If MyName <> Then
m = m + 1
With GetObject(MyPath & MyName)
With .Sheets(1)
If m = 1 Then
.UsedRange.Copy sh.Cells(1, 2)
sh.Cells(1, 2) = MyName
Else
sh.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 If
End With
.Close False
End With
End If
MyName = Dir
Loop
Application.ScreenUpdating = True
MsgBox "完毕"
End Sub。