Excel是我們最常用的數(shù)據(jù)處理軟件 ， 而在我們使用Excel時 ， 常常會處理同一類的數(shù)據(jù) ， 例如 ， 我們制作月度報表 ， 那么在年末時我們共積累了1至12月的月度報表 ， 這時我們的Excel的文檔將多達(dá)12個 ， 實在不利于我們的保存/分析/使用 ， 那么我們?nèi)绾螌⒍鄠€Excel文件合并成一個文檔 ， 并且在保留所有的Excel原數(shù)據(jù)基礎(chǔ)上 ， 做到所有的文檔完全獨立呢 ， 其實我們在Excel中能夠通過宏命令建立多個Sheet頁來實現(xiàn) ， 還不知道如何操作用戶趕緊來了解一下吧！
方步/驟法1、首先 ， 我們新建一個文件夾 ， 將我們將所有需要合并的“Excel文件”放入其中 ， 并根據(jù)自己的需要對其進行排序 ， 然后再此文件夾中新建一個Excel文件（空白Excel文檔） ， 如下圖所示 。
2、接著 ， 我們打開這個新建的Excel文檔 ， 進入界面后 ， 我們通過快捷組合鍵“AltF11”來打開“宏” 。
2、然后我們在菜單欄中選擇“視圖” ， 然后在下拉菜單中點擊“代碼窗口” 。
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 = i1
Next vrtSelectedItem
End If
End With
Set cc = Nothing
End Sub
4、然后我們點擊操作菜單中的“運行”選項（具體如下圖所示） ， 即可運行以上的宏命令 。
5、然后彈出瀏覽窗口 ， 我們在文件夾中選擇我們所需要合并的所有Excel文件 ， 然后點擊“確認(rèn)”按鈕 。
6、等到宏命令合并結(jié)束后 ， ， 將自動生成一個工作簿 ， 此時用戶即可在下方的Sheet頁中查看到相應(yīng)的Excel文件 ， 在需要切換文檔時只需要直接選擇即可 ， 如下所示：
7、當(dāng)用戶需要保存時 ， 只需要點擊文件 ， 然后選擇“另存為”即可完成 。
【多個excel文件合并成一個excel表的方法】上述的方法就是多個Excel文件合并為同一文檔 ， 且保留所有原數(shù)據(jù)的方法 ， 其實就是通過建立多個Sheet頁來實現(xiàn)保存為同一文檔 ， 同時達(dá)到互不干擾 。
推薦閱讀
- Excel關(guān)閉隱私問題警告窗口的方法
- wps文件怎么傳輸二維碼
- Excel表格刪除全部圖片的方法
- 酷狗mv文件位置
- CAD快速看圖怎么提取表格到excel？CAD快速看圖提取表格到excel流程一覽
- excel2007精確查找單元格相同數(shù)據(jù)的方法
- 千牛工作臺怎么刪除多個黑名單？多個黑名單刪除方法詳解
- excel求和操作的方法
- 迅捷pdf編輯器怎么給文件涂鴉？給文件涂鴉方法一覽
- excel合并單元格的方法