把多个excel表格合并到一张表格（怎样将多个excel表格合并到一个excel表格中）

今天小风给大家收集了一些把多个excel表格合并到一张表格，怎样将多个excel表格合并到一个excel表格中方面的信息来分享给大家，如果大家感兴趣的话就接着看下面得文章吧

1、有很多张excel，而且excel表里面的公式基本一样，那么是否可以合并在一个excel页面呢？其实利用excel表的宏计算就可以实现。

2、下面给大家分享如何实现这个功能。

3、材料/工具Excel任意版本方法/步骤

首先把要合并的excel表都放在同一个文件夹里面

2、然后这个文件夹里面新建一个excel

3、打开新建的excel表，并按快捷键“alt”+“F”

4、进入宏界面

5、选择刚才新建Excel的名字，进入输入界面

6、然后把下面这些宏计算的代码复制进去

代码如下：Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongDim BOX As StringApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath &"\"&"*.xls")AWbName = ActiveWorkbook.NameNum = 0Do While MyName <>""If MyName <> AWbName ThenSet Wb = Workbooks.Open(MyPath &"\"& MyName)Num = Num + With Workbooks().ActiveSheet.Cells(.Range("B6、5、5、3、6、").End(xlUp).Row + 2、, ) = Left(MyName, Len(MyName) - 4、)For G = To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("B6、5、5、3、6、").End(xlUp).Row + , )NextWbN = WbN & Chr(3、) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("B").SelectApplication.ScreenUpdating = TrueMsgBox"共合并了"& Num &"个工作薄下的全部工作表。

4、如下："& Chr(3、) & WbN, vbInformation,"提示"End Sub。

本文到此结束，希望对大家有所帮助。