可以利用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得到结果如下,工作表合并完成: