工作中 遇到十几个甚至几十个单独工作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文件下有多张工作表的代码。