如何將兩個工作表合并到一個Excel中
方法一:在同一文件夾下放置需要合并的表格- 首先,將需要合并的表格放在同一個文件夾下。不同格式的表格也可以被合并。 方法二:新建一個空白的Excel表格- 在文件夾下新建一個空白的Excel表格。
方法一:在同一文件夾下放置需要合并的表格
- 首先,將需要合并的表格放在同一個文件夾下。不同格式的表格也可以被合并。
方法二:新建一個空白的Excel表格
- 在文件夾下新建一個空白的Excel表格。
方法三:合并兩個工作表
1. 打開新建的空白Excel表格,右鍵單擊表格下方的“Sheet1”。
2. 在彈出的選項對話框中選擇點擊“查看代碼”。
3. 復(fù)制以下代碼粘貼到代碼框中:
```VBA
Sub 合并當(dāng)前目錄下所有工作簿的全部工作表()
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中了。