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

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

準備工作

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

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

VBA代碼實現(xiàn)

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

Dim mypath
Sub 操作指定文件里的所有文件()
    mypath  "D:Desktop百度經(jīng)驗	est" '工作簿所在文件夾路徑
    MyFile  Dir(mypath  "*.xlsx") '獲取文件夾里面的所有xlsx文件
    '循環(huán)修改工作簿內(nèi)容
    Do While MyFile <> ""
        Call OpenFile(MyFile)
        MyFile  Dir '找尋下一個文件
    Loop
End Sub
Function OpenFile(fileName)
    Set currentWorkBook  (mypath  ""  fileName)
    Call 合并工作表((1), )
     True '關(guān)閉文件，true表示保存修改，false表示關(guān)閉時不保存修改
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代碼中的“工作簿所在文件夾路徑”，填入你的實際路徑。

2. 按下“F5”鍵或點擊綠色三角標運行，即可合并文件夾中的所有Excel表格。

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