如何快速将多个工作表合成一个表格
发布网友
发布时间：2022-04-24 06:16
共1个回答
热心网友
时间：2023-10-08 18:10
可以利用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得到结果如下，工作表合并完成：
