電腦在編輯Excel文件的時候會遇到大量的數據,比如客戶資料,項目資料,材料整合等等,數據多且雜亂。其實我們可以把多個Excel文件合并成一個文件,這樣方便閱讀和編輯。那么如何合并多個Excel文件合并成一個且保留原有數據?閱讀下文教程,我們一起來看下操作步驟吧。
1、將需合并的Excel文件放在同一個文件夾中,并這個文件中新建一個Excel文件;
2、打開新建的Excel文件,按 Alt + F11 鍵,打開宏,選擇視圖→代碼窗口;
3、將下面的代碼拷貝進去:01Sub sheets2one()02'定義對話框變量03Dim cc As FileDialog04Set cc = Application.FileDialog(msoFileDialogFilePicker)05Dim newwork As Workbook06Set newwork = Workbooks.Add07With cc08If .Show = -1 Then09Dim vrtSelectedItem As Variant10Dim i As Integer11i = 112For Each vrtSelectedItem In .SelectedItems13Dim tempwb As Workbook14Set tempwb = Workbooks.Open(vrtSelectedItem)15tempwb.Worksheets(1).Copy Before:=newwork.Worksheets(i)16newwork.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")17tempwb.Close SaveChanges:=False18i = i + 119Next vrtSelectedItem20End If21End With22Set cc = Nothing23End Sub復制代碼
4、點擊運行選項運行宏命令;
5、之后彈出選擇對話框,選擇要批量合并的Excel名,確定即可;
6、程序運行完畢后,會自動生成一個工作簿,工作簿內包含所有需合并的Excel文件,將工作簿另存為即可。
電腦把多個Excel文件合并成一個文件的方法分享到這里了,合并后的Excel文檔會獻出多個Sheet頁,我們可以很方便的切換。
?鄭重聲明:本文版權歸原作者所有,轉載文章僅為傳播更多信息之目的,如作者信息標記有誤,請第一時間聯系我們修改或刪除,多謝。
新聞熱點
疑難解答