操作方法:
1、將需合并的Excel文件放在同一個文件夾中,并這個文件中新建一個Excel文件。
2、打開新建的Excel文件,按 Alt + F11 鍵,打開宏,選擇視圖→代碼窗口。
3、將下面的代碼拷貝進去:
Sub sheets2one()
‘定義對話框變量
Dim cc As FileDialog
Set cc = Application.FileDialog(msoFileDialogFilePicker)
Dim newwork As Workbook
Set newwork = Workbooks.Add
With cc
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:=newwork.Worksheets(i)
newwork.Worksheets(i).Name = VBA.Replace(tempwb.Name, “.xls”, “”)
tempwb.Close SaveChanges:=False
i = i + 1
Next vrtSelectedItem
End If
End With
Set cc = Nothing
End Sub
4、點擊運行選項運行宏命令。
5、之后彈出選擇對話框,選擇要批量合并的Excel名,確定即可。
6、程序運行完畢后,會自動生成一個工作簿,工作簿內(nèi)包含所有需合并的Excel文件,將工作簿另存為即可。
以上就是快速合并多個表格的方法了。合并后的Excel文檔會出現(xiàn)多個Sheet頁,合并之后我們只需要在一個excel界面內(nèi)即可完成不同表格之間的切換了。