Excel合并多个文件

最近，经常遇到多个Excel文件需要合并成为一个工作表，进行全面的数据分析。于是，小晞开始学习【如何偷懒】。

小晞一开始也是使用复制粘贴，复制粘贴，复制粘贴。。。的重复性操作，将多个Excel文件合并成一个Excel文件，可是如果经常性如此操作，将会让人易烦躁。

接下来，就是隆重介绍今天小希学到的【偷懒新技能】：

使用VBA对Excel文件进行合并，简单快捷实用。

1. 在需要合并多个Excel文件中的文件夹上，新建一个Excel文件；

新建Excel文件

2. 打开【新建Excel表】→右击底下的【sheet1】→选择【查看代码】→复制一下代码到编辑器中→运行程序→查看效果

合并代码：

Sub 合并当前目录下所有工作簿的全部工作表()

Dim mypath, myname, awbname

Dim wb As Workbook, wbn As String

Dim g As Long

Dim num As Long

Dim box As String

Application.ScreenUpdating = False

mypath = ActiveWorkbook.Path

myname = Dir(mypath & "\" & "*.xlsx")

awbname = ActiveWorkbook.Name

num = 0

Do While myname <> ""

If myname <> awbname Then

Set wb = Workbooks.Open(mypath & "\" & myname)

num = num + 1

With Workbooks(1).ActiveSheet

.Cells(.Range("a65536").End(xlUp).Row + 2, 1) = Left(myname, Len(myname) - 4)

For g = 1 To Sheets.Count

wb.Sheets(g).UsedRange.Copy .Cells(.Range("a65536").End(xlUp).Row + 1, 1)

Next

wbn = wbn & Chr(13) & wb.Name

wb.Close False

End With

End If

myname = Dir

Loop

Range("a1").Select

Application.ScreenUpdating = True

MsgBox "共合并了" & num & "个工作薄下的全部工作表。如下：" & Chr(13) & wbn, vbInformation, "提示"

End Sub

代码粘贴处 合并结果

End. To be continue!

如果你喜欢鄙文，那就在右下角点个喜欢吧，你的鼓励是我最大的动力来源，在此小晞表感恩。

如果您也在学习excel，我们可以互相关注，相互学习的呦。Go！Go！Go！