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

2021-03-17

1317

如何将一个EXCEL工作薄里100张sheet数据十秒钟合并成一个EXCEL表？这个问题用VBA很容易处理，10秒可以汇总上百张表，没问题。所附代码如下，可直接使用。Sub allcopy（）dim

如何将一个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