【VBA教程三】批量合并表格

使用说明：

● 先建立新建一个.xls或.xlsm文件保存。

● 在相同文件夹里新建一个名为data文件夹

● 把要合并的Excel文件放到date文件夹里

● 把下面的代码复制到xls文件的宏编辑器的新建模块里保存

● 点击宏运行表格合并宏

使用视频教程：

代码如下：

-------------------------------------------

Sub 表格合并()

Dim str As String

Dim wb As Workbook

Excel.Application.ScreenUpdating = False

str = Dir(ThisWorkbook.Path & "\data\*.xls*")

For i = 1 To 1000

Set wb = Workbooks.Open(ThisWorkbook.Path & "\data\" & str)

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

wb.Close

str = Dir

If str = "" Then

Exit For

End If

Excel.Application.DisplayAlerts = False

Dim m, n As Integer

Sheets(1).Cells().Clear

For m = 2 To Sheets.Count

Sheets(m).Range("1:" & Sheets(m).Range("A65536").End(xlUp).Row).Copy Sheets(1).Range("A" & Sheets(1).Range("A65536").End(xlUp).Row + 1)