有時候我們需要將一堆的Excel文件合并到一個文件夾里面分析，如果文件比較少的話還可以手動操作，文件特別多的話，手動操作就不現(xiàn)實(shí)了。本文介紹一種快速合并多個Excel文件的方法——使用宏合并多個Exc

有時候我們需要將一堆的Excel文件合并到一個文件夾里面分析，如果文件比較少的話還可以手動操作，文件特別多的話，手動操作就不現(xiàn)實(shí)了。本文介紹一種快速合并多個Excel文件的方法——使用宏合并多個Excel文件。

打開VBE編輯窗口

按住Alt F11打開VBE編輯窗口，依次點(diǎn)擊“插入->模塊”插入一個新模塊。

復(fù)制宏代碼

在新模塊中復(fù)制下列代碼：

```

Option Explicit

Sub HzWb()

Dim bt As Range, r As Long, c As Long

r 1 '1是表頭的行數(shù)

c 7 '7是表頭的列數(shù)

Dim wt As Worksheet

Set wt (1) '將匯總表賦給變量wt

(r ":1048576").ClearContents '清除匯總表中原表數(shù)據(jù)，只保留表頭

False

Dim FileName As String, sht As Worksheet, wb As Workbook

Dim Erow As Long, fn As String, arr As Variant

FileName Dir( "*.xlsx")

Do While FileName<>""

If FileName<> Then '判斷文件是否是匯總數(shù)據(jù)的工作簿

Erow wt.Range("A1") 1 '取得匯總表中第一條空行行號

fn FileName '將第1個要匯總的工作簿名稱賦給變量fn

Set wb GetObject(fn) '將變量fn代表的工作簿對象賦給變量wb

Set sht (1) '將要匯總的工作表賦給變量sht

'將工作表中要匯總的記錄保存在數(shù)組arr里

arr sht.Range(sht.Cells(r, "A"), sht.Cells(1048576, "B").End(xlUp)).Offset(0, 5)

'將數(shù)組arr中的數(shù)據(jù)寫入工作表

wt.Cells(Erow, "A").Resize(UBound(arr, 1), UBound(arr, 2)) arr

False

End If

FileName Dir '用Dir函數(shù)取得其他文件名，并賦給變量

Loop

True

End Sub

```

根據(jù)需求修改代碼

根據(jù)具體工作任務(wù)的要求，修改以上代碼中的備注部分以適應(yīng)你的需求。

執(zhí)行宏代碼

修改完代碼后，按F5鍵執(zhí)行或者回到工作表界面按Alt F8執(zhí)行即可合并多個Excel文件。（再次強(qiáng)調(diào)代碼中的標(biāo)點(diǎn)符號必須是英文標(biāo)點(diǎn)符號。）

請參考相關(guān)引用經(jīng)驗(yàn)，查看如何打開VBE界面以及執(zhí)行方法。