可以利用VBA将excel中的几个明细表中的每一条记录依次汇总到一个总表中
软件版本: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得到结果如下,工作表合并完成: