怎樣合並excel工作表

Ⅰ 如何將excel裡面全部工作表合並在一起

方法/步驟

我們需要把多個excel表都放在同一個文件夾裡面，並在這個文件夾裡面新建一個excel

用microsoft excel打開新建的excel表，並右鍵單擊sheet1，找到「查看代碼」，單擊進去。進去之後就看到了宏計算界面。

然後我們把下面這些宏計算的代碼復制進去，然後找到工具欄上面的「運行」下的「運行子過程/用戶窗體」，代碼如下，

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

運行之後，等待10秒針左右，等運行完畢，就是合並完成之後，會有提示，點確定就可以了。查看合並後的數據，有5000多行，就是同一個文件夾裡面17個excel表數據合並後的結果。效果如圖所示。

Ⅱ 怎麼合並工作表excel

將需要的sheet移動復制到同一個表格

Ⅲ excel怎麼把多個工作表合並成一個

以WPS 2019版本為例：

關於excel怎麼把多個工作表合並成一個，您可使用WPS參考下述步驟完成操作：

1、打開「表格（Excel）」文檔；

2、點擊「數據-合並表格-多個工作表合並成一個工作表」；

提示：在設置合並工作表時也可添加其他「表格（Excel）」文檔來選擇其他文檔的工作表來合並。

Ⅳ 如何把多個excel文件合並成多個工作表

新建一個文件夾

將要合並的表格放到裡面

新建一個表格

用excel打開

右擊Sheet1

選擇查看代碼
PS：excel有著一項，WPS沒有

將下列代碼復制到文本框中：
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

點擊運行

一段時間（取決於表格的大小和多少）後，合並完成了

Ⅳ 怎麼把excel多個工作表合並到一個工作表

將其他excel表格中的數據全部復制到當前excel表格可以實現excel工作表合並功能。

所需工具和原料：
1.一台搭載Windows系統的筆記本電腦。

2.電腦軟體Excel 2010。

3.若干張excel表格(至少兩張，包含數據)。

合並方法：

1.Excel 2010打開兩張excel表格，以垂直並排方式顯示。