今天小風給大家收集了一些把多個excel表格合并到一張表格，怎樣將多個excel表格合并到一個excel表格中方面的信息來分享給大家，如果大家感興趣的話就接著看下面得文章吧

1、有很多張excel，而且excel表里面的公式基本一樣，那么是否可以合并在一個excel頁面呢？其實利用excel表的宏計算就可以實現(xiàn)。

2、下面給大家分享如何實現(xiàn)這個功能。

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。

本文到此結(jié)束，希望對大家有所幫助。