如何將兩個(gè)工作表合并到一個(gè)Excel中
方法一:在同一文件夾下放置需要合并的表格- 首先,將需要合并的表格放在同一個(gè)文件夾下。不同格式的表格也可以被合并。 方法二:新建一個(gè)空白的Excel表格- 在文件夾下新建一個(gè)空白的Excel表格。
方法一:在同一文件夾下放置需要合并的表格
- 首先,將需要合并的表格放在同一個(gè)文件夾下。不同格式的表格也可以被合并。
方法二:新建一個(gè)空白的Excel表格
- 在文件夾下新建一個(gè)空白的Excel表格。
方法三:合并兩個(gè)工作表
1. 打開新建的空白Excel表格,右鍵單擊表格下方的“Sheet1”。
2. 在彈出的選項(xiàng)對話框中選擇點(diǎn)擊“查看代碼”。
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 "個(gè)工作薄下的全部工作表。如下:" Chr(13) WbN, vbInformation, "提示"
End Sub
```
4. 點(diǎn)擊運(yùn)行菜單,選擇“運(yùn)行子過程/用戶窗體 F5”,或者直接點(diǎn)擊運(yùn)行按鈕或使用快捷鍵F5。
5. 等待合并完成,會(huì)有提示信息顯示合并了多少個(gè)工作薄下的全部工作表。
通過以上幾種方法,您就可以將兩個(gè)工作表合并到一個(gè)Excel中了。