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

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

準(zhǔn)備工作

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

編寫宏代碼

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

```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í)行合并操作

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

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