當(dāng)需要將多個(gè)Excel文件合并在一起時(shí)，一個(gè)一個(gè)合并的方法太麻煩了。下面介紹一個(gè)快速方法： 步驟一：新建一個(gè)文件夾 首先，在桌面或任意其他盤符內(nèi)新建一個(gè)文件夾，將要合并的Excel文件放入該文件夾

當(dāng)需要將多個(gè)Excel文件合并在一起時(shí)，一個(gè)一個(gè)合并的方法太麻煩了。下面介紹一個(gè)快速方法：

步驟一：新建一個(gè)文件夾

首先，在桌面或任意其他盤符內(nèi)新建一個(gè)文件夾，將要合并的Excel文件放入該文件夾中。

步驟二：新建一個(gè)Excel文件

在剛才創(chuàng)建的文件夾中，新建一個(gè)Excel文檔。

步驟三：查看代碼

打開新建的Excel文件，在左下角的Sheet1表上點(diǎn)擊鼠標(biāo)右鍵，選擇"查看代碼"。

步驟四：復(fù)制代碼

進(jìn)入代碼視圖后，將以下代碼拷貝到代碼框中：

Sub 合并當(dāng)前目錄下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
MyPath %
MyName  Dir(MyPath amp; quot;quot; amp; quot;*.xlsquot;)
AWbName %
Num  0
Do While MyName lt;gt; quot;quot;
If MyName lt;gt; AWbName Then
Set Wb %
Num  Num   1
With Workbooks(1%
For G  1 To%
Next
WbN  WbN amp; Chr(13) amp;%
End With
End If
MyName  Dir
Loop
Range(quot;B1quot;%
MsgBox quot;共合并了quot; amp; Num amp; quot;個(gè)工作薄下的全部工作表。如下：quot; amp; Chr(13) amp; WbN, vbInformation, quot;提示quot;
End Sub

步驟五：運(yùn)行代碼

點(diǎn)擊運(yùn)行圖標(biāo)（紅色圈中標(biāo)注），運(yùn)行結(jié)束后，就可以在Sheet1表中看到合并后的內(nèi)容了。

步驟六：統(tǒng)計(jì)和篩選

現(xiàn)在，你可以在同一張表中進(jìn)行統(tǒng)計(jì)、篩選等日常處理操作了。

如果你經(jīng)常需要使用這個(gè)方法，可以將步驟中的代碼復(fù)制并記錄下來(lái)，以便日后使用。