怎么合并多个工作表到一个工作表

怎么合并多个工作表到一个工作表

可以利用VBA快速合并单个excel工作簿中的多个工作表（sheet）
软件版本：Office2007
方法如下：
1.当前工作簿中有多个工作表，结构都一样如下所示，当里面的数据不一样，将它们全部合并到当前工作表中：

2.Alt+F11，打开宏界面，输入如下代码：
Sub m()
For Each sh In Sheets '遍历每个工作表，提取数据
If sh.Name <> "Sheet1" Then '排除当前工作表
sh.Range("A2:C" & sh.Range("A65536").End(3).Row).Copy Range("A" & Range("A65536").End(3).Row + 1) '将工作表中的所有数据复制到当前工作表最后一行的下一行中
End If
Next
End Sub

3.F5执行代码，返回Excel得到结果如下，工作表合并完成：

你新建一个文件夹，在里面新建一个excel表格，把你那个excel也放里面，打开新建的excel》按住alt+f11》在点击左上角的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 & "\\" & "*.xls") awbname = activeworkbook.name num = 0 do while myname &lt;&gt; "" if myname &lt;&gt; 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