在日常工作中，我們經(jīng)常需要處理多個Excel文件，而有時又需要將這些文件合并成一個工作簿以便于管理和分析數(shù)據(jù)。本文將介紹如何通過Excel宏命令實現(xiàn)這一操作，同時保留原有數(shù)據(jù)，并建立多個Sheet頁來

在日常工作中，我們經(jīng)常需要處理多個Excel文件，而有時又需要將這些文件合并成一個工作簿以便于管理和分析數(shù)據(jù)。本文將介紹如何通過Excel宏命令實現(xiàn)這一操作，同時保留原有數(shù)據(jù)，并建立多個Sheet頁來整理信息。

準(zhǔn)備工作

首先，將需要合并的多個Excel文件放置在同一個文件夾中，然后在該文件夾中新建一個空白的Excel文件。接著，打開這個新建的Excel文件，在鍵盤上按下“Alt F11”組合鍵，打開宏編輯器，選擇“視圖”菜單下的“代碼窗口”。

編寫宏代碼

在代碼窗口中，將以下代碼復(fù)制粘貼進去：

```vba

Sub sheets2one()

'Define dialog variables

Dim cc As FileDialog

Set cc (msoFileDialogFilePicker)

Dim newwork As Workbook

Set newwork

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 (vrtSelectedItem)

(1).Copy Before:(i)

(i).Name (, ".xls", "")

SaveChanges:False

i i 1

Next vrtSelectedItem

End If

End With

Set cc Nothing

End Sub

```

執(zhí)行合并操作

點擊菜單欄中的“運行”選項，再選擇“運行子過程/用戶窗體”。接著，在彈出的選擇對話框中，選擇要批量合并的Excel文件，點擊“確定”按鈕即可將它們合并為一個Excel工作簿。最后，點擊“確定”后，程序會自動執(zhí)行合并操作。

通過以上步驟，你可以輕松地利用Excel宏命令將多個Excel文件合并成一個工作簿，提高工作效率，便于數(shù)據(jù)管理和分析。希望本文對你有所幫助！