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

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

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

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

首先把要合并的excel表都放在同一個(gè)文件夾里面

2、然后這個(gè)文件夾里面新建一個(gè)excel

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

4、進(jìn)入宏界面

5、選擇剛才新建Excel的名字，進(jìn)入輸入界面

6、然后把下面這些宏計(jì)算的代碼復(fù)制進(jìn)去

代碼如下：Sub 合并當(dāng)前目錄下所有工作簿的全部工作表()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 &"個(gè)工作薄下的全部工作表。

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

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

版權(quán)說明：本文由用戶上傳，如有侵權(quán)請(qǐng)聯(lián)系刪除！

標(biāo)簽：