怎样将excel多个sheet合成一个表

怎样将excel多个sheet合成一个表

Sub CombineWorkbooks()
Dim m As Integer
Dim n As Integer
Dim o As Integer
For m = 2 To 6
n = Sheets(m).[a65536].End(xlUp).Row
o = Sheets(1).[a65536].End(xlUp).Row
Sheets(m).Select
Range("a1", "z" & n).Select
Range("a" & n).Activate
Selection.Copy
Sheets(1).Select
Range("a" & o + 1).Select
ActiveSheet.Paste
Next
End Sub

特别注意这一段字符“For m = 2 To 6”，由于要汇总的数据的工作表有5个，加上“合并报表”这个工作表本身，一共是6个工作表，因此“For m = 2 To 6”中选择输入6，如果后面要汇总的数据工作表有3个，则是录入4，如果有12个，则是录入13，依次类推。

首先我们要有自己的excel数据，并且我们需要的是microsoft excel，wps没有这些负责的功能。比如我下面举例的，我自己有205页的数据需要合并，如图所示。 看到这么多数据页要合并，如果是复制粘贴的话，工作量就很大了。我们现在开始合并，首先要在最前页新建一个工作表。如图： 在新建的sheet表中“右键”，找到“查看代码”，然后看到宏计算界面。如图所示： 看到宏计算界面，我们就只需要把下面的代码复制进去，代码如下，效果如下： sub 合并当前工作簿下的所有工作表() application.screenupdating = false for j = 1 to sheets.count if sheets(j).name <> activesheet.name then x = range("a65536").end(xlup).row + 1 sheets(j).usedrange.copy cells(x, 1) end if next range("b1").select application.screenupdating = true msgbox "当前工作簿下的全部工作表已经合并完毕！", vbinformation, "提示" end sub 做完上面的事情，然后只需要点击工具栏上面的“运行”下的“运行子过程/用户窗体”就可以了，合并完之后会有提示。提示完成之后就可以把宏计算界面关闭了。如图所示： 6 合并后的效果如下图，我们看到的是合并之后有8000多行，就是205页合并后的结果。谢谢。如有疑问，请留言。