怎麼將多個excel檔案合併到一個excel的多個sheet

excel作為我們常用的辦公工具，如何將多個excel檔案合併到一個excel的多個sheet呢？下面就讓小編教大家一種常用的辦法。

材料/工具

電腦，excel

方法

將需要合併的工作表移動到一個新建資料夾中

開啟一個新建的exce工作表

點選工作表下方的sheet,d單擊滑鼠右鍵，點選“檢視程式碼”

在彈出的對話方塊中選擇“插入”，在下拉列表中選擇“模板”

在編輯欄中輸入以下程式碼

功能：把多個excel工作簿的第一個sheet工作表合併到一個excel工作簿的多個sheet工作表，新工作表的名稱等於原工作簿的名稱Sub Books2Sheets()    '定義對話方塊變數    Dim fd As FileDialog    Set fd = Application.FileDialog(msoFileDialogFilePicker)        '新建一個工作簿    Dim newwb As Workbook    Set newwb = Workbooks.Add        With fd        If .Show = -1 Then            '定義單個檔案變數            Dim vrtSelectedItem As Variant                        '定義迴圈變數            Dim i As Integer            i = 1                        '開始檔案檢索            For Each vrtSelectedItem In .SelectedItems                '開啟被合併工作簿                Dim tempwb As Workbook                Set tempwb = Workbooks.Open(vrtSelectedItem)                                '複製工作表                tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i)                                '把新工作簿的工作表名字改成被複制工作簿檔名，這兒應用於xls檔案，即Excel97-2003的檔案，如果是Excel2007，需要改成xlsx                newwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")                                '關閉被合併工作簿                tempwb.Close SaveChanges:=False                                i = i + 1            Next vrtSelectedItem        End If    End With        Set fd = NothingEnd Sub 

點選上方的“執行”，在下拉列表中選擇“執行子過程/使用者窗體”

選擇需要插入的檔案表，點選確定按鈕

這樣就可以將多個excel檔案合併到一個excel的多個sheet了

擴充套件閱讀，以下內容您可能還感興趣。

如何將一個excel裡面的多個sheet快速的合併到一個sheet裡面？

1、首先，提前把所有錄入的資料先輸入工作表zhidao中。

2、然後，新建一個sheet4工作表，目的是為了把前三個工作表的內容合併到表4中。

3、接著，在工作表4中右鍵，點選檢視程式碼。

4、在程式碼視窗中，輸入以下程式碼，然後點選工具欄上面的執行就會把三個工作表自動合成在工作表4中了。

5、完成後效果如圖所示，記住要在office軟體下操作才可以

如何合併多個excel檔案到一個excel檔案中且要放在不同的工作表內？

具體步驟如下：

操作方法

1、首先我們需要把所有需要合併的excel檔案放到一個資料夾中，並且新建一個空白的excel檔案。e69da5e6ba90e799bee5baa6e997aee7ad9431333363396465

2、然後開啟這個新建的excel檔案，右鍵點選sheet1選擇檢視程式碼。

3、然後會出現如下的介面。

4、然後把如下程式碼複製貼上到程式碼欄。

Sub 合併當前目錄下所有工作簿的全部工作表()

Dim MyPath, MyName, AWbName

Dim Wb As Workbook, WbN As String

Dim G As Long

Dim Num As Long

Dim BOX As String

Application.ScreenUpdating = False

MyPath = ActiveWorkbook.Path

MyName = Dir(MyPath & "" & "*.xls")

AWbName = ActiveWorkbook.Name

Num = 0

Do While MyName <> ""

If MyName <> AWbName Then

Set Wb = Workbooks.Open(MyPath & "" & MyName)

Num = Num + 1

With Workbooks(1).ActiveSheet

.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)

For G = 1 To Sheets.Count

Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)

Next

WbN = WbN & Chr(13) & Wb.Name

Wb.Close False

End With

End If

MyName = Dir

Loop

Range("B1").Select

Application.ScreenUpdating = True

MsgBox "共合併了" & Num & "個工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"

End Sub

5、接下來就是執行程式碼，點選執行→執行子過程/使用者窗體。

6、合併成功！合併完成後，各自的檔案會自動分成各自的excel檔案標籤。

如何將一個EXCEL中的多個SHEET中內容合併到一個SHEET中

將一個EXCEL中的多個SHEET中內容合併到一個SHEET中的具體操作步驟如下：

1、首先我們要有自己的excel資料，然後我們開啟電腦裡的microsoft excel載入要合併的資料。

2、看到這麼多資料頁要合併，如果是複製貼上的話，工作量就很大了。我們現在開zhidao始合併，首先要在最前頁新建一個回工作表。

3、在新建的sheet表中“右鍵”，找到“檢視程式碼”。

4、然後看到巨集計算介面。

5、看到巨集計算介面，我們就只需要把下面的程式碼複製進去。

6、做完上面的事情，然後只需要點選工具欄上面的“執行”下的“執行子過程/使用者窗體”就可以了，合併完之後會有提示。提示完成之後就可以把答巨集計算介面關閉了。

7、合併後的效果如下圖，我們看到的是合併之後有8000多行，就是205頁合併後的結果。

怎麼把多個excel工作表合併到一個excel表中

最低0.27元/天開通百度文庫會員，可在文庫檢視完整內容>

原發布者:深夜醉醒

多個表格合併到一個表格中把所需合併的Excel文件放在同一個資料夾中,再資料夾中新建一個Excel開啟Excel，按ALT+F11，或依次點工具，巨集，VB編輯器，彈出的編輯器中點插入模組，新彈出的空白視窗中輸入以下程式碼：SubCom()DimMyPath,MyName,AWbNameDimWbAsWorkbook,WbNAsStringDimGAsLongDimNumAsLongDimBOXAsStringApplication.ScreenUpdating=FalseMyPath=ActiveWorkbook.PathMyName=Dir(MyPath&&e69da5e6ba907a6431333433623736quot;\"&"*.xls")AWbName=ActiveWorkbook.NameNum=0DoWhileMyName>""IfMyName>AWbNameThenSetWb=Workbooks.Open(MyPath&"\"&MyName)Num=Num+1WithWorkbooks(1).ActiveSheet.Cells(.Range("A65536").End(xlUp).Row+2,1)=Left(MyName,Len(MyName)-4)ForG=1ToWb.Sheets.CountWb.Sheets(G).UsedRange.Copy.Cells(.Range("A65536").End(xlUp).Row+1,1)NextWbN=WbN&Chr(13)&Wb.NameWb.CloseFalseEndWithEndIfMyName=DirLoopRange("A1").SelectApplication.ScreenUpdating=TrueMsgBox"共合併了"&Num&"個工作薄下的全部工作表。如下："&Chr(13)&WbN,vbInformation,"提示"EndSub儲存---點執行鍵OK

excel怎麼把多個檔案合併成一個

1、首先，我們建立兩個工作表，並輸入不同內容來演zd示，我需要把這兩個工作表合併。我們同時開啟這兩個工作表。

2、為演示方便，我把表1的工作版簿標籤改成“工作1、2、3”的形式，右鍵點選其中一個標籤，選擇“選定全部工作表”，就能全選表1的內容。再次右鍵點選一下權，選擇“移動或複製工作表”。

3、出現移動或複製選項框，我們點選選擇將選定工作表移至“表2”，並選擇放置於“移至最後”，點選確定。

4、這樣，表1的內容都被合併到表2中了，效果如下圖所示。