输入以下代码：

Private Sub CommandButton1_Click()

Dim path, yuan_name  '定义路径名，被合并表名称

Dim wb As Workbook

path = ThisWorkbook.path '指定路径为合并新表所在路径

yuan_name = Dir(path & "\" & "*.xlsx") '从该文件夹内遍历所有要合并的表格

Do While yuan_name ""  '遍历的表格名不为空就进入循环

Set wb = Workbooks.Open(path & "\" & yuan_name) '打开遍历到的表格

wb.Sheets(1).Range("a2", wb.Sheets(1).Cells.SpecialCells(xlCellTypeLastCell)).Copy  '从a2开始到已用区域最后一个单元格的范围全部复制

ThisWorkbook.Sheets(1).Cells(ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).Row + 1, 1).PasteSpecial Paste:=xlValues  '从a列最后一个有数据的单元格后的空格开始粘贴

wb.Close (False) '复制粘贴完成后关闭被合并的表

yuan_name = Dir  '继续遍历

Loop

End Sub