如何将两个工作表合并到一个Excel中
方法一：在同一文件夹下放置需要合并的表格
- 首先，将需要合并的表格放在同一个文件夹下。不同格式的表格也可以被合并。
方法二：新建一个空白的Excel表格
- 在文件夹下新建一个空白的Excel表格。
方法三：合并两个工作表
1. 打开新建的空白Excel表格，右键单击表格下方的“Sheet1”。
2. 在弹出的选项对话框中选择点击“查看代码”。
3. 复制以下代码粘贴到代码框中：
```VBA
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long, Num As Long, BOX As String
False
MyPath
MyName Dir(MyPath "*.xls")
AWbName
Num 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb (MyPath MyName)
Num Num 1
With Workbooks(1).ActiveSheet.Cells(Range("B65536").End(xlUp).Row 2, 1)
.Value Left(MyName, Len(MyName) - 4)
For G 1 To
(G) .Cells(Range("B65536").End(xlUp).Row 1, 1)
Next
End With
WbN WbN Chr(13)
False
End If
MyName Dir
Loop
Range("B1").Select
True
MsgBox "共合并了" Num "个工作薄下的全部工作表。如下：" Chr(13) WbN, vbInformation, "提示"
End Sub
```
4. 点击运行菜单，选择“运行子过程/用户窗体 F5”，或者直接点击运行按钮或使用快捷键F5。
5. 等待合并完成，会有提示信息显示合并了多少个工作薄下的全部工作表。
通过以上几种方法，您就可以将两个工作表合并到一个Excel中了。
版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。
