Excel VBA 多个工作表合并方法

1、保证合并的新表和要合并的其他表都在同一个文件夹内。在合并的新表里插入一个命令按钮，后面点击该按钮即可完成合并过程

2、点击开发工具→设计模式→双击按钮，进入VBA编辑器

3、输入以下代码：Private Sub CommandButton1_Cl坡纠课柩ick() 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 '继续遍历 LoopEnd Sub

4、完成后点击按钮，等待复制粘贴完成。其实这个过程就是让电脑去做复制粘贴每个表格的重复过程。