[原创]商品工作人员必备技能(第一节)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& \ 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