Excel是我們最常用的數(shù)據(jù)處理軟件，而在我們使用Excel時(shí)，常常會(huì)處理同一類的數(shù)據(jù)，例如，我們制作月度報(bào)表，那么在年末時(shí)我們共積累了1至12月的月度報(bào)表，這時(shí)我們的Excel的文檔將多達(dá)12個(gè)，實(shí)在不利于我們的保存/分析/使用，那么我們?nèi)绾螌⒍鄠€(gè)Excel文件合并成一個(gè)文檔，并且在保留所有的Excel原數(shù)據(jù)基礎(chǔ)上，做到所有的文檔完全獨(dú)立呢，其實(shí)我們?cè)贓xcel中能夠通過(guò)宏命令建立多個(gè)Sheet頁(yè)來(lái)實(shí)現(xiàn)，還不知道如何操作用戶趕緊來(lái)了解一下吧！

1、首先，我們新建一個(gè)文件夾，將我們將所有需要合并的“Excel文件”放入其中，并根據(jù)自己的需要對(duì)其進(jìn)行排序，然后再此文件夾中新建一個(gè)Excel文件（空白Excel文檔），如下圖所示。

2、接著，我們打開(kāi)這個(gè)新建的Excel文檔，進(jìn)入界面后，我們通過(guò)快捷組合鍵“Alt + F11”來(lái)打開(kāi)“宏”。

2、然后我們?cè)诓藛螜谥羞x擇“視圖”，然后在下拉菜單中點(diǎn)擊“代碼窗口”。

3、然后在代碼窗口中輸入以下的命令代碼：

Sub sheets2one()

’定義對(duì)話框變量

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、然后我們點(diǎn)擊操作菜單中的“運(yùn)行”選項(xiàng)（具體如下圖所示），即可運(yùn)行以上的宏命令。

5、然后彈出瀏覽窗口，我們?cè)谖募A中選擇我們所需要合并的所有Excel文件，然后點(diǎn)擊“確認(rèn)”按鈕。

6、等到宏命令合并結(jié)束后，，將自動(dòng)生成一個(gè)工作簿，此時(shí)用戶即可在下方的Sheet頁(yè)中查看到相應(yīng)的Excel文件，在需要切換文檔時(shí)只需要直接選擇即可，如下所示：

7、當(dāng)用戶需要保存時(shí)，只需要點(diǎn)擊文件，然后選擇“另存為”即可完成。

上述的方法就是多個(gè)Excel文件合并為同一文檔，且保留所有原數(shù)據(jù)的方法，其實(shí)就是通過(guò)建立多個(gè)Sheet頁(yè)來(lái)實(shí)現(xiàn)保存為同一文檔，同時(shí)達(dá)到互不干擾。