单个工作薄Excel表的合并和表格含有多个工作薄Excel的合并

Excel作为办公的最基本有软件，当Excel有多个，想统一放到一个表里面的时候，我们一般采用只能一个一个的复制、粘贴；但是当有很多的表格时，相信就没那么容易了，不光浪费时间，还容易出错，来回的切换就把自己搞晕了，现在教大家用VBA的方法来快速实现。
**首先，需要把要复制的文件全部放到一个文件夹里面去**

第二，在此文件夹下新建一个Excel表格，即上图中的合并.xlsm,为可以执行宏文件的表格文件。合并表格这里给出两种方式：
**1.合并所有的EXCEL表中的Shee1表中的数据**

`Sub 合并所有的EXCEL表中的Shee1表中的数据()
Dim MyPath, MyName, AWbName As String
Dim Wb, AWB, HeB As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
Set AWB = ActiveWorkbook
AWbName = AWB.Name
MyPath = AWB.Path
MyName = Dir(MyPath & "\" & "*.xlsx")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb =