在日常工作中，我們經(jīng)常需要合并多個(gè)Excel工作簿的工作表，以便進(jìn)行統(tǒng)一管理和分析。下面介紹一種使用VBA快速將上百個(gè)工作簿合并的方法。 準(zhǔn)備工作 1. 將要合并的Excel工作簿放在同一個(gè)文件夾

在日常工作中，我們經(jīng)常需要合并多個(gè)Excel工作簿的工作表，以便進(jìn)行統(tǒng)一管理和分析。下面介紹一種使用VBA快速將上百個(gè)工作簿合并的方法。

準(zhǔn)備工作

1. 將要合并的Excel工作簿放在同一個(gè)文件夾中。

2. 新建一個(gè)新的工作簿，命名為“合并.xlsx”，并打開該工作簿。

VBA代碼實(shí)現(xiàn)

進(jìn)入Excel軟件，點(diǎn)擊菜單欄的“開發(fā)工具”，然后點(diǎn)擊左上角的“打開VBA編輯器”按鈕，創(chuàng)建一個(gè)新模塊，并將以下代碼復(fù)制進(jìn)去：

Dim mypath
Sub 操作指定文件里的所有文件()
    mypath  "D:Desktop百度經(jīng)驗(yàn)	est" '工作簿所在文件夾路徑
    MyFile  Dir(mypath  "*.xlsx") '獲取文件夾里面的所有xlsx文件
    '循環(huán)修改工作簿內(nèi)容
    Do While MyFile <> ""
        Call OpenFile(MyFile)
        MyFile  Dir '找尋下一個(gè)文件
    Loop
End Sub
Function OpenFile(fileName)
    Set currentWorkBook  (mypath  ""  fileName)
    Call 合并工作表((1), )
     True '關(guān)閉文件，true表示保存修改，false表示關(guān)閉時(shí)不保存修改
End Function
Sub 合并工作表(zuWorkBook As Worksheet, sheetName As String)
    WorkBookName  "合并.xlsx" '將工作表合并到此工作簿
    sheetCount  Workbooks(WorkBookName)
     After:Workbooks(WorkBookName).Sheets(sheetCount)
    Set mSheet  Workbooks(WorkBookName).Sheets(sheetCount   1)
      sheetName '命名合并過來的工作表名為原本工作簿名稱
End Sub

操作步驟

1. 按照上述代碼中的注釋，修改VBA代碼中的“工作簿所在文件夾路徑”，填入你的實(shí)際路徑。

2. 按下“F5”鍵或點(diǎn)擊綠色三角標(biāo)運(yùn)行，即可合并文件夾中的所有Excel表格。

以上就是使用VBA快速合并Excel工作簿工作表的方法。如果你不熟悉VBA，可以參考《怎么批量修改文件名-高級(jí)篇》這篇文章，學(xué)習(xí)如何修改VBA代碼中的路徑。