如何合并多個(gè)excel表格，excel如何實(shí)現(xiàn)多表合并

來源：整理時(shí)間：2023-04-16 15:52:11 編輯：好學(xué)習(xí) 手機(jī)版

1，excel如何實(shí)現(xiàn)多表合并

如果全部表的項(xiàng)目名稱是相同的，那么把所有表按項(xiàng)目名稱排序后，用其中一個(gè)表做母表，然后把其他表的沒有的列復(fù)制過來就行了。如果各表的項(xiàng)目名稱不全相同，先要把所有項(xiàng)目名稱整理好后，集中到一個(gè)新表中，然后用VLOOKUP函數(shù)，或者INDEX+MATCH函數(shù)把其他列的數(shù)據(jù)提取過新表，再復(fù)制，選擇性粘貼，數(shù)值。

excel如何實(shí)現(xiàn)多表合并

2，如何合并多個(gè)excel文件

合并方法如下：1.需要把多個(gè)excel表都放在同一個(gè)文件夾里面，并在這個(gè)文件夾里面新建一個(gè)excel。2.用microsoft excel打開新建的excel表，并右鍵單擊sheet1，找到“查看代碼”，單擊進(jìn)去。進(jìn)去之后就看到了宏計(jì)算界面。3.然后把下面這些宏計(jì)算的代碼復(fù)制進(jìn)去，然后找到工具欄上面的“運(yùn)行”下的“運(yù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 + 1With Workbooks(1).ActiveSheet.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "共合并了" & Num & "個(gè)工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"End Sub4.運(yùn)行之后，等待10秒針左右，等運(yùn)行完畢，就是合并完成之后，會有提示，點(diǎn)確定就可以了。查看合并后的數(shù)據(jù)，有5000多行，就是同一個(gè)文件夾里面17個(gè)excel表數(shù)據(jù)合并后的結(jié)果。

方法/步驟新建一個(gè)文件夾將要合并的表格放到里面新建一個(gè)表格用excel打開右擊sheet1選擇查看代碼ps：excel有著一項(xiàng)，wps沒有將下列代碼復(fù)制到文本框中：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 + 1with workbooks(1).activesheet.cells(.range("b65536").end(xlup).row + 2, 1) = left(myname, len(myname) - 4)for g = 1 to sheets.countwb.sheets(g).usedrange.copy .cells(.range("b65536").end(xlup).row + 1, 1)nextwbn = wbn & chr(13) & wb.namewb.close falseend withend ifmyname = dirlooprange("b1").selectapplication.screenupdating = truemsgbox "共合并了" & num & "個(gè)工作薄下的全部工作表。如下：" & chr(13) & wbn, vbinformation, "提示"end sub點(diǎn)擊運(yùn)行9一段時(shí)間（取決于表格的大小和多少）后，合并完成了

如何合并多個(gè)excel文件

3，怎么把多個(gè)excel表格合并成一個(gè)

怎么把多個(gè)excel表格合并成一個(gè)：1. 先選中要合并的單元格2.單擊右鍵選擇設(shè)置單元格格式3.在單元格格式里面點(diǎn)擊對齊然后去選擇合并單元格打上勾即可

方法/步驟我們需要把多個(gè)excel表都放在同一個(gè)文件夾里面，并在這個(gè)文件夾里面新建一個(gè)excel。如圖所示：用microsoft excel打開新建的excel表，并右鍵單擊sheet1，找到“查看代碼”，單擊進(jìn)去。進(jìn)去之后就看到了宏計(jì)算界面。如圖所示：然后我們把下面這些宏計(jì)算的代碼復(fù)制進(jìn)去，然后找到工具欄上面的“運(yùn)行”下的“運(yù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 + 1With Workbooks(1).ActiveSheet.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)For G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)NextWbN = WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName = DirLoopRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "共合并了" & Num & "個(gè)工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"End Sub4運(yùn)行之后，等待10秒針左右，等運(yùn)行完畢，就是合并完成之后，會有提示，點(diǎn)確定就可以了。查看合并后的數(shù)據(jù)，有5000多行，就是同一個(gè)文件夾里面17個(gè)excel表數(shù)據(jù)合并后的結(jié)果。

1、新建一個(gè)文件夾、將要合并的表格放到里面、新建一個(gè)表格、用excel打開、右擊sheet12、選擇查看代碼（ps：excel有著一項(xiàng)，wps沒有）3、將下列代碼復(fù)制到文本框中：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 + 1with workbooks(1).activesheet.cells(.range("b65536").end(xlup).row + 2, 1) = left(myname, len(myname) - 4)for g = 1 to sheets.countwb.sheets(g).usedrange.copy .cells(.range("b65536").end(xlup).row + 1, 1)nextwbn = wbn & chr(13) & wb.namewb.close falseend withend ifmyname = dirlooprange("b1").selectapplication.screenupdating = truemsgbox "共合并了" & num & "個(gè)工作薄下的全部工作表。如下：" & chr(13) & wbn, vbinformation, "提示"end sub4、點(diǎn)擊運(yùn)行、一段時(shí)間（取決于表格的大小和多少）后，合并完成了。

怎么把多個(gè)excel表格合并成一個(gè)