多个excel合并成一个表 如何将一个EXCEL工作薄里100张sheet数据十秒钟合并成一个EXCEL表？

如何将一个EXCEL工作薄里100张sheet数据十秒钟合并成一个EXCEL表？

这个问题用VBA很容易处理，10秒可以汇总上百张表，没问题。

所附代码如下，可直接使用。

Sub allcopy（）

dim RG as range

dim sh as worksheets

dim IROW，jcol

工作表（“主工作表”）。范围（“2:1048576”）。清除

工作表中的每个SH

带有工作表（“主工作表”

如果姓&Lt> “常规表格”然后

设置RG=sh.UsedRange.Offset偏移量（1，0）

irow=.Range（“A”和行。计数).End（xlUp）.1行rg.副本.Cells（irow，1）

结束If

结束With

下一步

结束sub

多个excel合并成一个表 所有sheet合并成一页 30个表格怎么合并到一个表格

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。