工作中 遇到十幾個甚至幾十個單獨工作excel文件要合并成一個怎么辦，難道還按照老辦法復制工作表?幾個還好說，遇到十幾個幾十個文件，手速不夠快的寶寶心里苦。

那么，有沒有什么日常偷懶神技，一鍵合成多個excel文件？這個要求合理嗎？非常合理！

1.新建文件

單擊開發工具

單擊visual basic

2.找到sheet1單擊右鍵

3.選擇插入-單擊模塊

4..出現如下窗口

5.在寫代碼之前需要確認 被合并的文件 的路徑，我把文件放在了

d:hebin

6.復制下面這組代碼到模塊1里，把 需要修改文件路徑 下面的代碼修改

修改方法：把 d:hebin 改為你的電腦上被合并文件所在的路徑

'合并文件代碼

Sub hbwj()

Dim str As String

Dim wb As Workbook

Dim i As Integer

'需要修改文件路徑

str = Dir("d:hebin*.xls*")

For i = 1 To 100

'需要修改文件路徑

Set wb = Workbooks.Open("d:hebin" & str)

wb.Sheets(1).Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)

ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = Split(wb.Name, ".")(0)

wb.Close

str = Dir

If str = "" Then

Exit For

End If

Next

End Sub

'代碼結束

7.單擊綠色小三角，運行

8.恭喜！得到合并文件啦！

9.被合并excel文件名稱可以是任意的，不僅限于月份。

這個方法僅限于每個被合并的excel文件下只有一張工作表，是最簡單的代碼。

下期再給大家分享被合并的excel文件下有多張工作表的代碼。

總結

以上是生活随笔為你收集整理的open表和closed表_excel工作表合并，多文件数据一键合成的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。