将需要合并的Excel文件放在一个文件夹中，新建一个空白的Excel，然后按F11+Alt，打开 Visual Basic Editor。右击左侧栏中的 ThisWorkbook 并选择插入>模块。

将下列代码插入到Code window中，然后点击运行，就可以将多个Excel合并到一个Excel中的多个sheet中。

Sub MergeExcelFiles()
    Dim fnameList, fnameCurFile As Variant
    Dim countFiles, countSheets As Integer
    Dim wksCurSheet As Worksheet
    Dim wbkCurBook, wbkSrcBook As Workbook


 
    fnameList = Application.GetOpenFilename(FileFilter:="Microsoft Excel Workbooks (*.xls;*.xlsx;*.xlsm),*.xls;*.xlsx;*.xlsm", Title:="Choose Excel files to merge", MultiSelect:=True)
 
    If (vbBoolean <> VarType(fnameList)) Then
 
        If (UBound(fnameList) > 0) Then
            countFiles = 0
            countSheets = 0
 
            Application.ScreenUpdating = False
            Application.Calculation = xlCalculationManual
 
            Set wbkCurBook = ActiveWorkbook
 
            For Each fnameCurFile In fnameList
                countFiles = countFiles + 1
 
                Set wbkSrcBook = Workbooks.Open(Filename:=fnameCurFile)
 
                For Each wksCurSheet In wbkSrcBook.Sheets
                    countSheets = countSheets + 1
                    wksCurSheet.Copy after:=wbkCurBook.Sheets(wbkCurBook.Sheets.Count)
                Next
 
                wbkSrcBook.Close SaveChanges:=False
 
            Next
 
            Application.ScreenUpdating = True
            Application.Calculation = xlCalculationAutomatic
 
            MsgBox "Processed " & countFiles & " files" & vbCrLf & "Merged " & countSheets & " worksheets", Title:="Merge Excel files"
        End If
 
    Else
        MsgBox "No files selected", Title:="Merge Excel files"
    End If
End Sub

在此基础之上，创建一个新的excel，点击功能区中的“数据”>获取数据>自文件>从工作簿，选中上一步整合得到的Excel，选中文件夹而不是下面的任意一个sheet，点击编辑。

在功能区中点击添加列>自定义列，在公式中输入Table.PromoteHeaders([Data])
点击确定。

选中ABCname和刚才添加的列，然后删除其他列。

点击自定义框右侧的标志，加载数据然后点击确定。

最后点击功能区的关闭并上载，这样数据就已经导入到一个Excel的一个sheet当中了。

如果文章对你有用的话就给我点个赞吧~

1、随便打开一个Excel文件，点击上方数据选项卡，找到合并表格，然后点击多个工作簿

2、点击添加文件

3、找到并且选择要汇总的Excel文件

4、点击合并后，会自动产生一个新的工作簿，会发现所有的数据已经全部在下方的sheet中，此时直接点击保存（或者ctrl+s）即可。

5、此时，所有的Excel文件已经合并到了一个Excel文件中，他们分别对应当前文件下的sheet中，还可点击上方数据选项卡，找到合并表格，使用合并表格下其他选项功能将这些sheet中的数据放到一个sheet中。

一、确保需要合并的excel的表头一致

二、将需要合并的excel放在一个文件夹内

三、新建一个汇总的excel

四、数据-新建查询-从文件-从文件夹，选择新建的文件夹

五、选择文件夹之后，点击编辑-将content以外的列全部删除（点表头右键删除其他列）

六、添加列→自定义列→新列名取个你喜欢的名字，

自定义列公式Excel.Workbook([Content],true)

。

七、合并工作表

七、将合成的表格转化为Excel文件

左上角关闭并上载至，选择自己想要存的位置，完成